Comment ouvrir une base vide avec OleADO sans Access

Version imprimable

A la suite du Post de Fbartolo sur le compactage d'une base de donnee sans Access, j'ai essaye de creer une base de donnee sans Access
le code:
Code:

1 2 3 4 5 6 7 8 // ne pas oublier d'inclure #include <comobj.hpp> Variant vADO; AnsiString Filename = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd6.mdb"; AnsiString provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +Filename+";"; vADO = Variant::CreateObject("ADOX.Catalog"); vADO.OleFunction("create", provider.c_str()); vADO = Unassigned;
Attention je ne gere pas l'exception si la base existe deja.

03/03/2007, 14h18
Fbartolo

Trop fort :yaisse2: Bravo.
Une petite FAQ sur le sujet serait pas mal

Si tu trouves comment copier "simplement" une table d'une base vers une autre je suis preneur.
Car j'ai vraiment galéré pour créer une requête qui fait ça, champs par champs avec les propriétés des champs qui sont à traduite car pas SQL Ansi...

perso je n'ai rien trouvé de précis dans ces sujets sur le Net.
03/03/2007, 14h24
blondelle

Fbartolo a ecrit:

Citation:

Si tu trouves comment copier "simplement" une table d'une base vers une autre je suis preneur.
Car j'ai vraiment galéré pour créer une requête qui fait ça, champs par champs avec les propriétés des champs qui sont à traduite car pas SQL Ansi...

Si tu a un bout de code on peut essayer sur un autre poste

J'ai fait un essai pour gerer l'exception si le fichier existe deja j'affiche bien la MessageBox mais je n'arrive pas a eviter l'erreur.
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
// ne pas oublier d'inclure #include <comobj.hpp>
Variant vADO;
AnsiString Filename = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd6.mdb";
AnsiString provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +Filename+";";
        try
{
vADO = Variant::CreateObject("ADOX.Catalog");
vADO.OleFunction("create", provider.c_str());
}
        catch(Exception &exception)
{
Application->MessageBox("Impossible de creer la base, peut etre qu'elle existe deja?", "ERREUR", MB_OK);
}
// on termine
vADO = Unassigned;

03/03/2007, 14h34
Fbartolo

Il n'y a plus qu'à tester la présence du fichier en amont.
03/03/2007, 14h38
blondelle

Oui mais je ne vois pas comment eviter le message d'erreur a la sortie du "Catch()"?
05/03/2007, 20h38
blondelle

La je ne vois pas comment eviter le message d'erreur Ole
05/03/2007, 22h38
Fbartolo

En mode debug (sous IDE) les messages sont toujours visible.

Testes avec Catch(...) pour voir si cela prend en mode run (en lançant l'exe)
05/03/2007, 22h54
Fbartolo

Après tests, Ton code fonctionne bien, sauf que dans l'EDI tu as le message du Débogueur, c'est normal
05/03/2007, 23h09
blondelle

Tu a raison Fbartolo je cherche une erreur la ou il n'y en a pas :aie:
je met un petit resolut
06/03/2007, 13h18
cfdev

Je viens de tester...nikel c'est la meilleure methode pour BCB!!!!
bravo ;)

:bravo:

++

Par contre pour eviter le message sympa du "peut etre qu'elle existe deja?" :d

plutot faire le test avant:
Code:

1 2 3 4 5 6 7 if (FileExists(Filename.c_str())) { MessageBox(Handle,"Ce fichier existe déja!" ,"ATTENTION",MB_OK|MB_ICONWARNING ) ; vADO = Unassigned; return; }
++

06/03/2007, 13h34
blondelle

Merci pour ta reponse virtuA