Sub connexion() Dim objconn As Recordset Dim Conn As String Conn = (App.Path + "\bd_etudiants.mdb") Set objconn = MaBD.Recordsets(Conn) objconn.Provider = "Microsoft.Jet.OLEDB.4.0" objconn.ConnectionString = "Data Source=" & Conn objconn.Open End Sub
Dim req As Recordset Dim Conn As String If VoirPal.filename = "" Then Varphoto = "" Else Varphoto = VoirPal.filename End If conn = (App.Path + "\bd_etudiants.mdb") Set req = MaBD.Recordsets("inser into T_ELEVES (photo) Values ('" & Varphoto & "'")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question