ConnectionString pour accéder à une base HyperFile

Version imprimable

20/01/2009, 09h19
amirad

ConnectionString pour accéder à une base HyperFile

Bonjour, je travaille en vb6, je veux accéder à une base hyperfile mais je trouve pas la bonne chaine de connexion.
J'ai essayé ceci mais ça n'a pas marché :

Code:

cn.ConnectionString = "DRIVER={Hyper File};ANA=C:\TRAVAIL\MonAnalyse.WDD;REP=\\SDATA\DATAWTX\;"

Si quelqu'un pourrait m'aider..
20/01/2009, 21h33
klbsjpolp

Ta chaîne semble bonne mais le wdd est bien dans "C:\TRAVAIL\MonAnalyse.WDD" et le .rep dans "\\SDATA\DATAWTX\". Ta source odbc est bien configurée et s'appelle bien "Hyper File"?

Bonjour

- Oui c'est bel et bien ça mon analyse ainsi que le répertoire des fichiers associés.
- Non, ma source ne s'appelle pas Hyper File, c'est plutot le fournisseur qui s'appelle Hyper File.

(J'ai testé ma source de données sur Excel et j'ai réussi à récupérer les informations que j'ai voulu, ça marche, aucun problème de configuration. Cependant, je bloque en vb6.)

Je suis bloquée depuis le début de la semaine et j'arrive pas à avancer.

J'ai bien testé ma base hyperfile sur Excel et tout est bon. J'ai pu récupérer mes données.
Seulement je bloque en VB6.
Je vous envoie ci-joint mon bout de code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 '*************Déclaration des variables de connexion à la base******************** Public cn As New ADODB.Connection Public cmd As New ADODB.Command Public rs As New ADODB.Recordset Public req As String Dim nr On Error GoTo AdoError 'Ouvrir la connexion cn.Open "DRIVER={Hyper File};ANA=C:\TRAVAIL\MonAnalyse.WDD;REP=\\WINTAXLBT\SDATA\;" req = "select * from TRANSAC" rs.Open req, cn, adOpenStatic, adLockOptimistic nr = rs.RecordCount MsgBox nr rs.Close cn.Close AdoError: 'Code pr traitement des erreurs
Merci pour toute éventuelle suggestion.

17/03/2009, 23h10
soussou63

Aprés beaucoup de recherches, voici une chaine de connexion qui fonctionne en vb.net et ce sans configurer au préalable la source de donnée en tant que source de donnée système au sein de l'os.

Code:

Dim myConnection As New System.Data.Odbc.OdbcConnection("Provider=MSDASQL;Persist Security Info=False;Data Source=**ici le nom de la source**;Extended Properties=" & Chr(34).ToString & "DSN=**ici le nom de la source**;DRIVER={Hyper File 7};ANA=** chemin du .WDD**;;REP=** repertoire des donnees**;" & Chr(34).ToString & ";Initial Catalog=** chemin du .WDD**")

Ceci permet de configurer la source de donnée a la volée pendant l'exécution sans laisser / faire trop de réglages préalables sur le système d'exploitation.