Discussion :

[chpog]

Bonjour suite à mon précédent poste ou j'ai résolu une première erreur.
Je retombe sur une autre.
voilà mon 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
18
19
20
21
22
 
try
{
 
Variant vADO = NULL;
  // Pour prévenir l'échec de duplication
  if (FileExists(mMdbFile))
  {
	if (!DeleteFile(mMdbFile)) throw Exception("Unable to overwrite " +
	  mMdbFile + " \r\nMaybe file is currently locked by another application");
  }
  UnicodeString provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + UnicodeString("C:\\Documents and Settings\\All Users\\tutu.mdb") +";Jet OLEDB:Engine Type=4";
  vADO = Variant::CreateObject("ADOX.Catalog");
  vADO.OleProcedure("create",provider.w_str());
 
  // on termine
  vADO = Unassigned;
}
catch(Exception &E)
{
  throw Exception("Error while creating base :\r\n" + E.Message);
}

Au premier passage j'ai l'erreur EOleException "[Microsoft][Pilote ODBC Microsoft Access]Fichier '(Inconnu)' introuvable". Moi je comprends ça comme si il n'arrivait pas à passer le nom de mon fichier en paramètres ou il le perd je ne sais pas.
Par contre si j’exécute une nouvelle fois le code là j'ai
EOleException "La base de données existe déjà".
Je ne comprends pas!! En plus je suis obligé de changer le nom du fichier pour pouvoir re avoir la première erreur alors que quand je vais sous le répertoire désigner ce fichier mdb n'existe pas!!!!!

voilà mon souci merci d'avance !!

[blondelle]

Salut chpog
Je pense qu'il te faut aprendre a tester en mode pas a pas.
Ce que j'ai remarque tu utilise une variable pour le chemin de la base et quand tu la cree tu utilise autre chose

mMdbFile
C:\\Documents and Settings\\All Users\\tutu.mdb"

de plus meme avec XE je ne suis pas sur que ceci fonctionne

UnicodeString provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + UnicodeString("C:\\Documents and Settings\\All Users\\tutu.mdb") +";Jet OLEDB:Engine Type=4";

mais plus tot quelque chose comme ceci a adapter pour l'unicode et surtout ne pas oublier le " ; " terminal

provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+mMdbFile+";Jet OLEDB:Engine Type=4;";

[chpog]

Merci pour tes conseils et je connais bien le pas à pas ce n'était pas cela mon problème. ne fait j'ai mis la chaine de caractère à passer en paramétres à Olefunction dans une OleVariant et là ça fonctionne.
voilà le code qui marche:

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
18
19
20
21
22
 
Variant vADO = NULL;
OleVariant Prov;
 
  // Pour prévenir l'échec de duplication
  if (FileExists(mMdbFile))
  {
	if (!DeleteFile(mMdbFile)) throw Exception("Unable to overwrite " +
	  mMdbFile + " \r\nMaybe file is currently locked by another application");
  }
  UnicodeString provider = PROVIDER_SOURCE + mMdbFile;
  Prov = provider;
  vADO = Variant::CreateObject("ADOX.Catalog");
  vADO.OleFunction("create",Prov);
 
  // on termine
  vADO = Unassigned;
}
catch(Exception &E)
{
  throw Exception("Error while creating base :\r\n" + E.Message);
}