vb + acess - Page 1

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...

Installe les drivers ODBC pour access.
Je sais qu'ils sont dans l'édition pro, mais les autres je sais pas.

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