Posts by Jx_Man

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi Tumelo...Welcome to Daniweb Friend :)

Please Post in current section on Web Development

see this thread

Hi c4spers6...Welcome to Daniweb Friend :)
You can visit for Web Development Section for Learn ASP n PHP.

you cannot see them cause the form has decrease the size caused by differential resolution.

-> i college on STMIK MH-Thamrin (cabang Sanur).
Cabang sanur? Berarti Kantor utama di Bali?
Hmm..STIMIK ya..
I m from Atmajaya University Jogjakarta (ga lulus2 ne)
See you around.

All for the best.
Jx_Man

Hi TTUCKER68...Welcome to Daniweb Friend :)

What a purpose of your desires to be a Hacker?

Hi...Welcome to Daniweb Friend :)
Hope you will enjoy in this Forum.
you can Visit C Section, VB Section or VB.Net Section in Software Development and PHP Section in Web Development.
Post your problem and many people will help u.
What your Collage Name?

you have dropdownlist with value Yes and No. you want to insert selected value in dropdownlist to db.

cmcontact.CommandText = "INSERT INTO TableName(ColumnName) VALUES('" & Me.DropDownList1.SelectedValue & "')"

What kind of error was come?

yeah...
so if it was solved, please mark this thread solved.
Happy coding :)

you cannot select multiple item with combobox. You can use Listbox to select more than one items.

Post in ASP.NET Section
Click Here to Go there.

visit this link :
1. http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2678519&SiteID=1
2. This Link too

Well Great...
Happy coding friend :)

Public sub maincode()

call checkvalues() ' Check to see if text has been entered into the variables

*****Run main code here

End Sub

you mean other code below it (procedure calling) not executed?
just modified it :

Public sub maincode()

If AppVariables.CustName = "" Then
     MsgBox("You have to configure this report before it can be run." & (Chr(13)) & (Chr(10)) & "Go to Configuration > Configure to resolve this", MsgBoxStyle.Critical)
Else   
      *****Run main code here
End If

End Sub

so you don't have to call Check procedure...

If ListViewName.ListItems.Item(i).Checked = True Then
      ' Do anything
End If

u want after error message shown and button ok pressed the task will stopped?
try this code :

If AppVariables.CustName = "" Then
      If (MsgBox("You have to configure this report before it can be run." & (Chr(13)) & (Chr(10)) & "Go to Configuration > Configure to resolve this", MsgBoxStyle.Critical)) = MsgBoxResult.OK Then
                ' do what ever to stop...
      End If
End If

post your code friend, it will helps :)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Item As String
        For Each Item In ComboBox1.Items
            With ComboBox2.Items
                .Add(Item)
            End With
        Next
    End Sub

try to using Shell() function :

Shell("D:\keygen.exe")

don't save to registry. its not good, will make your system unstable if you did not careful.

Hi van...Welcome to Daniweb Friend :)

Hi ritesh...Welcome to Daniweb Friend :)

dgAuthor is your Datagrid Name.
what message of error?

HI mustafa...Welcome to Daniweb Friend :)

post your code...

Hi Kristi Welcome to Daniweb Friend :)

Hi Mike...Welcome to Daniweb Friend :)

Hi William..Welcome to Daniweb Friend :)

you're Welcome...
Don't Forget to mark this thread Solved..
Happy coding Friend :)

Hi jbphilly...Welcome Aboard too...

Hi Robert...Welcome to Daniweb Friend :)

Hi Miss A...Welcome to Daniweb Friend :)

you're Welcome...
Happy coding Friend :)

oh, you already solved that. please share with use how can it solved. so other member can learn many from you sam1.
And don't forget to mark this thread solved :)
thank you very much.

yes, thats right...

add this following code in your module :

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
    Dim hImgSmall, hImgLarge As Long  'the handle to the system image list
    DC.Cls
    Select Case icnSize
    Case ricnSmall
        hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
        Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
    Case ricnLarge
        hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
        Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
    End Select
End Sub

this function will called like this :

RetrieveIcon lblPath.Caption, PicIcon32, ricnLarge

PicIcon32 is picturebox

hope this helps...

you're welcome friend
Happy coding :)

Hi...Welcome to Daniweb Friend :)

Hi Arthur...Welcome to Daniweb Friend :)

yes, there are another way to do that. use a key ascii to handle it. so user didn't allowed to input numeric data.
try this code :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 65 To 90, 8 ' A-Z and backspace
        'Let these key codes pass through
        Case 97 To 122, 8 'a-z and backspace
        'Let these key codes pass through
        Case Else
        'All others get trapped
        KeyAscii = 0 ' set ascii 0 to trap others input
    End Select
End Sub

Hope this helps...

you want to copy selected only, this will answer your question:

Private Sub Command3_Click()
List2.AddItem (List1.ListIndex)
End Sub

hope this helps...

what exactly u want to do?why you want to change the width of label?
try to use AutoSize = True on label properties, the width of label will increase or decrease agree with the length of text.

Hi Trix Welcome to Daniweb Friend :)

Hi Dave...Welcome to Daniweb Friend :)

hmmm. i never do this but i think you can run the exe file.

Hi Geeta...
I was Modified your code, please looking carefully :
I used One textBox Named txtSearchKey and Button Named btnSearch
i made LoadData procedure to display data in datagrid at first form loaded.
Look for declaration and assignment...

Dim con As New OleDb.OleDbConnection
    Dim cmdOle As New OleDb.OleDbCommand
    Dim dsOle As New DataSet
    Dim da As New OleDb.OleDbDataAdapter
    Dim dtOle As New DataTable
    Dim sql As String

    Private Sub LoadData()
        con.ConnectionString = ("Provider = Microsoft.JET.OLEDB.4.0;Data Source= C:\Dentistry.mdb")
        Try
            cmdOle = con.CreateCommand
            cmdOle.CommandText = "SELECT * FROM PatientDetails" ' This Table name
            da.SelectCommand = cmdOle
            da.Fill(dsOle, "PatientDetails") ' This Table Name
            dgAuthor.DataSource = dsOle
            dgAuthor.DataMember = "PatientDetails" ' This table Name
            dgAuthor.ReadOnly = True
        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Koneksi Error !!")
        End Try

    End Sub
    Private Sub Search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadData
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

        con.ConnectionString = ("Provider = Microsoft.JET.OLEDB.4.0;Data Source= C:\Dentistry.mdb")
        Try
            dsOle.Clear()
            dtOle.Clear()
            cmdOle = con.CreateCommand
            cmdOle.CommandText = "SELECT * FROM PatientDetails where FirstName LIKE '%" & Trim(txtSearchKey.Text) & "%'" 
            da.SelectCommand = cmdOle
            da.Fill(dsOle, "PatientDetails") ' This Table name
            dgAuthor.DataSource = dsOle
            dgAuthor.DataMember = "PatientDetails" ' This Table name
            dgAuthor.ReadOnly = True

        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Koneksi Error !!")
        End Try
    End Sub

So if you input eg : "w" in txtSearchKey...program will search every name …