数据库:
代码:procedure TBooking.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
try
close;
sql.Clear;
sql.Add('insert into Book values(:t,:p,:e,:n,:i,:o,:m)');
Parameters.ParamByName('t').Value:=date;
Parameters.ParamByName('p').Value:=edit1.Text;
Parameters.ParamByName('e').Value:=combobox2.Text;//出错行
Parameters.ParamByName('n').Value:=combobox1.Text;
Parameters.ParamByName('i').Value:=datetimepicker1.DateTime;
Parameters.ParamByName('o').Value:=datetimepicker2.DateTime;
Parameters.ParamByName('m').Value:=LogIn.Edit1.Text;
ExecSQL;
except
showmessage('数据处理异常!');
end;
end;
end;
代码:procedure TBooking.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
try
close;
sql.Clear;
sql.Add('insert into Book values(:t,:p,:e,:n,:i,:o,:m)');
Parameters.ParamByName('t').Value:=date;
Parameters.ParamByName('p').Value:=edit1.Text;
Parameters.ParamByName('e').Value:=combobox2.Text;//出错行
Parameters.ParamByName('n').Value:=combobox1.Text;
Parameters.ParamByName('i').Value:=datetimepicker1.DateTime;
Parameters.ParamByName('o').Value:=datetimepicker2.DateTime;
Parameters.ParamByName('m').Value:=LogIn.Edit1.Text;
ExecSQL;
except
showmessage('数据处理异常!');
end;
end;
end;
没有写括号内的内容,对数据库而言就是全部。
于是自动编号的部份会出错。
说不定还有别的也会出错。