Kbase P5564: Example code showing how to update a record from Visual Basic through ODBC (ADO)
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/15/2008 |
|
Status: Verified
GOAL:
Example code showing how to update a record from Visual Basic through ODBC (ADO)
FIX:
Private Sub Command1_Click()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open ("data source=sports;server=SomeServer;User ID=SomeUser;Password=SomePassword;0")
SQL = "select * from customer"
rs.Open SQL, conn, 3, 3
rs.addnew
rs.Fields("Name") = "xxxxx"
rs.Fields("Country") = "USA"
rs.Fields("State") = "NY"
rs.Fields("Sales-Rep") = "BBB"
rs.Update
'here I refresh the query to get also the record just created.
rs.requery
rs.addnew
rs.Fields("Name") = "zzzzzz"
rs.Fields("Country") = "USA"
rs.Fields("State") = "NY"
rs.Fields("Sales-Rep") = "BBB"
rs.Update
rs.Close
End Sub