Comment ouvrir une base vide avec OleADO sans Access

**blondelle** · 03/03/2007, 13h52

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 :

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

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.

**Fbartolo** · 03/03/2007, 14h18

Trop fort

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.

**blondelle** · 03/03/2007, 14h24

Fbartolo a ecrit:

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

**blondelle** · 03/03/2007, 14h28

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 :

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

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;