Discussion :

[fpascal]

Bonjour,

Je cherche à copier le contenu d'un table dans une autre, voisi une partie de 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
ADOQuery1->Close();
ADOConnection1->Connected = false;
ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + OpenDialog1->FileName + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\"";
ADOConnection1->Connected = true;
ADOTable1->Active = false;
ADOConnection2->Connected = false;
ADOConnection2->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=donnee.xls;Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\"";
ADOConnection2->Connected = true;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM [Feuil1$]");
ADOQuery1->Open();
ADOTable1->TableName = "[Feuil1$]";
ADOTable1->Active = true;
ADOTable1->Last();
ADOQuery1->First();

à cette etape j'ai dans ma forme 2 DBGrid ou je peut voire que mes table son bien ouverte et positioner au bon endroit.

Code :

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

1
2
3
4
5
6
7
while (!ADOQuery1->Eof)
   {
  ADOTable1->Insert();
  ADOTable1->Fields->Fields[0]->Value=ADOQuery1->Fields->Fields[0]->Value;
  ADOTable1->Next();
ADOQuery1->Next();
   }

Sur le ligne :

Code :

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

  ADOTable1->Fields->Fields[0]->Value=ADOQuery1->Fields->Fields[0]->Value

Builder affiche comme erreur

Le projet meteo.exe a declanché la classe d'exception EOleException avec le message 'l'opération doit utiliser une requête qui peut être mise à jour'

puis builder affiche comme erreur

Le projet meteo.exe a declanché la classe d'exception EDatabaseError avec le message 'l'opération doit utiliser une requête qui peut être mise à jour'

une idée svp??

[fpascal]

Depuis la semaine passée, j'ai tenter plusieur chose, mais je n'ai toujours pas trouvée de solution.
Esque qu'elle qu'un conais une solution, oubien une maniére de conturnée le probléme.
Je cherche juste à copier une pardie des donnée trouvée dans un fichier excel dans un autre.

[say]

si je pige bien, tu ouvres 2 fichiers Excel...et tu veux passer les données de l'un dans l'autre.
il serait pas en lecture seule celui de destination?

tu dis que tu as essayé des choses...cad?

[bakaneko]

Si les requetes SQL fonctionne avec Excel, tu peux tenter le coup de la requete SELECT imbriquée dans une requete INSERT.

Code :

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

1
2
 
INSERT INTO matable (champ1,champ2) SELECT chp1,chp2 FROM matbl

[fpascal]

si je pige bien, tu ouvres 2 fichiers Excel...et tu veux passer les données de l'un dans l'autre.

oui

il serait pas en lecture seule celui de destination?

non

tu dis que tu as essayé des choses...cad?

Tous et n'inporte quoid : renplacer les adotable par des adoquery et inversément, travailer sur un nouveau fichier de destination, tester plusieur paramétre de l'adoconection,... je réusi à faire pire, mais pas mieux.

Si les requetes SQL fonctionne avec Excel, tu peux tenter le coup de la requete SELECT imbriquée dans une requete INSERT.

le probléme, s'est que pour le moment, pour tester, je me contente de copier d'un fichier à l'autre. Mais une foit que sa marche, je doit transformé certaine donnée en cour de route.

[blondelle]

Salut fpascal
Je ne pense pas que tu peut acceder directement avec une table ADO, je te met deux liens sur le site sur le sujet en Excel bien sur, je pense qu'il va y avoir de la recherche a faire

http://excel.developpez.com/sources/?page=Bases
http://cafeine.developpez.com/access/tutoriel/excel/

[fpascal]

Salut fpascal
Je ne pense pas que tu peut acceder directement avec une table ADO

Merci pour les liens, mais je s'ai acceder au donnée, je peut les lire sans probléme (je le fait à plusieur moment dans mon programme). Et j'ai dejat fait un programme qui copie des donnée d'une table à l'autre sans probléme, la seul différance etait que s'etait des fichier access à la base.

La seul chose que je n'arrive pas à faire, s'est écrire.
Si je retire la ligne :

Code :

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

ADOTable1->Fields->Fields[0]->Value=ADOQuery1->Fields->Fields[0]->Value;

Le programme tourne sens erreur.
Il doit me manquer une astuce, une "bétise" pour pouvoire ecrire dans le fichier.

[blondelle]

J'ai peut etre trouve quelque chose d'interressant en faisant des recherches, je n'ai pas essaye, je n'ai pas beaucoup de temps

Code :

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

1
2
3
4
5
 
// clone ADOQuery
  ADOQuery2->Clone(ADOQuery1);
// ecrit   
  ADOQuery2->UpdateBatch(arAll);

c'est bien sur une base de depart, tiens nous au courant