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

**Nadd** · 04/01/2006, 10h00

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 :

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
 
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.

**Djob** · 04/01/2006, 11h08

à priori je dirais TSQLQuery...

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

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
 
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....

**Nadd** · 04/01/2006, 13h07

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 :

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
 
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 :

'Cursor not returned from Query'

Que puis-je faire ?

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

**Djob** · 04/01/2006, 13h15

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 )

**Nadd** · 04/01/2006, 13h36

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 :

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

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.

**Nadd** · 04/01/2006, 14h57

Muarf ^^
Problème résolu !

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
 
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 !

Amicalement,

Nadd.

**Nadd** · 04/01/2006, 15h04

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.

**Djob** · 04/01/2006, 16h30

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

quand tu fais :

Code :

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

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 :

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

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..

**Nadd** · 04/01/2006, 17h06

Merci beaucoup

Ca marche nickel

J'ai repris ce que vous aviez fait pour le Int plus haut.

Encore une fois merci beaucoup

!

Cordialement,

Nadd.

**chm0105** · 21/01/2007, 13h18

slt,

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?

**divparzero** · 21/01/2007, 13h56

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.

**chm0105** · 25/01/2007, 21h43

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

**Bily.sdi** · 25/01/2007, 23h34

moi je fais comme cela et ca marche tres bien.

Code C++ :

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
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 C++ :

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

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 ");
       }

**chm0105** · 27/01/2007, 19h16

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)

AnsiString a = "INSERT INTO serveurs(nom,max,map) VALUES("+nom1+"','"+max1+"','"+map1+"','"+")";