Private Sub Form_Load() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As ADODB.Command cn.ConnectionString = "..." cn.open If (Check1.Value = 1) Then set rs.ActiveConnection = cn rs.source = "INSERT INTO EmailEnvoye (TonNomChamp, TonNOmChamp2...) VALUES (ValeurChamp1, ValeurChamp2...)" rs.open Else end if End Sub
cn.ConnectionString = "F:\emailenvoyé.mdb " cn.open
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic ws As Workspace Public rs As Recordset Public db As Database Private Sub Form_Load() Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("test.mdb", False, False, "MS Access") Set rs = db.OpenRecordset("Select * from RDV", dbOpenDynaset)
Set ws2 = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("emailenvoyé.mdb", False, False, "MS Access") Set rs = db.OpenRecordset("Select * from RDV", dbOpenDynaset) Set cn = New ADODB.Connection Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As ADODB.Command cn.ConnectionString = "F:\emailenvoyé.mdb" cn.Open If (Check1.Value = 1) Then Set rs.ActiveConnection = cn rs.Source = "INSERT INTO EmailEnvoye (destinataire, expéditeur, messag, objet, ) VALUES (destinataire, expéditeur, objet, messag)" rs.Open Else End If End Sub
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As ADODB.Command
Set ws2 = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("emailenvoyé.mdb", False, False, "MS Access") Set rs = db.OpenRecordset("Select * from RDV", dbOpenDynaset) Set cn = New ADODB.Connection
Set db = ws.OpenDatabase("emailenvoyé.mdb", False, False, "MS Access")
Set db = ws1.OpenDatabase("F:\emailenvoyé.mdb", False, False, "MS Access xp")