X
xbh2
Unregistered / Unconfirmed
GUEST, unregistred user!
笨人编写的一段插入数据的程序:
access+ado,其中“记录数”为索引字段
var number:integer;
begin
adoquery1.Last;
number:=adoquery1['记录数']+1;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 记录表');
adoquery1.SQL.Add('values ("'+inttostr(number)+'","'+datetostr(datetimepicker1.date)+'","'+combobox1.text+'","'+edit1.text+'","'+edit2.text+'","'+edit3.text+'","'+combobox2.text+'","'+edit4.text+'","'+input1.text+'");');
adoquery1.ExecSQL;
adoquery1.Active:=true;
end;
运行后错误,总是提示索引字段插入了重复值,但分析程序并没有插入重复值,这是为什么?
access+ado,其中“记录数”为索引字段
var number:integer;
begin
adoquery1.Last;
number:=adoquery1['记录数']+1;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 记录表');
adoquery1.SQL.Add('values ("'+inttostr(number)+'","'+datetostr(datetimepicker1.date)+'","'+combobox1.text+'","'+edit1.text+'","'+edit2.text+'","'+edit3.text+'","'+combobox2.text+'","'+edit4.text+'","'+input1.text+'");');
adoquery1.ExecSQL;
adoquery1.Active:=true;
end;
运行后错误,总是提示索引字段插入了重复值,但分析程序并没有插入重复值,这是为什么?