数据插入(30分)

  • 主题发起人 主题发起人 林枫
  • 开始时间 开始时间

林枫

Unregistered / Unconfirmed
GUEST, unregistred user!
我在插入数据时,总是提示如下错误:
'Key violation'

代码是:
procedure TForm2.Button1Click(Sender: TObject);
begin
with form1.query1 do
begin
close;
sql.clear;
sql.Add('insert into ibook(地址)');
sql.add('values(:ss)');
unprepare;
parambyname('ss').asstring:=edit1.text;
execsql;
open;
end;
end;
怎么解决呢?
 

parambyname('ss').asstring:=edit1.text;
execsql;
// execsql之后还open做什么??;
 
补充 :
如果你要Open 请在Open前加上:
SQL.Clear;
SQL.Add('Select * from iBook ');
 
问题自己解决了,在后面加上
'sql.add('select*from ibook');'就可以了
to轩辕散光:你说的对
谢谢
 
问题可以结束了
 
应该这样写,去掉open:
procedure TForm2.Button1Click(Sender: TObject);
begin
with form1.query1 do
begin
close;
sql.clear;
sql.Add('insert into ibook(地址)');
sql.add('values(:ss)');
parambyname('ss').asstring:=edit1.text;
execsql;
end;
end;
 
要是我想把ss替换成另外一个数据库里的字段的值
应该怎么写呢?[:)]
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
850
SUNSTONE的Delphi笔记
S
S
回复
0
查看
782
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
755
SUNSTONE的Delphi笔记
S
后退
顶部