谁用过ehlib存文件?? 我用的 TDBXDataDriverEh+TMemTableEh ,存文件老是报:"ORA-22275: invalid LOB locator specified"用的就是那个loadfromfile的方法,用simpledataset完全没有问题,困惑死我了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 问题还没解决……ehlib存文件好像很有问题,换了TadoDataDriverEh,倒是能存上,修改、删除时报“89”+乱码的错 var ExpClass: TDBGridEhExportClass; Ext: string;begin if qryrb.IsEmpty then exit; Sd1.FileName := '成型车间模型日报' + mydate(riqi.Date); if Sd1.Execute then begin case Sd1.FilterIndex of 1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end; 2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end; 3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end; 4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end; 5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end; else ExpClass := nil; Ext := ''; end; if ExpClass <> nil then begin if UpperCase(Copy(Sd1.FileName, Length(Sd1.FileName) - 2, 3)) <> UpperCase(Ext) then Sd1.FileName := Sd1.FileName + '.' + Ext; SaveDBGridEhToExportFile(ExpClass, DBGridEh1, Sd1.FileName, true); //其中false为局部数据 end; end;end;引用DBGridEhImpExp单元用过不少项目,没有出现问题 搞错了吧?不是把dbgrideh另存为excel之类的而是通过 TDBXDataDriverEh+TMemTableEh 把文件往数据库里存 把字符串转化为TPersistentClass参数 多线程:为何线程结束不了 表A有一个字段ID,是自增的,在插入记录后如何获得插入记录的ID号。 如何实现世界时和北京时的转换? 可否动态增加DBGrid的Column,并设置它的属性? delphi中没有datetime型的变量吗?我要定义个datetime型的全局量,在整个程序中使用,怎么办啊? 三层程序的分发倒出!! 怎样在access中新建一个表 Delphi自带这种控件吗?(哪里可以找到) 书上的东西,怎样实现? 关于定时器问题 系统升级的一个问题,很久了也没有解决
ehlib存文件好像很有问题,换了TadoDataDriverEh,倒是能存上,修改、删除时报“89”+乱码的错
ExpClass: TDBGridEhExportClass;
Ext: string;
begin
if qryrb.IsEmpty then
exit;
Sd1.FileName := '成型车间模型日报' + mydate(riqi.Date);
if Sd1.Execute then
begin
case Sd1.FilterIndex of
1:
begin
ExpClass := TDBGridEhExportAsText;
Ext := 'txt';
end;
2:
begin
ExpClass := TDBGridEhExportAsCSV;
Ext := 'csv';
end;
3:
begin
ExpClass := TDBGridEhExportAsHTML;
Ext := 'htm';
end;
4:
begin
ExpClass := TDBGridEhExportAsRTF;
Ext := 'rtf';
end;
5:
begin
ExpClass := TDBGridEhExportAsXLS;
Ext := 'xls';
end;
else
ExpClass := nil;
Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(Sd1.FileName, Length(Sd1.FileName) - 2, 3)) <> UpperCase(Ext) then
Sd1.FileName := Sd1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass, DBGridEh1, Sd1.FileName, true);
//其中false为局部数据
end;
end;
end;引用DBGridEhImpExp单元
用过不少项目,没有出现问题
而是通过 TDBXDataDriverEh+TMemTableEh 把文件往数据库里存