ODBcConnection en VB6

**amirad** · 25/02/2009, 08h34

Bonjour,
J'ai une connexion de type OdbcConnection en vb.net qui permet d'accéder à une base hyperfile. Cependant, je trouve pas en VB6 l'équivalent de ODBCConnetion, OLEDB.Connection ne fait pas l'affaire

Si quelqu'un aurait une idée??

**amirad** · 25/02/2009, 09h21

J'ai essayé ceci mais je ne récupère rien.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
'*************Déclaration des variables de connexion à la base********************
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Public req As String
Dim nr As Integer
 
Private Sub Form_Load()
 
On Error GoTo AdoError
 
   Set cn = New ADODB.Connection
   cn.ConnectionString = "DSN=Test"
   cn.Open
 
   Set rs = New ADODB.Recordset
   req = "select * from Test where tpost = '1050'"
   rs.Open req, cn, adOpenStatic, adLockOptimistic
 
    nr = rs.Fields.Count
    Debug.Print nr
 
    rs.Close
    cn.Close
AdoError:
'Traitement des erreurs
    Next
    Resume Next
 
 
End Sub

Merci pour toute remarque.

**AnneCa** · 26/02/2009, 17h11

Essaye tout simplement:

Code :

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

cn.ConnectionString = "Test"

si Test est bien un DSN qui existe et qui pointe vers la bonne DB

**solaar** · 26/02/2009, 19h42

Excusez moi avez vous déclarer le fournisseur(driver) de la BD hyperfile?
bon si je comprend bien vous voulez connecter VB6.0 à la base de donnée hyperfile?

je pense que c'est possible moi je le fait avec la base de données MySQL... bref mais le plus important c'est d'installer une driver ODBC vous permettant avec VB6.0 de vous connecter avec hyperefile.
pour le pilote je te laisse ce site pour le télécharger
http://www.pcsoft.fr/st/telec/module..._56c.htm#TELEC
j'espère que j'ai répondu à votre attende?

Cordialement
solaar

**amirad** · 27/02/2009, 09h34

Bonjour,

Envoyé par solaar

Excusez moi avez vous déclarer le fournisseur(driver) de la BD hyperfile?

Oui je l'ai bien installé, et j'ai pu récupérer les données de ma base hyperfile avec Excel.

[QUOTE=solaar;4063875]bon si je comprend bien vous voulez connecter VB6.0 à la base de donnée hyperfile?[/QAUTE]
Oui c'est bien évidemment cela. J'ai le bon driver ODBC et j'ai testé l'apport de données avec Excel comme je vous ai dit ci-haut.

Merci pour votre coopération.

**amirad** · 27/02/2009, 09h42

Bonjour,

Envoyé par AnneCa

Essaye tout simplement:

Code :

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

cn.ConnectionString = "Test"

si Test est bien un DSN qui existe et qui pointe vers la bonne DB

Oui Test est bel et bien un DSN qui pointe vers la DB.
J'ai testé comme vous l'avez mentionnée, mais toujours rien.

**AnneCa** · 02/03/2009, 11h43

Peut-être n'es-tu pas autorisé à te connecter à la base de données. Essaye d'ajouter un nom de profile et un mot de passe.

Code :

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

1
2
3
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=Test"
cn.Open "Test" , userId, password

**amirad** · 03/03/2009, 10h22

Envoyé par AnneCa

Peut-être n'es-tu pas autorisé à te connecter à la base de données. Essaye d'ajouter un nom de profile et un mot de passe.

Code :

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

1
2
3
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=Test"
cn.Open "Test" , userId, password

Bonjour AnneCa, merci pour votre post, cependant, on n'a aucun mot de passe.

Le problème n'est toujours pas résolu.

**AnneCa** · 03/03/2009, 12h09

On va essayer autre chose...
1. Mets en commentaire "On error goto"
2. Détermine à quel endroit ça plante.
2A Si ça plante au niveau de

Code :

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

cn.open

alors il faut vérifier que tu as bien les droits sur le serveur, que le DSN est bien défini etc...
2B Si tu reçois un autre message d'erreur plus loin, fais-le nous savoir.
2C Si le programme ne grogne pas, cela veut dire qu'il a fait quelquechose mais que ta requête retourne rien. Teste d'abord si ton recordset est vide ou pas

Code :

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

Debug.Print rs.eof

puis vérifie aussi si ta query retourne vraiment quelque chose (on peut suspecter une DB vide)
Bonne M....

**amirad** · 03/03/2009, 14h13

Envoyé par AnneCa

On va essayer autre chose...
1. Mets en commentaire "On error goto"
2. Détermine à quel endroit ça plante.
2A Si ça plante au niveau de

Code :

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

cn.open

oui ça plante à ce niveau. J'ai un message d'erreur :
La méthode 'open' de l'objet '_Connection' a échoué.

Je ne pense pas que ça pourrait un problème de droit d'accès au serveur car j'ai pu avoir les données de la DB avec cet odbc sur Excel.

**AnneCa** · 03/03/2009, 15h32

1ere question: es-tu sur que ton DSN est bien "Test" et pas "test" ou "tEst" ou autre chose dans le genre parce que c'est "case sensitive".
2ème question: Peux-tu créer une forme avec 2 boutons: un va faire le connect, l'autre le disconnect. Ci-dessous, le code à mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit 'A mettre tout au dessus du code de la forme
Private cn As New ADODB.Connection
 
Public Sub DbConnect()
    'Connect the database
    cn.Open "Test"
    cn.CommandTimeout = 0
End Sub
Public Sub DbDisConnect()
    'DisConnect the database
    cn.close
    set cn = Nothing
End Sub

Vois-ce qui se passe et tiens-nous au courant!

**amirad** · 03/03/2009, 16h11

Envoyé par AnneCa

1ere question: es-tu sur que ton DSN est bien "Test" et pas "test" ou "tEst" ou autre chose dans le genre parce que c'est "case sensitive".
2ème question: Peux-tu créer une forme avec 2 boutons: un va faire le connect, l'autre le disconnect. Ci-dessous, le code à mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit 'A mettre tout au dessus du code de la forme
Private cn As New ADODB.Connection
 
Public Sub DbConnect()
    'Connect the database
    cn.Open "Test"
    cn.CommandTimeout = 0
End Sub
Public Sub DbDisConnect()
    'DisConnect the database
    cn.close
    set cn = Nothing
End Sub

Vois-ce qui se passe et tiens-nous au courant!

Salut AnneCa,
J'ai testé comme t'as dit, j'ai toujours le même message en cliquant sur le bouton Connect :
La méthode 'Open' de l'objet '_Connection' a échoué.

**AnneCa** · 03/03/2009, 16h31

Désolée de me répéter, mais as-tu testé ta connection au moment de la création du DSN??

**amirad** · 03/03/2009, 16h52

Envoyé par AnneCa

Désolée de me répéter, mais as-tu testé ta connection au moment de la création du DSN??

Je l'ai testé sur Excel : J'ai fait :
Données --> Données Externes --> Créer une requête. Puis j'ai choisi ma source de données Test .. et j'ai pu avoir les données contenues dans ma base.

Donc aucun problème ODBC.