bonjour
voila ce que j'ai fait mais lemessage d'erreur s'affiche masi l'ajout ce fait
le program:
procedure TForm1.Button2Click(Sender: TObject);
var requete : string;
begin
requete := 'insert into tableclient (code_client,nom_client,prenom_client,adresse_client,mail_client,tel_client,portable_client) values(:x1,:x2,:x3,:x4,:x5,:x6,:x7)';
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').asstring := edit5.text;
form2.query1.parambyname('x6').asinteger := strtoint(edit6.text);
form2.query1.parambyname('x7').asinteger := strtoint(edit7.text);
form2.query1.execsql;
form2.Query1.Free;
form2.Query1.Open;
end;
message derreur:
project.prpjet.exe raised exeption class EAacessviolation with message'acess violation at adress0047d2A6 in module 'project.exe'read of adress '00000000' process stoped use step or run to continu
merci
Afficher la suite