Discussion :

[delphino7]

bonjour

jai fait une requete sql insertion mais jai rencontrer un peu de probleme linsertion ce fait en double et affiche le message derreur suivant :

'error creating cursor hundle'

voila le program :

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
procedure TForm3.Button1Click(Sender: TObject);
var requete : string;
begin
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:x1,:x2,:x3,:x4,:x5,:x6)';
form2.query1.active := False ;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').asinteger := strtoint(edit1.Text);
form2.query1.parambyname('x2').asstring := edit2.text;
form2.query1.parambyname('x3').asstring := edit3.text;
form2.query1.parambyname('x4').asstring := edit4.text;
form2.query1.parambyname('x5').asinteger := strtoint(edit5.Text);
form2.query1.parambyname('x6').asinteger := strtoint(edit6.Text);
form2.query1.execsql;
form2.query1.active := True;

end;

merci

[anapurna]

salut

bonjour

...
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(1,2,3,4,5,6)';
form2.query1.active := False ;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').asinteger := strtoint(edit1.Text);
form2.query1.parambyname('x2').asstring := edit2.text;
form2.query1.parambyname('x3').asstring := edit3.text;
form2.query1.parambyname('x4').asstring := edit4.text;
form2.query1.parambyname('x5').asinteger := strtoint(edit5.Text);
form2.query1.parambyname('x6').asinteger := strtoint(edit6.Text);
form2.query1.execsql;

form2.query1.active := True;


end;

merci

le query1.active n'est pas correct
le Tquery est capable de faire deux choses
soit d'exectuter un requete de "mise à jour" (insert,delete,update) dans ce cas la tu utilise execsql

soit une requette d'obtention de donnée et la tu utilise open ou active

@+ Phil

[delphino7]

voila le bon program pour linsertion :

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
 
procedure TForm3.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.text);
x2:= edit2.Text; x3:= edit3.Text; x4:= edit4.Text; x5:= strtoint(edit5.Text);
x6:= strtoint(edit6.Text);
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:x1,:x2,:x3,:x4,:x5,:x6)';
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').asinteger := strtoint(edit1.Text);
form2.query1.parambyname('x2').asstring := edit2.text;
form2.query1.parambyname('x3').asstring := edit3.text;
form2.query1.parambyname('x4').asstring := edit4.text;
form2.query1.parambyname('x5').asinteger := strtoint(edit5.Text);
form2.query1.parambyname('x6').asinteger := strtoint(edit6.Text);
form2.query1.execsql;
end;

mercitous ce qui mon aider

maintenant je cherche la suppression et la modification ?

[delphino7]

bonjour

le program ne se compile pas le cursue ce met en debut de ligne la ou c ecrit requete :='delete......................' et en bas d elunite il maffiche 'unterminated string
missing operator or semicolon
could not compile '

voila le program :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.Button2Click(Sender: TObject);
var requete : string;
begin
requete:='deletefromTable_clientwherecode_client=strtoint('+quotedstr(edit1.text)';
query1.close;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.ExecSQL;
end;

merci

[Cl@udius]

Salut

Essaye plutôt comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm2.Button2Click(Sender: TObject);
var 
  requete: string;
begin
  requete := 'delete from Table_client where code_client = ' + StrToInt(edit1.text);
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(requete);
  query1.ExecSQL;
end;

@+ Claudius

[delphino7]

avec ce program le projet ce compil mais quand je click sur le button delete il mafiche lerreur suivante :

'general sql error'
strtoint is not recognezed functio name


voila le source :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.Button2Click(Sender: TObject);
var requete : string;
begin
requete := 'delete from Table_client where code_client=strtoint('+quotedstr(edit1.text)+')';
query1.close;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.ExecSQL;
end;

merci

[Cl@udius]

Regarde ma réponse au dessus.

[milaybe]

Bonjour,
et si on omet le StrToInt et on met à la place Quotedstr tout simplement, comme ceci:

Code :

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

1
2
 
requete:= 'delete from Table_client where code_client = ' + QuotedStr(edit1.text);

Est-ce qu'il y aura un problème?

[delphino7]

Regarde ma réponse au dessus.

avec ce program le meme message derreur saffiche:

'general error '

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.Button2Click(Sender: TObject);
var requete : string;
begin
requete := 'delete from Table_client where code_client=' + (edit1.text);
query1.close;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.ExecSQL;
end;

merci

[delphino7]

avec cette requete il supprime mais de que je ferme la form et je louvre une deuxieme fois l'enregistrement reaparait

la requete

Code :

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

requete:= 'delete from Table_client where code_client = ' + QuotedStr(edit1.text);

mais moi je veux le supprimer difinitivement

[Cl@udius]

Bon reprenons depuis le début.

1. Quel SGBD utilises-tu ?
2. Quel est le type du champ Code_Client ?
3. Utilises-tu des transactions ? Si oui, as-tu fait un Commit après le Delete ?

@+ Claudius

[delphino7]

le type du champ Code_client est integer (4)

[anapurna]

salut

si le champs est de type entier il ne doit pas y avoir de quote

Code :

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

1
2
3
4
5
requete := format('delete from Table_client where code_client= %s ',[edit1.text]);
query1.close;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.ExecSql;

@+ Phil

[delphino7]

je vais esayer sa et je vous tien au courant merci

[delphino7]

Code :

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

requete := format('delete from Table_client where code_client= %s ',[edit1.text]);

juste elle marche

aussi

Code :

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

requete := format('delete from Table_client where code_client= '+quotedstr(edit1.text);

juste elle marche

et

Code :

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

requete := format('delete from Table_client where code_client= '+(edit1.text);

juste elle marche
encore une fois désolé c t une erreur de ma par

maintenant voila quand je supprime l'enregistrement le dbgrid devien blanc les enregitrement disparesse comme si le tquery ce vide
quand je ferme la form et je louvre une deuxieme fois lenregistrement que jai supprimer napparé pas c tout afait normal parce que je lé supprimé les autres enregistrement apparesse moi ce que je veudrai si c possible
quand je supprime le tquery ne se vide ou bien ne se ferme pas seulement l'enregistrement que je supprime disparesse

merci a vous tous

[milaybe]

Je n'ai pas très bien compris ce que tu essaie de dire, mais je penses que la réponse se trouve dans les questions de Claudius:

Utilises-tu des transactions ? Si oui, as-tu fait un Commit après le Delete ?

[delphino7]

bonjour milaybe ta requete est juste c moi qui na pas su lutiliser

et la requete de claudius est juste aussi


merci a vous tous

maintenant je vais attaquer la modification 'update'


merci

[milaybe]

Ravi d'avoir pu t'aider.

Bonne progr

Sinon, n'oublies pas le tag Résolu

[delphino7]

salut tout le monde

es que quelqu'un peu maider a trouver comment faire une modification sur un enregistrement n sachant que je fait une recherche dabord je 'filtre ' dé que je trouve l'enregistrement je click sur le boutton modifier il me donne l'enregistrement que j'ai dans ma recherche (les champ a modifier) et de valider la modification

je veux juste un exemple si c possible


merci

[anapurna]

salut

pour la modification il faut connaitre la clé ensuite le reste n'est pas super compliqué au meme titre qu'un insert ou un delete

Code :

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

1
2
3
4
5
Update MATABLE 
 set MONCHAMP1 = MAVALEUR1 ,
      MONCHAMP2 = MAVALEUR2 
    ...
 where MONCHAMPSCLE = MAVALEURCLE

@+ Phil