Bonjour,
Je ne parle pas le français, ceci a été traduit utilisant http://ets.freetranslation.com/
'déclarer des variables
Dim conAccess As New ADODB.Connection
Dim myrecordset As New ADODB.Recordset
Dim myvariable as String
'connecter à la base de données
Public Sub OpenAccessDB()
With conAccess
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= Votre Nom de fichier.mdb"
.CursorLocation = adUseClient
.Open()
End With
End Sub
Private Sub Form_Load()
sqlstring = "choisir le nom, l'adresse de la personne où le nom = '" & Combo1.Text & "'"
Set myrecordset = conAccess.Execute(sqlstring)
Text1.Text = myrecordset!name
etc.
désolé je pleurniche l'aide plus,
Bob
Enter your message below
Sign in or Join us (it's free).