Bug avec VB liaison avec base access

Marsh Posté le 22-01-2003 à 19:00:30

Code :

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim sql As String
Private Sub Command1_Click()
sql = "SELECT CLIENT.nom_client, prenom_client FROM CLIENT"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.AddNew
rs.Fields("nom_client" ) = Texte1.Text
rs.Fields("prenom_client" ) = Texte2.Text
rs.Fields("Texte4.Text" ) = "MonTexte"
rs.Update
rs.Close
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\test.mdb" )
End Sub

le compilo me dis type défini par l'utilisateur non défini :??:
il est où mon bug :??: VB ne sais pas que c'est une base acccess 2000 :??:

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 22-01-2003 à 19:00:30

Reply

Marsh Posté le 22-01-2003 à 19:52:16

ah mais non bien sûr!

tu dois ajouter Microsoft Data Access Objects 3.51 comme référence à ton projet, et ensuite seulement les types liés à Access seront connus et utilisables. (menu projet/références)

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 22-01-2003 à 21:11:18

drasche a écrit :

ah mais non bien sûr!

tu dois ajouter Microsoft Data Access Objects 3.51 comme référence à ton projet, et ensuite seulement les types liés à Access seront connus et utilisables. (menu projet/références)

Provider=Microsoft.Jet.OLEDB.3.51
je mets cette ligne :??:

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 22-01-2003 à 21:22:54

j'ai mis ça dans le form load

Code :

Private Sub Form_Load()
Provider=Microsoft.Jet.OLEDB.4.0;
Set Db = OpenDatabase(App.Path & "\test.mdb" )
End Sub

mais c'est toujours pareil

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 22-01-2003 à 21:31:12

albator7k a écrit :

Provider=Microsoft.Jet.OLEDB.3.51
je mets cette ligne :??:

non...

dans le menu Project, tu choisis References. Apparaîtra une liste de librairies que tu peux référencer dans ton projet. Il te faut choisir (cocher) "Microsoft DAO 3.51 object library". Tant que t'auras pas fait ça, t'as aucune chance de compiler ton projet...

Note que dans la liste il y a plusieurs versions: pour une DB Access 97, prend la 3.51. Dans le cas d'une DB Access 2000, prend DAO 3.6.

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 22-01-2003 à 21:48:51

drasche a écrit :

non...

dans le menu Project, tu choisis References. Apparaîtra une liste de librairies que tu peux référencer dans ton projet. Il te faut choisir (cocher) "Microsoft DAO 3.51 object library". Tant que t'auras pas fait ça, t'as aucune chance de compiler ton projet...

Note que dans la liste il y a plusieurs versions: pour une DB Access 97, prend la 3.51. Dans le cas d'une DB Access 2000, prend DAO 3.6.

j'avais déjà la 3.6 de coché j'ai rajouté 3.51 ça compile :jap:
mais en enregistrant il me dis que ça bug icic

Code :

Set Rs = Db.OpenRecordset(sql, dbOpenDynaset)

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 22-01-2003 à 22:20:42

tu peux en avoir qu'un seul des deux de coché sinon ya conflit car les noms de classes sont les mêmes.

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 22-01-2003 à 22:23:54

drasche a écrit :

tu peux en avoir qu'un seul des deux de coché sinon ya conflit car les noms de classes sont les mêmes.

le 3.51 s'est décoché automatiquement

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Bug avec VB liaison avec base access

Sujets relatifs:

Leave a Replay