Information générale
Catégorie:
Bases de données 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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement