L
luole103
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了图书管理系统,在借书模块中,借书功能的实现总是出现错误
插入错误:列名或所提供值的数目与表的定义不比配.
代码如下:
try
Query := TQuery.Create(nil);
Query.DatabaseName:=MainForm.Database1.DatabaseName;
begin
Query.SQL.Clear;
Query.SQL.Add('insert into borrowinfo valuesBookid,:Readerno,:Borrowdate)');
Query.ParamByName('Bookid').AsString := Bookid;
Query.ParamByName('Readerno').AsString:=Readerno;
Query.ParamByName('Borrowdate').AsDateTime :=Date;
Query.ExecSQL;
Query.Free;
end;
except
MessageDlg('借书不成功',mtError,[mbok],0);
end;
"Query.ParamByName('Borrowdate').AsDateTime :=Date;'不知道是不是这句错误,我的数据库表单borrowinfo中的Borrowdate字段是datetime.
请高手指教!急!!明天就要测试了,我的这个功能还不能实现.万分感激!!!
插入错误:列名或所提供值的数目与表的定义不比配.
代码如下:
try
Query := TQuery.Create(nil);
Query.DatabaseName:=MainForm.Database1.DatabaseName;
begin
Query.SQL.Clear;
Query.SQL.Add('insert into borrowinfo valuesBookid,:Readerno,:Borrowdate)');
Query.ParamByName('Bookid').AsString := Bookid;
Query.ParamByName('Readerno').AsString:=Readerno;
Query.ParamByName('Borrowdate').AsDateTime :=Date;
Query.ExecSQL;
Query.Free;
end;
except
MessageDlg('借书不成功',mtError,[mbok],0);
end;
"Query.ParamByName('Borrowdate').AsDateTime :=Date;'不知道是不是这句错误,我的数据库表单borrowinfo中的Borrowdate字段是datetime.
请高手指教!急!!明天就要测试了,我的这个功能还不能实现.万分感激!!!