salut
g un pb qd je veux connecter ma base de donnée access a un prog vb:
code:
Public db As Database
Public rs As Recordset
Public sql As String
Private Sub Command1_Click()
Set db = OpenDatabase("c:abd1.mdb")
sql = "select * from cliente "
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.Field("Nom") = Text1
rs.Field("Prenom") = Text2
rs.Field("Adresse") = Text5
rs.Field("CodePostal") = Text6
rs.Field("Ville") = Text7
rs.Field("NumTel") = Text3
rs.Field("NumTelPort") = Text4
rs.Field("DateAnniversaire") = Text8
rs.Update
rs.Close
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub
Private Sub Command2_Click()
Form3.Visible = True
Form10.Visible = False
Form10.Enabled = False
End Sub
Private Sub Form_Load()
End Sub
___________________________________________________________
Message d'erreur qui m affiche:
format de base de données ('c:adb1.mdb') non reconnu.
Ça veut dire que VB ne comprend pas le format Access...
lylauqs Le 28/05/2002 à 10:50Edité par squalyl le 28/05/2002 à 10:51 Installe les drivers ODBC pour access.
Je sais qu'ils sont dans l'édition pro, mais les autres je sais pas.
Aussi inutile que le H d'Hawaï
Crono Le 03/06/2002 à 11:33 moi je fais pas comme ca, c'est plus compliqué mais je suis sur que va marche avec VB6/Access2000-XP:
Je passe par projet DataEnvironment clic droit /propriété sur l'icone Connection1
règle Jet4.0 comme fournisseur et Ajoute ma base de donnée dans connection
Ensuite clic droit sur connection: ajouter une commande
clic droit/propriété sur l'objet créé, tu lie ta commande a une table ou une requète...
Ensuite dans ton code, si par exemble ton DataEnvironment s'appele "DC" et que ta commande s'appelle Cmd alors tu y accède par le recordset du nom "DC.rsCmd"
Avant d'accèder au recordSet il faut vérouiller par la commande "DC.Cmd". Ti tu veux faire des moditifactions a ta table pense a mettre un veroillage optimiste et non en lecture seule dans les propriétés de la commande
Membre de la ToL (Team of Legend)