没分了,可是这个小问题我就是不会,请大家无论如何帮我指正; (0分)

阿虫

Unregistered / Unconfirmed
GUEST, unregistred user!
我想保存数据时,进行验证是否输入数据和原来值重复。可遇到一个小问题,
位置我在下面程序中指出:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
query1.SQL.clear;
query1.sql.add('select * from chaobo1 where bh=:key_0');//BH是主键,也是我要判断
//是否重复的值。
query1.requestlive:=true;
query1.Params[0].asstring:=edit2.text;//EDIT2是我用来输入BH的文本框,其它字段记录
//也有相应的EDIT输入其值。
query1.active:=true;
if query1.recordcount=0 then
begin
query1.append;
end

else
begin
if application.messagebox(pchar('数据重复'),'error',mb_yesno+mb_iconquestion)=idyes then
query1.Edit;
end;
if query1.state in [dsedit,dsinsert] then
begin
insert into chaobo(xuh,jh); //我想在这里输入其它的字段内容,其中的字段XUH,JH,
//输入值是:'22','供电',问题就出在这里,运行时老提示
此处应是‘(’可是INTO被发现。为什么,我不因该这样输入
其它字段内容吗?
values('22','供电');
QUERY1.POST;
end;

在线等候答案,人情后补!!!!
 
啊?
insert into chaobo(xuh,jh) values('22','供电');
这是 PB 中的写法呀!
 
query1.sql.add('insert into chaobo(xuh,jh) values(''22'',''供电'')');
应该这样吧
 
你的写法我比较不适应,不过将这两句
insert into chaobo(xuh,jh); //我想在这里输入其它的字段内容,其中的字段XUH,JH,
//输入值是:'22','供电',问题就出在这里,运行时老提示
此处应是‘(’可是INTO被发现。为什么,我不因该这样输入
其它字段内容吗?
values('22','供电');
改为
query1.sql.clear;
query1.sql.add('insert into chaobo(xuh,jh) values(''22'',''供电'')');
应该可以运行。纯粹个人观点,不妥见谅
 
顶部