Accès dynamique à différent fichier database

Version imprimable

16/01/2009, 22h17
antoinelac

Accès dynamique à différent fichier database

Bonjour à tous,

J'ai besoin d'accéder à des fichiers dont je ne connais pas le nom (l'utilisateur entre le nom). Normalement cela ne me cause pas trop de soucis. Dans ce cas-ci, je dois utiliser le fichier pointé par l'utilisateur comme source pour ma DBGrid. En d'autre termes, ma DBGrid accède à un fichier .PMR (qui s'ouvre très bien avec accèss et avec la DBGrid) via un TQuery et un TDataSource. Alors, c'est donc de créer dynamiquement un alias?

Je suis un peu nouveau dans les base de donnée.. alors excuser mon ignorance!

merci à l'avance!

antoine
17/01/2009, 00h18
Patrick Seuret

Tu dois pouvoir assigner le nom de ton fichier en runtime depuis une propriété de ta composante qui localise la base de données. Tu utilises quelle composante pour cela?

PS: C'est quel genre de database les fichiers "pmr" ?
20/01/2009, 14h55
antoinelac
Bonjour Patrick,

merci de ton intérêt,

Les fichiers .PMR sont des fichier database de MS Access au meme titre que les .MDB (il doit y avoir certaines différences, mais je ne les connais pas et les PMR fonctionnent avec borland tout comme les MDB alors... je ne saurais quoi dire).

Vous devez vous posez la question "Pourquoi utilisez des PMR alors?". Ce sont des fichiers qui résultent d'une application dont je n'ai pas le contrôle.

Ensuite, les composantes que j'utilise sont :

Une TDBGrid qui pointe vers une TDataSource qu'elle pointe vers un TQuery qui pointe vers une database que j'ai configuré dans le SQL Explorer (pointant vers mon fichier .PMR).

Je suis pas certain que sa soit clair... peut-être que ceci aidera :
Code:

1 2 3 4 DBGrid1->DataSource = "DataSource1"; DataSource1->Dataset = "Query1"; Query1->DatabaseName = "antoine2";
Je ne suis pas sur de comprendre ce que vous avez dit à propos des runtime...

désolé pour mon ignorance.

merci,

antoine
20/01/2009, 20h44
antoinelac

Désolé!

Désolé tout le monde, j'ai mal faite mes devoirs :

http://www.developpez.net/forums/d47...ique-bde-odbc/

http://www.developpez.net/forums/d23...amique-dalias/

Je m'y mets.

antoine

Suite...

Bonjour, encore moi!

Juste pour aider ceux qui voudrait utiliser les codes que j'ai mit en lien ci-dessus :

Code:

ShellExecute(NULL,"open","odbcconf","configsysdsn \"Microsoft Access Driver (*.mdb)\" \"DSN=dsn2;DBQ=C:\mabase.mdb;\"",0,SW_SHOWDEFAULT);

C'est mieux de mettre :

Code:

ShellExecute(NULL,"open","odbcconf","configsysdsn \"Microsoft Access Driver (*.mdb)\" \"DSN=MonAlias;DBQ=C:\\mabase.mdb;\"",0,SW_SHOWDEFAULT);

Et pour l'utiliser :
Code:

1 2 Query1->DatabaseName = "MonAlias"; Query1->Active = true;
Cependant, j'ai un probleme lorsque je veux permettre à l'utilisateur de modifier le fichier à son aise :
Code:

1 2 3 AnsiString dbFichierNom = NomduFichier->Text; ShellExecute(NULL,"open","odbcconf","configsysdsn \"Microsoft Access Driver (*.mdb)\" \"DSN=MonAlias;DBQ=C:\\" + dbFichierNom + ".mdb;\"",0,SW_SHOWDEFAULT);
L'erreur est une erreur qui me reviens souvent et dont je n'ai pas encore réussit à règler. :

"Cannot convert 'AnsiString' to '...' "

dans ce cas-ci : ... = const char *

Pouvez-vous m'indiquer un emplacement où chercher de l'info sur cette conversion?

Ou tout simplement me renseigner directement?

Merci infiniment,

Antoine

Autre questions

J'ai toujours mon problème de nom de fichier dynamique, mais j'ai aussi un autre problème.

Lorsque je créer dynamiquement un nouveau alias pour un nouveau fichier .mbd (ou PMR, les deux fonctionnent de la même façon), l'alias reste présent même lorsque le programme est fermé. Je m'explique :

Je compile mon programme qui est constitué d'un bouton qui a pour action :
Code:

1 2 3 4 5 6 7 void __fastcall TForm2::Button1Click(TObject *Sender) { ShellExecute(NULL,"open","odbcconf","configsysdsn \"Microsoft Access Driver (*.mdb)\" \"DSN=Selection;DBQ=C:\\mabase.mdb;\"",0,SW_SHOWDEFAULT); Query1->DatabaseName = "Selection"; Query1->Active = true; }
Je test mon programme tout va bien, les données de mabase.mdb se retrouve dans ma DBGrid et je peux filtrer etc. Je ferme mon test.

Je vais dans mon Database Explorer. Mon alias (MonAlias) est toujours présent. Alors pour la seconde exécution du programme je n'ai plus besoin de la ligne de commande :

Code:

ShellExecute(NULL,"open","odbcconf","configsysdsn \"Microsoft Access Driver (*.mdb)\" \"DSN=Selection;DBQ=C:\\mabase.mdb;\"",0,SW_SHOWDEFAULT);

pour que mon bouton fonctionne.

Pour l'instant ce n'est pas un problème, mais si le logiciel garde en mémoire toutes mes alias créés dynamiquement, je vais finir par avoir un problème.

Je me posais comme question si c'était seulement un phénomène qui dure sous Borland et du moment que j'effectue une compilation finale, ce phénomène ne se produiera plus?

Enfin, je me demandais comment effacer dynamiquement un alias.

J'imagine que ça doit être avec la commande ShellExecute(), mais je n'ai pas encore trouver comment.

Merci de votre patience.

Antoine

21/01/2009, 00h50
Patrick Seuret
Citation:

Envoyé par antoinelac

L'erreur est une erreur qui me reviens souvent et dont je n'ai pas encore réussit à règler. :

"Cannot convert 'AnsiString' to '...' "

dans ce cas-ci : ... = const char *

C'est parce que tu as un objet de type "AnsiString" et que la fonction attend un "const char*". Tu peux convertir avec la fonction "c_str()" de AnsiString:
Code:

1 2 AnsiString text="Hello"; text.c_str();

Au lieu de faire des alias, tu peux aussi créer un objet de type TADOConnection et le connecter à un TADOQuery.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 TADOConnection* ado=new TADOConnection(this); ado->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\\path\\fichier.mdb;"; ado->LoginPrompt=false; try { ado->Open(); // Try to open the connection } catch(Exception &err) { throw EDatabaseError(err.Message); // Convert error in EDatabaseError } TADOQuery *dbRecords=new TADOQuery(this); dbRecords->Connection=connect;
et après tu utilises ton dbRecord comme ton TQuery avant...

NB: Je n'ai pas testé le code ci-dessus... il contient peut-etre des erreurs

21/01/2009, 15h48
antoinelac

Étrangement, lorsque je compile il ne reconnaît pas la composante
TADOConnection

L'erreur du compileur est la suivante :

E2451 Undefined symbol 'TADOConnection'

Ensuite, il y a d'autre erreur en relation avec cette erreur (même chose pour ado, etc., juste normal puisqu'il ne reconnaît pas TADOConnection...)

Je continue mes recherches,

merci

antoine
21/01/2009, 15h50
antoinelac

Code:

#include <ADODB.hpp>

Voilà ce qui me manquait!
21/01/2009, 17h19
Patrick Seuret

J'allais le dire... Désolé d'être trop tardif

hehe,

Pas de problème,

Cependant, j'ai toujours quelques petites questions,

Voici mon code (tout fonctionne bien) :

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
 
	AnsiString strDir = "c:\\maDB.MDB";
 
	TADOConnection * ado = new TADOConnection(this);
 
	ado->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=""DBQ="
                                    + (AnsiString)strDir + ";DefaultDir=" + (AnsiString)strDir
                                    + ";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN="
                                    + (AnsiString)strDir + ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5"
                                    + ";SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";
 
	ado->LoginPrompt=false;
	try {
	  ado->Open();                            // Try to open the connection
	}
	catch(Exception &err) {
	  throw EDatabaseError(err.Message);      // Convert error in 
 
	}
 
	TADOQuery *dbRecords=new TADOQuery(this);
	dbRecords->Connection = ado;
	dbRecords->SQL->Clear();
	//--------------Mon code SQL--------------//
	dbRecords->SQL->Add("SELECT Batch_Job.Batch_ID, Batch_Job.Job_ID, Customer.Customer_Company");
	dbRecords->SQL->Add("FROM Batch_Job INNER JOIN Customer ON Batch_Job.Customer_No = Customer.Customer_No;");
	//--------------Mon code SQL--------------//
	dbRecords->ExecSQL();

Ensuite? C'est la que je coince. J'ai essayer de me servir de "dbRecords" comme DataSet dans une TDataSource pour mon DBGrid, mais ça ne semble pas être la bonne solution.

J'ai chercher dans la FAQ ainsi que dans les forums, sans trouver quelque chose qui m'arrange. Alors, je continue ma recherche, mais toute aide sera la bienvenue.

;)

Merci,

Antoine

Solution!

Bon finalement,

J'ai peut-être demandé trop compliqué, le code suivant me permet de changer le fichier utilisé dynamiquement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 AnsiString strDir = "c:\\maDB.mdb"; ADOConnection->Connected = false; ADOQuery->Active = false; ADOConnection->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=""DBQ=" + (AnsiString)strDir + ";DefaultDir=" + (AnsiString)strDir + ";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" + (AnsiString)strDir + ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5" + ";SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"; ADOConnection->Connected = true; ADOQuery->Active = true;
Tout ce chemin pour en arriver là.

En fait, je ne connaissais pas les ADO... Vous me les avez faites découvrir!

Merci!

Il manquait :

Code:

ADOConnection->Connected = true;

Pour implémenter le code précédant, enfin je crois.

Merci à tous!!
(Dans ce cas-ci principalement Patrick)

Antoine

22/01/2009, 14h40
Patrick Seuret

Au plaisir.

Pour info, tu peux aussi ajouter ces composantes (TADOConnection et TADOQuery) directement comme objet non visuels sur une fiche. Tu les manipules ensuite de la même façon.