i need a code to enter data into a textbox and update an access database table which must be displayed in my listbox, please help
i also want to know hoe to search data in the table
to enter a data in textbox:
place a command button and data object and connect the database write code in command button.
this code save data in the database.
it update data.
connect the listbox with database. for search data write this code:
Dim Searchit As String
Dim Founder As Boolean
Searchit = UCase(InputBox("Enter name:", "Edit"))
If Len(Searchit) > 0 Then
'add this line
Founded = False
Do While (Not Founder) And (Not Data1.Recordset.EOF)
'u can add UCASE i just removed it for my query
If UCase(Data1.Recordset.Fields("name").Value) = Searchit Then
Founder = True
If Not Founder Then
MsgBox "Unable to find the required item", , "Not Found"
i need the code for vb6
all this code is for vb6.
>all this code is for vb6. and the DAODC AKA Data1
Use the data form wizard, of which you will find under add-ins>add-in manager. Start a new standard exe project and then run the wizard as many times as necessary so that you have selected each form type and use each class/code/control. Save this as an example project and modify form1 to startup the other forms and that way you can walk through the code of each form type with F8.
i m not able to update my data using below program ....
please check and do needfull for me.....
Private Sub Command1_Click()
Private Sub Command2_Click()
Private Sub Command3_Click()
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Private Sub Command5_Click()
Data1.RecordSource = " Table1"
Private Sub Command6_Click()