Blob类型(oracle)的数据 在delphi中 如何用SQL语句插入?如能解决 有SQL语句不能处理BLOB类型,你可用TBLOBField去处理。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用sql语句是可以的,我见过。如果感兴趣,我给你找找。 insert into atable values('a',:avalue)params[0].value:=execsql希望对你有帮助。 我用到的例子,供参考:var Mem:TMemoryStream; Mem := TMemoryStream.Create; Mem.LoadFromFile(FileName); Mem.Seek(0,soFromBeginning); Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES(:NAME,:FILENAMES)'); Query1.ParamByName('Name').AsString := FileName; Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob); Query1.ExecSQL; Mem.Free; 如何保证TCP保持长时间连接呢! 大富翁怎么了! TFileStream的疑惑? 请问各位高手关于DLL 大家认为有必要去考认证or计算机等级证书之类的东西吗? 关于消息处理的问题,已经问了好几遍,郁闷! 图形按扭 高分求《Delphi 5.x 分布式多层应用电子商务篇》配书源码 高分求解算法 delphi5编译时提示找不到system.pas,如何解决 关于delphi使用blob字段的问题! 为什么每次在添加记录以后会出现“Error creating cursor handle.”这是什么原因(SQL)?
如果感兴趣,我给你找找。
params[0].value:=
execsql
希望对你有帮助。
var
Mem:TMemoryStream;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFromBeginning);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES(:NAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;