Discussion :

[gaetan.tranvouez]

bjr a tous

voila j'ai un pb dans mon code car je n'arrive pas à me connecter à ma bdd.
Je suis dsl de vous infliger tout ce code mais je ne vois comment vous expliquer. Quand j'appuie sur le bouton 'connecter à ma bdd" j'ai une erreur qui me dit "projet ou bibliothèque introuvable".

Voici mon form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim mydate
Dim mytime
Dim Mabase As Bdd
Private Sub ConnectBdd_Click()
Dim msg, msginf As String
For i = 0 To 2    ****Erreur sur cette ligne, il me sélectionne le 'i'****
    If Text1(i).Text = "" Then
        j = j + 1
        msginf = "Il manque " & j & " paramètres de connexion!"
    End If
...

[jmfmarques]

Déjà : manque pas un dim i as integer ? (et sans doute également pour j)

[gaetan.tranvouez]

Merci, c'est vrai que ca marche mieux

Mais j'ai une autre erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function Connecter() As String
On Error GoTo line1
Dim msg As String
msg = "OK"
If cnx.State = adStateOpen Then   ****erreur de compilation, projet ou bibliothèque introuvable****
    cnx.Close
End If
'Définition de la chaîne de connexion
cnx.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};database=" & NameDB & ";server=" & Server & ";uid=" & NameUser & ";pwd=" & Passwd & ";"
'Ouverture de la base de données
cnx.Open
GoTo lastline
line1:
msg = cnx.Errors.Item(0)
lastline:
Connecter = msg
cnx.Errors.Clear
End Function

[Asdorve]

salut

Projet -> Référence -> Microsoft DAO 3.51 Object Library

[gaetan.tranvouez]

merci mais je l'ai pas

j'ai ca

Microsoft DA0 2.5/3.51 Compatibility Library

ou

Microsoft DA0 3.0 Object Library

ou

Microsoft DA0 3.6 Object Library

Lequel??

[gaetan.tranvouez]

ba a vrai dire j'ai tésté les 4, un par un et à chaque fois j'ai un message qui me dit que "je les utilisent déjà" alors que pourtant ils étaient décochés...

J'ai meme éssayé les 4 en meme temps et meme résultat.
Et ensuite quand je veux me connecter à ma bdd il me dit que le projet ou la bibliothèque est introuvable.

[Theocourant]

Bonjour,

Ce qui est étrange c'est que lorsque je fais une recherche dans msdn sur "adStateOpen", il me propose que des rubriques concernant ADO ...

+

Théo

[AlainTech]

Euh... Tester l'état de la connexion, avant qu'elle ne soit même définie, me paraît bien hasardeux.

[ThierryAIM]

Arretez donc de vouloir lui faire cocher une référence DAO pour établir une connexion ADO avec MySQL

Il faut ajouter une référence à Microsoft Activex Data Object 2.x

Théo etait sur la bonne voie
et Alain a entièrement raison

[Theocourant]

Théo etait sur la bonne voie

Et dire que j'y connais rien à Access ... il faudrait peut-être que je m'y mettes

[gaetan.tranvouez]

Pour répdre à theocourant, je n'ai pas msdn d'installé sur mon vb.dsl

Pour rpdre à alaintech, c'est vrai, je corrige ca de suite. merci

Pour rpdre à Thierry AIM, je l'ai déjà fait.
Merci à tous pour vos réponses, c'est sympa

[gaetan.tranvouez]

J'ai mis la ligne de connection avant mais j'ai toujours l'erreur...

[ThierryAIM]

cnx est-elle correctement déclarée ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cnx As ADODB.Connection
 
    Set cnx = New ADODB.Connection

[AlainTech]

j'ai toujours l'erreur...

Sur la même ligne???

[gaetan.tranvouez]

J'ai prit une solution radicale, j'ai supprimé la ligne qui n'allait pas et maintenant cela fonctionne. J'arrive à me connecter à ma bdd, mais pas encore à inscrire dedans, mais je vais chercher seul pour l'instant vous en avez déjà fait beaucoup...

MERCI à tous