1:错误提示,list index out of bound (3),这是什么原因?
2:错误提示:cannot ...on a close dataset,这又是什么原因?
2:错误提示:cannot ...on a close dataset,这又是什么原因?
解决方案 »
- 请问idtcpserver与idtcpclient互通问题
- 如何将程序中的内容“拖”到桌面或文件夹中(DoDragDrop高难度高分问题)
- 基础的简单的问题-------在线等待!
- 关于汉字的编码问题,看到一些人找了些复杂的算法,现写了个简单的,免费公布如下.(有人重复发贴问啊.)
- speedbutton 的这个效果如何实现???
- 想用DBGRID代替Combobox的下拉框写个组件,怎么写呢,有没有相关的代码,GZ有分!
- 同样的问题,同样的分数,在DELPHI, BCB两版同时发布,结果如何?
- 在c/s结构中数是否一般不用据敏感控件?
- 初学Delphi几个问题
- 串口新问题求救
- 100 请教 !!! 程序运行时,动态增加组件,设置可以保存
- 很有意思的问题请同学们帮帮忙
2: 你的query 中的ExcuteOption 設置有關! 提示不能操作一個已經關閉了的數據集!
2: 你的query没有open的时候就进行了操作的 应该先打开的
procedure TForm1.ButtonInPutClick(Sender: TObject);
var
str : string;
picstream:tadoblobstream;
begin
//删去了一些不相关的代码;
ado.Close;
ado.sql.Clear;
ado.sql.Add('insert into d_wzclxx(lsh,wzlk,wzlb,t1) values(:lshlsh,:lklk,:wzlblb,:t1t1)');//t1是image类型的;
ado.Parameters[0].Value:=str;
ado.Parameters[1].Value:=place.Text;
ado.Parameters[2].Value:=DBLookupComboBox1.Text;
picstream:=tadoblobstream.Create(tblobfield(ado.Fields[3]),bmWrite);//到这里就出现了错误1,如果前面加上ado.edit,就会出现错误2(错误1,错误2见问题);
picstream.LoadFromFile(imagefile1);
picstream.Position:=0;
tblobfield(ado.Fields[3]).loadfromstream(picstream);
ado.ExecSQL;
end;