请高手指教!急!!明天就要测试了,我的这个功能还不能实现.万分感激!!!(0分)

  • 主题发起人 主题发起人 luole103
  • 开始时间 开始时间
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 values(:Bookid,: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.
请高手指教!急!!明天就要测试了,我的这个功能还不能实现.万分感激!!!
 
Query.SQL.Add(
'insert into borrowinfo(bookid, readerno, borrowdate) values(:Bookid,:Readerno,:Borrowdate)'
);
给分!!!!
 
来晚了.复制~~
Query.SQL.Add(
'insert into borrowinfo(bookid, readerno, borrowdate) values(:Bookid,:Readerno,:Borrowdate)'
);
如果是整张表的插入就可以省略字段
 
这样没用,我试过,我原以为是程序的问题,可是我改了几次都是有错,后来我试这重新创建一个borrowinfo表单,和原来一样的字段和类型,结果这个问题解决了.真是太爽了!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
926
SUNSTONE的Delphi笔记
S
I
回复
0
查看
977
import
I
后退
顶部