Skip to main content

Load combobox with items from database

The given code will help to get database value in your combobox.
public con as new adodb.connection
public rs as new adodb.recordset
rs.Open "Select (data field to load in combobox) from (tablename) ", con, adOpenForwardOnly, adLockReadOnly
While rs.EOF = False
Combo1.AddItem rs!(data field to load in combobox)
rs.MoveNext
Wend

Comments

Post a Comment

Popular posts from this blog

generate auto ID number

This code will generate auto id number for the unique id. Public Sub id() Dim lastnumber As Long, newnumber As Long 'Check if there are records in the file With recordset If .BOF = True And .EOF = True Then lastnumber = (any number) Else .MoveLast lastnumber = !field in recordset End If 'Generate New Number newnumber = lastnumber + 1 Text1.Text = newnumber End With End Sub please comment if this post helps you.....
9 comments
Read more

Search in Datagrid in vb6.0

You can search item through this code on keypress in datagrid, Like if you press 1 in textbox then all record starts from 1***** will be displayed, without hitting any other button. Private Sub text_change() With recordset If .State adStateClosed Then .Close End If .Open "select * from table where empid like'" & Text1.Text & "%'", con, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = recordset End With End Sub comment if this code helps u
1 comment
Read more

Textbox input control in vb6.0

This code will help one to control the input at runtime in vb. All the cases mentioned in this code are the ascii values...... For more customization you can use Private Sub text1_KeyPress(KeyAscii As Integer) If Text2.MaxLength = True Then MsgBox "Can't exceed more than 30 characters" End If Select Case KeyAscii Case Asc(" ") Case 65 To 90 Case 97 To 122 Case 48 To 57 Case 32 Case 13 Case 8 Case 127 Case Else MsgBox "Invalid Input", vbOKOnly + vbExclamation KeyAscii = 0 End Select End Sub
Post a Comment
Read more