SQL.Add('insert into book(Code,Name,Author,Press,OutDate,Cost,Memo)'+ ' values (:code,:name,:Author,:Press,:OutDate,:Cost,:Memo)');
Parameters.ParambyName('Code').value := CodeEdit.Text;
Parameters.ParambyName('Name').value := NameEdit.Text;
Parameters.parambyName('Author').value := AuthorEdit.Text;
parameters.parambyname('Press').value := PressEdit.Text;
try
parameters.Parambyname('OutDate').Value := StrToDate(OutTimeEdit.text);
except
MessageDlg('参数<出版时间>设置错误',mtError,[mbok],0);
Exit;
end;
try
parameters.paramByName('Cost').Value := StrTofloat(CostEdit.text);
except
MessageDlg('参数<价格>设置错误',mtError,[mbok],0);
Exit;
end;
try
parameters.ParamByName('Memo').Value := Memo1.text;
except
MessageDlg('参数<备注>设置错误',mtError,[mbok],0);
end;
ExecSql;
MessageDlg('入库成功',mtError,[mbok],0);
end;上面的一段代码运行时要提示insert into 语法错误,memo字段没有发现,如果我把memo去掉,并把try
parameters.ParamByName('Memo').Value := Memo1.text;
except
MessageDlg('参数<备注>设置错误',mtError,[mbok],0);
end;
也去掉,编译就能通过,我在想是不是我的备注memo字段设置错误,因为它在数据中是备注形的,当然把备注形改成文本形可以通过编译,我想问大家,如果让memo字段保持备注形通过编译,谢谢
Parameters.ParambyName('Code').value := CodeEdit.Text;
Parameters.ParambyName('Name').value := NameEdit.Text;
Parameters.parambyName('Author').value := AuthorEdit.Text;
parameters.parambyname('Press').value := PressEdit.Text;
try
parameters.Parambyname('OutDate').Value := StrToDate(OutTimeEdit.text);
except
MessageDlg('参数<出版时间>设置错误',mtError,[mbok],0);
Exit;
end;
try
parameters.paramByName('Cost').Value := StrTofloat(CostEdit.text);
except
MessageDlg('参数<价格>设置错误',mtError,[mbok],0);
Exit;
end;
try
parameters.ParamByName('Memo').Value := Memo1.text;
except
MessageDlg('参数<备注>设置错误',mtError,[mbok],0);
end;
ExecSql;
MessageDlg('入库成功',mtError,[mbok],0);
end;上面的一段代码运行时要提示insert into 语法错误,memo字段没有发现,如果我把memo去掉,并把try
parameters.ParamByName('Memo').Value := Memo1.text;
except
MessageDlg('参数<备注>设置错误',mtError,[mbok],0);
end;
也去掉,编译就能通过,我在想是不是我的备注memo字段设置错误,因为它在数据中是备注形的,当然把备注形改成文本形可以通过编译,我想问大家,如果让memo字段保持备注形通过编译,谢谢
解决方案 »
- 为什么delphi中有些事件不能被共享?
- 如何动态调用ActiveFormProj1.ocx,并且ActinForm放到主程序的一个Panel里面显示?
- 用Delphi控制Excel问题,解决即给分,在线等
- 请教各位大虾:第三方控件中的 cxLookupComboBox 的单击事件(Onclick)为什么无效的?救命啊!
- Delphi代码优化 整数篇
- 请教各位一个头大的问题(关于串口通讯的问题)?
- 我已经可以通过以下代码得到常用汉字的声母,但是有的字却出不来, 如“婷”,“黛”等等,请问有什么补救办法。
- 各位中秋愉快,我可在加班,请帮小弟怎样在一个Tmemo的控件打开的文件中查找包含有<Table>以及与之相对应的</Table>的lines,可以加分,今
- TADOConnection控件
- install shield太复杂,有没有简单一些,可以安装delphi的软件?最好有网页地址//牛虻
- 怎么给一个字符串进行MD5加密啊?谁有这个函数啊?
- 数据库为SQL SERVER,在DELPHI中怎样显示和追加TEXT类型的数据
Declaration
property Memo: TMemo;Category
Memo
在Access数据库中Memo为关键字,所以不能取Memo作为字段名。后面我就取了个Re。
还有,year、value、money等都为关键字。