|
|
Salut.
Bon, le problème est réglé. Mais curieusement, j'avais essayé le même code hier et il y avait une erreur à la compilation. Le code que j'ai utilisé est le suivant :
Dim cnn1 As ADODB.connection
Dim recordSet As ADODB.recordSet
Private Sub Form_Load()
Set cnn1 = New ADODB.connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CTI.mdb;Persist Security Info=False"
cnn1.Open
Set recordSet = New ADODB.recordSet
recordSet.CursorType = adOpenKeyset
recordSet.LockType = adLockOptimistic
recordSet.Open "DailySummary", cnn1, , , adCmdTable
recordSet.AddNew
recordSet!NOPID = "ATTT"
recordSet!Product = "IDTM"
recordSet!TrafficDate = "10/01/1000"
recordSet!Duration = 1000
recordSet!Rate = 1.2
recordSet.Update
booRecordAdded = True
MsgBox "Update réussi"
recordSet.Close
cnn1.Close
MsgBox "Connexion Fermée"
End Sub
Mais, je vous demande encore de l'aide pour mieux utiliser l'MSDN.
Merci d'avance.
|
1
