delphi与sql中的代码有关问题

delphi与sql中的代码问题
我在sql中建立一张表，想从delphi中输入信息到sql表中，表有3列客户姓名，身份证号，房间号，delphi中也是响应的这3个，后面跟edit1，edit2，edit3，外加一个button，到时候用做确定保存键，请问我这个button的代码怎么写？
with adoquery1 do
begin
close;
Sql.Clear;
sql.Add('insert into kehuruzhudengji(已住客户姓名,身份证号,房间号)Values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''')')
这个是我写的，大家看看，怎么弄才好，还有kehuruzhudengji是表名，谢谢大家~

------解决方案--------------------

Delphi(Pascal) code


procedure TForm6.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('无输入，请输入查询要求!')
else
with adoquery1 do
begin
close;
Sql.Clear;
sql.Add('insert into kehuruzhudengji(已住客户姓名,身份证号,房间号)Values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''')');
[color=#FF6600]ExecSQL;[/color]
end;
end;

------解决方案--------------------
不好意思，上面写错了
procedure TForm6.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('无输入，请输入查询要求!')
else
with adoquery1 do
begin
close;
Sql.Clear;
sql.Add('insert into kehuruzhudengji(已住客户姓名,身份证号,房间号)Values('''+edit1.Text+''','''+edit2.Text +''','''+edit3.Text+''')');
execute;
end;
end;

------解决方案--------------------
procedure TForm6.Button1Click(Sender: TObject);
 var  
  csql:string;
begin
  csql:='insert into  kehuruzhudengji(已住客户姓名,身份证号,房间号)Values( ;
  csql:=csql +  quotedStr(edit1.text) + ',' + quotedStr(Edit2.text)+ ',' + quotedStr(edit3.text)+ ')';

if Edit1.Text='' then
ShowMessage('无输入，请输入查询要求!')
else
with adoquery1 do
begin
close;
Sql.Clear;
sql.Add(csql);
exeSQL;
end;
end;

------解决方案--------------------
exeSQL;这句不能少啊，没执行SQL怎么会保存进来的

------解决方案--------------------

探讨
exeSQL;这句不能少啊，没执行SQL怎么会保存进来的

------解决方案--------------------
ExecSQL
是这个才对。。。。。
------解决方案--------------------
ExecSQL,要执行才能保存的。

delphi与sql中的代码有关问题

相关推荐