为什么我用的是execsql,还是提示"CommandText does not return a result set?"
代码如下:(点击保存按钮的函数实现)
procedure TForm5.Button5Click(Sender: TObject);
begin
DataM.ADOQuery3.Connection:=DataM.ADOConnection1;
with DataM.ADOQuery3 do
begin
Close;
sql.Text:='insert into patients(pname,pid,remain) values('''+Form5.E_apn.Text+''','''+Form3.E_pid.Text+''','''+Form5.E_arm.Text+''')';
ExecSQL;
active:=true;
showmessage('添加成功!');
Form3.Show;
Form5.Close;
Form3.E_pid.SetFocus;
end
end;
数据库做了一个patients表,没有设置主键,之前设置了,可老是提示不能插入重复键。
望指点,多谢!
代码如下:(点击保存按钮的函数实现)
procedure TForm5.Button5Click(Sender: TObject);
begin
DataM.ADOQuery3.Connection:=DataM.ADOConnection1;
with DataM.ADOQuery3 do
begin
Close;
sql.Text:='insert into patients(pname,pid,remain) values('''+Form5.E_apn.Text+''','''+Form3.E_pid.Text+''','''+Form5.E_arm.Text+''')';
ExecSQL;
active:=true;
showmessage('添加成功!');
Form3.Show;
Form5.Close;
Form3.E_pid.SetFocus;
end
end;
数据库做了一个patients表,没有设置主键,之前设置了,可老是提示不能插入重复键。
望指点,多谢!
解决方案 »
- 有谁用过QuickReport.v5.04 For D2009的没有,不能解决的问题
- 谁能告诉我这些键值是那些键?
- 用getwindowtext能不能获得窗体内label控件的文字?
- 脑子短路,求助!超级简单!!!!
- SQL自增长字段,新增记录时,如何在DBGrid显示该字段的值。
- “case statement ”语句如何应用于String类型
- delphi6 ADOd
- 高手关注一下,关于滚动条问题。
- 如何判断是否连上Internet(用Modem上网)
- 如何实现象ASpack的win32 dll,exe压缩?非常急!
- TwwQuery,TwwDBGrid 这些控件哪里来的?到哪里下载?
- RICHEDIT 在线等啊~!急啊~!
begin
DataM.ADOQuery3.Connection:=DataM.ADOConnection1;
with DataM.ADOQuery3 do
begin
Close;
sql.Text:='insert into patients(pname,pid,remain) values('''+Form5.E_apn.Text+''','''+Form3.E_pid.Text+''','''+Form5.E_arm.Text+''')';
ExecSQL;
//active:=true;
showmessage('添加成功!');
Form3.Show;
Form5.Close;
Form3.E_pid.SetFocus;
end
end;