General information
Category:
Database DAO/RDO/ODBC/ADO
Hi Eric:
The controls are not bound.
Here is how I update my data
Private oDataConn As ADODB.Connection
Private oRecSet As ADODB.Recordset
Private Sub getdata()
Dim lMetting As String
Dim nRecCnt%
'Make connection to sql
Set oDataConn = New ADODB.Connection
oDataConn.ConnectionString = "DSN=Datawarehouse"
oDataConn.Open
Set oRecSet = New ADODB.Recordset
Set oRecSet.ActiveConnection = oDataConn
oRecSet.CursorLocation = adUseClient
oRecSet.CursorType = adOpenDynamic
oRecSet.LockType = adLockOptimistic
oRecSet.Open "SELECT * FROM Meetings Group by Meeting_name,Meeting_Location," & _
" Meeting_City_State,Start_Date,End_Date Order by Meeting_Name," & _
"Meeting_Location", oDataConn
'Update Records Here
oDataComm.Execute "UPDATE Meetings SET Meeting_Name = " & Trim(txtName.Text) & _
" Wherer Meeting_ID = " & Str(Trim(oRecSet.Fields("Meeting_ID")))
Thanks for the help
MA
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only