Bug avec VB liaison avec base access

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Bug avec VB liaison avec base access

albator7k

200% cnam

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]

Publicité

drasche

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)

albator7k

200% cnam

drasche a écrit :

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]

albator7k

200% cnam

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]

drasche

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.

albator7k

200% cnam

drasche a écrit :

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]

drasche

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

albator7k

200% cnam

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]

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Bug avec VB liaison avec base access

Sujets relatifs
Commande en PHP pour exporter une base SQL ?	Import de données au format access (fichier mdb) par un utilisateur
[Access] Tronquer l'heure dans une date	[MySQL] nombre de connexions simultannées à la base de données
Diagrammes du modele de donnée d'une base	[ASP_newbies]Probleme lorsque je veux acceder a ma base de donnée!
[ACCESS] Protéger l'acces à un formulaire (par mot de passe...) ?	interface java avec base DB2
ACCESS count distinct?	[ACCESS] Comment afficher les resultats d'une requete dans un form ?
Plus de sujets relatifs à : Bug avec VB liaison avec base access

Page générée en 0.053 secondes