[VB6] cnx bdd

Version imprimable

[VB6] cnx bdd

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:

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

31/05/2006, 10h00
jmfmarques

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

Merci, c'est vrai que ca marche mieux

Mais j'ai une autre erreur:

Code:

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

31/05/2006, 10h38
Asdorve

salut

Projet -> Référence -> Microsoft DAO 3.51 Object Library
31/05/2006, 10h43
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??
31/05/2006, 10h51
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.
31/05/2006, 11h22
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
31/05/2006, 11h27
AlainTech

Euh... Tester l'état de la connexion, avant qu'elle ne soit même définie, me paraît bien hasardeux.
31/05/2006, 11h33
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
31/05/2006, 11h35
Theocourant

Citation:

Envoyé par ThierryAIM

Théo etait sur la bonne voie

Et dire que j'y connais rien à Access ... il faudrait peut-être que je m'y mettes :aie:
31/05/2006, 13h34
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:P :P :P
31/05/2006, 13h48
gaetan.tranvouez

Re

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

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

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

31/05/2006, 13h56
AlainTech

Citation:

Envoyé par gaetan.tranvouez

j'ai toujours l'erreur...

Sur la même ligne???
31/05/2006, 13h56
gaetan.tranvouez

Re

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:D