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