Manipulation base de donnée SQL server 2000 composant Tquery [Résolu]

Signaler
Messages postés
3
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
24 mars 2008
-
Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
1 avril 2010
-
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

2 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
34
on pose la question dans le sujet pas dans le titre!







<hr size="2" width="100%" />


http://deefaze.gnomz.com
Messages postés
58
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
1 avril 2010

Slt

Kand tu fait un insert via un query tu doit le suivre par un select pour ne pas avoir de message d'erreur

exemple

insert into tab values(1,2,3)
select * from tab where champs=222

bon courage