[DBExpress] Formulaire d'insertion (Base de donnée)

Version imprimable

Bonjour :)
J'ai su crée un petit formulaire (Form) pour mon programme qui a pour but d'ajouter une donnée à l'une de mes table.

La requête devrait sembler à ca (- modification) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 INSERT INTO [DBUse].[dbo].[Table_2] ([ID] ,[Nom] ,[Prenom] ,[Adresse] ,[Email] ,[Tel] ,[Fax] ,[Type] ,[Client]) VALUES (2 ,'Zaa' ,'Zaa' ,'Chauss' ,'Aucune' ,'Aucun' ,'Aucun' ,'Administrateur' ,'Oui')
Je dispose sur mon Formulaire d'un boutton "Enregistrer", et j'aimerais que lorsque je clic dessus, ce prenne les données contenue dans les Champs Texte et les replaces dans la requête. Mais pour la requête... Comment faire ? QUe dois-je utiliser comme composant ? Un TSQLSimpleDataSet ? un TSQLQuery (+ TSQLConnection) ?

En vous remerciant d'avance,

Nadd.

à priori je dirais TSQLQuery...

compose d'abord la chaine representant ta requete par rapport aux données
provenant de tes boites de saisies...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
AnsiString name = EDT_NAME->Text;
AnsiString email = EDT_EMAIL->Text;
int CustId =....;
...etc...
 
String MyQueryStr = "INSERT INTO ...... VALUES("
                             + IntToStr(CustId)+",'"
                             + name + "','"
                             + ....
                             + ")";
 
SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Text = MyQueryStr;
SQLQuery1->PrepareStatement();
SQLQuery1->ExecSQL(false);

bon c'est toujours à prendre avec des pincettes car nous n'avons pas les mêmes composants dbexpress....

Etant donnée que je n'ai pas réussi avec le TSQLQuery, j'ai décidé d'essaier avec un SimpleDataSet (Qui avais bien marcher dans mon dernier problème).
Seulement, une nouvelle erreur apparait !

Mon Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 void __fastcall TMDIChild3::SaveClick(TObject *Sender) { String name = Edit1->Text; String prenom = Edit2->Text; String adresse = Edit3->Text; String email = Edit4->Text; String tel = Edit5->Text; String fax = Edit6->Text; String type = ComboBox1->Text; String myQuery = "INSERT INTO Table_2(ID,Nom,Prenom,Adresse,Email,Tel,Fax,Type,Client) VALUES (NULL,'Name','Test1','Test1','Test1','Test1','Test1','Test1','Test1')"; SimpleDataSet1->Close(); SimpleDataSet1->DataSet->Close(); SimpleDataSet1->DataSet->CommandText = myQuery; SimpleDataSet1->DataSet->Open(); SimpleDataSet1->Open(); }
L'erreur est :

Citation:

'Cursor not returned from Query'

Que puis-je faire ?

[PS] : Les données s'ajoutent bien à la Table_2...

04/01/2006, 13h15
Djob

je ne sais pas si tu as le droit de faire des open() avec de requetes du style insert... regarde si tu as plutot quelque chose du style ExecSQL() au moins sur le DataSet...

NB : fait aussi attention à ce que SimpleDataSet1 ne soit relié à aucune datasource ou autre...
( n'oublie pas que tu travailles avec des composant unidirectionnels )
04/01/2006, 13h36
Nadd
Aucun ExecSQL :?

J'obtient cette erreur : "Unable to determine field names for %s" et "Unable to execute this Query" lorsque j'utilise ce code :
Code:

1 2 3 4 5 6 7 SQLQuery1->Close(); SQLQuery1->SQL->Clear(); SQLQuery1->SQL->Text = myQuery; SQLQuery1->PrepareStatement(); SQLQuery1->ExecSQL(false); SQLQuery1->Open();
Cordialement,

Nadd.

Muarf ^^
Problème résolu !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void __fastcall TMDIChild3::SaveClick(TObject *Sender)
{
String name = Edit1->Text;
String prenom = Edit2->Text;
String adresse = Edit3->Text;
String email = Edit4->Text;
String tel = Edit5->Text;
String fax = Edit6->Text;
String type = ComboBox1->Text;
 
String myQuery = "INSERT INTO Table_2(ID,Nom,Prenom,Adresse,Email,Tel,Fax,Type,Client) VALUES (NULL,'Name','Test1','Test1','Test1','Test1','Test1','Test1','Test1')";
 
SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Text = myQuery;
SQLQuery1->ExecSQL(false);
 
}

Le "SQLQuery1->PrepareStatement()" semblait poser problème, et l'Open et le Close inutile.

Encore une fois, un grand merci !
:D

Amicalement,

Nadd.

04/01/2006, 15h04
Nadd

Par contre, je n'ai pas bien compris pour l'insertion des "nom", "prénom", ... dans la requête SQL.

Pouvez vous m'éclairez ?

En vous remerciant, une fois de plus, d'avance,

Nadd.

en fait c'est juste la préparation d'une chaine de caractere qui va constituer la requete....

quand tu fais :

Code:

1
2
3
4
5
6
7
8
9
String name = Edit1->Text;
String prenom = Edit2->Text;
String adresse = Edit3->Text;
String email = Edit4->Text;
String tel = Edit5->Text;
String fax = Edit6->Text;
String type = ComboBox1->Text;
 
String myQuery = "INSERT INTO Table_2(ID,Nom,Prenom,Adresse,Email,Tel,Fax,Type,Client) VALUES (NULL,'Name','Test1','Test1','Test1','Test1','Test1','Test1','Test1')";

là il faut bien remplacer 'Name' 'Test1' par les valeurs des variables prenom, adresse, etc....

donc on fait une concatenation de chaine de caracteres :
requete = "du texte"+prenom+"du texte" +nom

soit :

Code:

1
2
3
4
5
6
AnsiString MyQueryStr = "INSERT INTO Table_2(ID,Nom,Prenom,Adresse,Email,Tel,Fax,Type,Client) VALUES(" 
                                     +Id+"','" 
                                     +prenom+"','"
                                     +adresse+"','"
                                      ..........
                                      +")";

voilà la requete est prete sous forme d'une chaine de caractère..

04/01/2006, 17h06
Nadd

Merci beaucoup :D Ca marche nickel :)
J'ai repris ce que vous aviez fait pour le Int plus haut.

Encore une fois merci beaucoup :) !

Cordialement,

Nadd.
21/01/2007, 13h18
chm0105

slt,

Citation:

AnsiString MyQueryStr = "INSERT INTO Table_2(ID,Nom,Prenom,Adresse,Email,Tel,Fax,Type,Client) VALUES("
+Id+"','"
+prenom+"','"
+adresse+"','"
..........
+")";

Erreur de syntaxe chez moi... Pouvez-vous m'aider?
21/01/2007, 13h56
divparzero

storedproc

Une requête comme celle là génere plus de traffic sur le réseau et plus de travail qu'une procédure stockée.
Avec une stored proc, seules les données à insérer transitent sur le réseau (ou presque), la requête, elle, est sur le serveur.
25/01/2007, 21h43
chm0105

Quelqu'un peux m'aider pour la syntaxe svp? ;)

moi je fais comme cela et ca marche tres bien.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
TLocateOptions Opts;
     if(Table->Locate("Ncd",Form1->tab[Form1->cptuser]->Ncd,Opts))
      { 
       Table->Edit();
       Table->FieldByName("Ncd")->Value   = user->Text.c_str();
       Table->FieldByName("Cod")->Value   = "????";
       Table->FieldByName("Nom")->Value   = nom->Text.c_str();
       Table->FieldByName("Pren")->Value  = prenom->Text.c_str();
       Table->FieldByName("Adre")->Value  = adresse->Text.c_str();
       Table->FieldByName("Loca")->Value  = localite->Text.c_str();
       Table->FieldByName("Vill")->Value  = ville->Text.c_str();
       Table->FieldByName("Gsm")->Value   = gsm->Text.c_str();
       Table->FieldByName("Tel")->Value   = telephone->Text.c_str();
       Table->FieldByName("Mail")->Value  = email->Text.c_str();
       Table->FieldByName("Date")->Value  = datins->Text;
       Table->Post(); 
       Table->Refresh();
      }

et..........

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
if(strcmp(Form1->tab[Form1->cptnuser]->nom,user->Text.c_str())!=0)
       {
         AnsiString a;
         a = " UPDATE GestEmp SET Pseudo = '" + user->Text + "'";
         a = a +  " where Pseudo = '" + Form1->tab[Form1->cptnbuser]->nom  
         + "'";
 
         Form27->update->SQL->Clear();
         Form27->update->SQL->Add(a);
         Form27->update->ExecSQL();
         Form27->Table1->Refresh();
 
         ShowMessage(" Les nouvelles données sont sauvegardées ");
       }

27/01/2007, 19h16
chm0105

1 pièce(s) jointe(s)

Merci pour ta réponse, elle m'aide beaucoup. Cependant j'aimerais utiliser la requête "INSERT" et je n'arrive pas a adapter ton code. (erreur de syntaxe)

Citation:

AnsiString a = "INSERT INTO serveurs(nom,max,map) VALUES("+nom1+"','"+max1+"','"+map1+"','"+")";
12/07/2007, 10h22
mboitet

Citation:

Le "SQLQuery1->PrepareStatement()" semblait poser problème

J'ai eu le même probleme il suffit de remplacer le preparestatement par
Prepared = true ...