delphi上传附件到Mysql数据库

Delphi小叮当 2014-03-20 02:15:11
我今天要做一个上传附件到Mysql数据库的功能
我的代码如下
var
StrT : string;
begin
//上传
if not FileExists(path) then exit;

with condatabase.DataModule1.ADOQuery1 do
begin
StrT := 'insert into imgtest(id,imgstor)values(:id,:imgstor)';
//showmessage(strt);
Close;
SQL.Clear;
SQL.Add(StrT);
Clipboard.SetTextBuf(PChar(sql.text));
with Parameters do
begin
ParamByName('id').value := id;
ParamByName('imgstor').LoadFromFile(path, ftBlob);
//ParamByName('MateFlag').Value := MateFlag;
end;
ExecSQL;
end;
end;


可是错误一直提示

eoleexception with message '无法找到路径' 我的这个导入的路径path是一个真实的路径
是一个新建的rar压缩包

求解决
谢谢
...全文
191 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hhhfff2010 2014-03-21
  • 打赏
  • 举报
回复
接分来了,哈,15字,没够么,再来,还不够么,再顶,顶,水一下,
sololie 2014-03-21
  • 打赏
  • 举报
回复
撸过接分
lyhoo163 2014-03-21
  • 打赏
  • 举报
回复
问题解决了就很好。接分。
duanhai 2014-03-21
  • 打赏
  • 举报
回复
Delphi小叮当 2014-03-20
  • 打赏
  • 举报
回复
我已经搞定 来人 接分 是我数据库连接的文件路径错啦 代码是正确的

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧