ODBcConnection en VB6

Version imprimable

Voir 40 message(s) de cette discussion en une page

25/02/2009, 08h34
amirad

ODBcConnection en VB6

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

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

Code:

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.

26/02/2009, 17h11
AnneCa

Essaye tout simplement:

Code:

cn.ConnectionString = "Test"

si Test est bien un DSN qui existe et qui pointe vers la bonne DB
26/02/2009, 19h42
solaar

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
27/02/2009, 09h34
amirad

Bonjour,

Citation:

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.
27/02/2009, 09h42
amirad

Bonjour,

Citation:

Envoyé par AnneCa

Essaye tout simplement:

Code:

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.
02/03/2009, 11h43
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:

1 2 3 Set cn = New ADODB.Connection cn.ConnectionString = "DSN=Test" cn.Open "Test" , userId, password
03/03/2009, 10h22
amirad
Citation:
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:

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.
03/03/2009, 12h09
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:

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:

Debug.Print rs.eof

puis vérifie aussi si ta query retourne vraiment quelque chose (on peut suspecter une DB vide)
Bonne M....
03/03/2009, 14h13
amirad

Citation:

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:

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.

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:

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!

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

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

03/03/2009, 16h31
AnneCa

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

Citation:

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.
04/03/2009, 10h33
AnneCa

Quelles sont les références de ton projet VB??
04/03/2009, 11h02
amirad

1 pièce(s) jointe(s)

Citation:

Envoyé par AnneCa

Quelles sont les références de ton projet VB??

Bonjour,
voilà mes références du projet en pièce jointe. Merci
04/03/2009, 12h17
AnneCa
Ajoute dans tes références
- Microsoft ActiveX Data Object 2.x library
- Microsoft ActiveX Data Object recordset 2.x library
=> ce que tu as déjà... Désolée! Je commence à être à court d'idées.
04/03/2009, 12h27
amirad

1 pièce(s) jointe(s)
Citation:
Envoyé par AnneCa

Ajoute dans tes références

Microsoft ActiveX Data Object 2.x library
Microsoft ActiveX Data Object recordset 2.x library

=> ce que tu as déjà... Désolée! Je commence à être à court d'idées.
J'ai fait, toujours le même message d'erreur. Voilà mes nouvelles références :
04/03/2009, 12h29
amirad

C'est un peu bizarre tout ça...???
06/03/2009, 09h19
amirad

Bonjour,
Toujours bloquée avec la connexion.

Pas d'autres pistes à vérifier???

Voir 40 message(s) de cette discussion en une page