Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recordset
Message
Information générale
Forum:
Visual Basic
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
Titre:
Divers
Thread ID:
00898371
Message ID:
00898497
Vues:
9
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
Fil
Voir

Click here to load this message in the networking platform