Discussion :

[D4rkTiger]

Bonjour à tous, je suis nouveau sur ce forum que je trouve superbe.

Je viens pour un Problème de Connexion d'un DataGrid à une base de données Access 2000. J'ai déjà effectuer des modules de connexion à cette même base de donénes sauf que ce module là a été généré par VB STUDIO 2003 lorsque j'ai crée mon OleDbAdaptater. Le problème c'est que le chemin pour la connexion est un chemin Absolu que voici :

'OleDbConnection1

Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""F:\~oO Documents Oo~\~oO Programmation Oo~\APs\AP - C" & _
"PGE\bin\CPGE.mdb"";Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet" & _
" OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended" & _
" Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Cre" & _
"ate System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB" & _
":Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transa" & _
"ctions=1"

Or pour qu'une connection soit universelle il ne faut pas utiliser ce genre de chemin donc j'utilise Application.Path qui récupère le répertoire d'éxécution du .exe généré. Ayant mis ma base de données dans ce même dossier cela devrait fonctionner malheureusement il me génère une erreur me disant qu'il manque des paramètres dans la requête de Connexion.

Je précise que je n'ai changé que la ligne en rouge par ceci :

+ Application.Path + ""\CPGE.mdb""

C'est alors que j'ai découvert un autre problème c'est que VB Studio a remplacé lors de l'éxécution le Application.Path par le chemin de l'exécutable de VB soit C:\Program Files\... etc donc je voudrais savoir si un moyen existait pour rendre ma connexion universelle.

Merci d'avance pour les réponses !

[souaddemaroc]

mais pourquoi tous ces blabla vous allez tout simplemnt faire ceçi :

Code :

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

1
2
3
4
5
 
 
dim cn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data 
 
source='votrebase.mdb'")

sachant que votre base de donnée soit déplacer vers le dossier Bin de votre application et si vous voulez que votre variable cn soit globale vous allez le déclarer dans le module

[D4rkTiger]

Je te remercie d'avoir répondu à ma demande mais ta solution ne fonctionne pas !

En fait, je ne l'ai pas précisé ce qui va peut être changé ton point de vue sur mon problème. Le code que j'ai exposé dans mon premier post est un bout de code généré.

Donc toujours est - il que j'ai essayé et cela n'a pas fonctionné. Cela a généré une erreur d'exception. Donc étant donné que cela fonctionnait avant la modification cela vient donc de la connexion.

J'espère que vous arriverez à m'aider car j'en ai vraiment besoin

[souaddemaroc]

salut

Code :

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

1
2
3
4
5
6
7
 
Public cn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data 
 
source=mabase.mdb'")

Je travail tjs avec ce bout de code et il fonctionne tres bien

NB: Vous devez déplacer la base de donnée dans le dossier Bin de votre application

Vous travail sous vb.net et access n'est ce pas ??

[JauB]

pour access je préfere passer en ODBC comme suit je en vais pas me soucier de l'emplacement de la base de données. car l'utilisateur final sait bien ou se trouve sa base access et donc n'à que la mettre en ODBC. sinon la mettre dans un dossier MaBase et pas dans le bin pour une bonne lisibilité et séparation des rôles. ainsi utiliser le Application.Path doit bien marcher. pour remédier à cela tu n'as qu'u débeuguer ton code pour s'assurer que le chemin de la base et bien celui dans le code.
Bonne Chance

[D4rkTiger]

souaddemaroc avait raison mais je ne comprenais pas où il fallait l'écrire.

En fait il faut créer un module dans le projet et y mettre la ligne de connection que vous souhaitez. Dans mon cas cela donne:

Code :

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

1
2
 
Public OConnexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" + Application.StartupPath + "\CPGE.mdb;")

Voilà ! Encore merci à toi souaddemaroc