＋设为首页 ＋添加到收藏夹
我用的mysql 数据库，为什么select photo from baseinfoTable 会报告table does not exists呢而换其它的类型字段就没问题了呢，其中photo 是longblob字段(暂时为NULL）,我发现只要查询blob类型的字段都会出错，困惑了好久都没解决
不能够直接使用数据库的内容,必须使用二进值读取;
procedure TForm1.Button1Click(Sender: TObject);
var stream1:tmemorystream;
begin
table1.Insert;
stream1:=Tmemorystream.Create;
stream1.LoadFromFile(d:\uuu\luck.doc);
stream1.Position:=0;
Tblobfield(table1.FieldByName(docfield)).loadfromstream(stream1);
try
table1.Post;
finally
begin
stream1.Free;
end
end;
ShowMessage(文件导入数据库成功!);
end;
procedure TForm1.Button2Click(Sender: TObject);
var str:tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(table1.FieldByName(docfield)).savetostream(str);
str.SaveToFile(d:\uuu\luck1.doc);
str.Free;
ShowMessage(文件导出数据库成功!);
end;
