Discussion :

[lanonyme]

Bonjour,

J'ai de nouveau un probleme avec le composant ADOQuery.

Pour effectuer des SELECT, pas de probleme

Code :

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

1
2
3
4
5
6
7
8
9
 
 ADOQuery->SQL->Clear() ;
// activity
 ADOQuery->SQL->Add("INSERT INTO Activity VALUES(" + IntToStr(IdUtilisateur) + "," + LETpsAvtAvertissement->Text + ")");
 // Event
 for (i=0; i< CLBEvent->Count; i++)
 {
    ADOQuery->SQL->Add("INSERT INTO Event VALUES('" + IntToStr(IdUtilisateur) + "," + IntToStr(i) + ",'" + BoolToStr(CLBEvent->Checked[i],true) + "')") ;
 }

J'efface bien les données de mon query avant de rajouter, tout les requetes d'insertions.

Ensuite je l'execute de la facon suivante :

Code :

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

1
2
3
4
5
6
7
 
    ADOQuery->Connection = ADOConnection ;
     try
     {
        ADOQuery->Prepared = true;
        ADOQuery->ExecSQL(); // Open();
     }

J'utilisai le Open() pour mes selections, mais apparement il faut utiliser ExecSQL() pour les insert.

L'erreur que j'obtient est erreur de syntaxe SQL... est ce que cela vient du fait que j'ajoute plusieurs instructions a la suite ?

EDIT:
Apparement, l'execution d'un insert unique marche, alors ma question devient:
Comment faire pour en executer plusieurs ?

lanonyme

[pottiez]

Bonjour,

J'ai de nouveau un probleme avec le composant ADOQuery.

Pour effectuer des SELECT, pas de probleme

Code :

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

1
2
3
4
5
6
7
8
9
 
 ADOQuery->SQL->Clear() ;
// activity
 ADOQuery->SQL->Add("INSERT INTO Activity VALUES(" + IntToStr(IdUtilisateur) + "," + LETpsAvtAvertissement->Text + ")");
 // Event
 for (i=0; i< CLBEvent->Count; i++)
 {
    ADOQuery->SQL->Add("INSERT INTO Event VALUES('" + IntToStr(IdUtilisateur) + "," + IntToStr(i) + ",'" + BoolToStr(CLBEvent->Checked[i],true) + "')") ;
 }

J'efface bien les données de mon query avant de rajouter, tout les requetes d'insertions.

Ensuite je l'execute de la facon suivante :

Code :

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

1
2
3
4
5
6
7
 
    ADOQuery->Connection = ADOConnection ;
     try
     {
        ADOQuery->Prepared = true;
        ADOQuery->ExecSQL(); // Open();
     }

J'utilisai le Open() pour mes selections, mais apparement il faut utiliser ExecSQL() pour les insert.

L'erreur que j'obtient est erreur de syntaxe SQL... est ce que cela vient du fait que j'ajoute plusieurs instructions a la suite ?

EDIT:
Apparement, l'execution d'un insert unique marche, alors ma question devient:
Comment faire pour en executer plusieurs ?

lanonyme

Tu ne peut pas en executer plusieurs en meme temps,
joute simplement le code de ta deuxieme zone dans la boucle de la premiere, comme ceci :

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
 
  ADOQuery->SQL->Clear() ;
  // activity
  ADOQuery->SQL->Add("INSERT INTO Activity VALUES(" + IntToStr(IdUtilisateur) + "," + LETpsAvtAvertissement->Text + ")");
  ADOQuery->Connection = ADOConnection ;
  try
  {
      ADOQuery->Prepared = true;
      ADOQuery->ExecSQL(); // Open();
  }
  // Event
  for (i=0; i< CLBEvent->Count; i++)
  {
      ADOQuery->SQL->Clear() ;
      ADOQuery->SQL->Add("INSERT INTO Event VALUES('" + IntToStr(IdUtilisateur) + "," + IntToStr(i) + ",'" + BoolToStr(CLBEvent->Checked[i],true) + "')") ;
     ADOQuery->Connection = ADOConnection ;
     try
     {
         ADOQuery->Prepared = true;
         ADOQuery->ExecSQL(); // Open();
     }
  }

[lanonyme]

Merci pottiez, ça marche comme ça

Et puis c'est pas beaucoup plus compliqué

lanonyme