Start New Discussion within our Software Development Community

how to edit a record in database by using vb6, i don't any clue :(

What database are you using, msaccess, sql, mysql?
What connection are you using, data control or ADO?

Dim conn as ADODB.Connection
Dim Rs As ADODB.Recordset

Set conn = new ADODB.Connection
Set Rs = New ADODB.Recordset

'Do your connection to access code here

Rs.Open "SELECT * FROM MyTable", conn, adOpenStatic, adLockOptimistic

Rs!Fieldname1 = Text1.Text
Rs.Update

And that is it...:)

'Do your connection to access code here

connection? example po

Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\YourDatabaseName.MDB;Persist Security Info=False"
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Attachments wew.JPG 39.85 KB

What do you mean with "highlighted record"? Where is it highlighted?

The code above will edit an existing record that you have chosen.

error about this

Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
frmList.Show
End If
If Button.Index = 2 Then
frmReserve.Show
End If
If Button.Index = 3 Then
    frmList.Adodc.Refresh
    frmList.DataGrid.Refresh
End If
If Button.Index = 4 Then

Dim conn As ADODB.Connection
Dim Rs As ADODB.Recordset

Set conn = New ADODB.Connection
Set Rs = New ADODB.Recordset

conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Persist Security Info=False"

Rs.Open "SELECT * FROM List", conn, adOpenStatic, adLockOptimistic

Rs!CustomerName = txtName.Text
Rs!ContactNumber = txtContact.Text
Rs.Update
End If
End Sub

Don't put the the code in the toolbar.

Place it in your command button (cmdUpdate) in your Modify form.

Then your problem lies with the field name CustomerName. Is that spelled correctly. It is not the recordset, that was declared etc. Is your open call correct, in other words the table name List exists?

This question has already been answered. Start a new discussion instead.