有关SQL的一个问题(20分)

  • 主题发起人 主题发起人 yueer
  • 开始时间 开始时间
Y

yueer

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序运行时会出现一下错误:
Project Raised exception class EDBEngineError with message 'Invalid BLOB
handle in Record buffer.'.Process stopped.
我想这是否是和SQL有关?
 
把原碼貼出來看看﹗
 
有关修改数据库的源代码:
DataModule1.Table_Line_RunMode.Edit;
DataModule1.Table_Line_RunMode.FieldByName( 'equip' ).Value := Edit1.Text;
DataModule1.Table_Line_RunMode.FieldByName( 'yxfs' ).AsString := Memo1.Text;
DataModule1.Table_Line_RunMode.FieldByName( 'bhgd' ).AsString := Memo2.Text;
DataModule1.Table_Line_RunMode.FieldByName( 'why' ).AsString := Memo3.Text;
DataModule1.Table_Line_RunMode.Post;
 
yxfs,bhgd,why字段必须是备注类型.
 
备注类型在SQL里是什么?
 
text, ntext
 
試一下這樣操作行不行,哈哈
DataModule1.Table_Line_RunMode.Edit;
DataModule1.Table_Line_RunMode.FieldByName( 'equip' ).Value := Edit1.Text;
TBlobField(DataModule1.Table_Line_RunMode.FieldByName( 'yxfs' )).Assign(memo1.Lines);
TBlobField(DataModule1.Table_Line_RunMode.FieldByName( 'bhgd' )).Assign(memo2.Lines);
TBlobField(DataModule1.Table_Line_RunMode.FieldByName( 'why' )).Assign(memo3.Lines);
DataModule1.Table_Line_RunMode.Post;
 
Blob字段保存信息,用assign
 
我的问题已经解决了,不过和上述各位说的都没有多大关系,不过还是感谢各位参与!
 
多人接受答案了。
 
后退
顶部