现有一窗体,包含一个Edit控件和七个Memo控件,怎么样才能把Memo中的字符串添加到数据库表中呢?代码如下: begin
Try
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Insert 首诊病历 values(:a,:b,:c,:d,:e,:f,:g,:h');
Parameters.ParamByName('a').Value := StrToInt(Edit16.Text);
Parameters.ParamByName('b').Value := Trim(memo1.text);
Parameters.ParamByName('c').Value := Trim(memo2.text);
Parameters.ParamByName('d').Value := Trim(memo3.text);
Parameters.ParamByName('e').Value := Trim(memo4.text);
Parameters.ParamByName('f').Value := Trim(memo5.text);
Parameters.ParamByName('g').Value := Trim(memo6.text);
Parameters.ParamByName('h').Value := Trim(memo7.text);
ExecSQL;
end;
Application.MessageBox('添加成功。','提示',64);
Except
Application.MessageBox('系统出错。','提示',64);
Close;
end;
end;
运行后报错,说是"@P8'附近有语法错误",那应该怎么写呢?谢谢!
Try
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Insert 首诊病历 values(:a,:b,:c,:d,:e,:f,:g,:h');
Parameters.ParamByName('a').Value := StrToInt(Edit16.Text);
Parameters.ParamByName('b').Value := Trim(memo1.text);
Parameters.ParamByName('c').Value := Trim(memo2.text);
Parameters.ParamByName('d').Value := Trim(memo3.text);
Parameters.ParamByName('e').Value := Trim(memo4.text);
Parameters.ParamByName('f').Value := Trim(memo5.text);
Parameters.ParamByName('g').Value := Trim(memo6.text);
Parameters.ParamByName('h').Value := Trim(memo7.text);
ExecSQL;
end;
Application.MessageBox('添加成功。','提示',64);
Except
Application.MessageBox('系统出错。','提示',64);
Close;
end;
end;
运行后报错,说是"@P8'附近有语法错误",那应该怎么写呢?谢谢!
解决方案 »
- 对Adodataset.Recordset直接赋值报错:Field '' has no dataset
- 征求Borland公司和Borland专家的徽标.
- 我们还要不要继续再学Delphi?
- delphi 多线程实时通讯 求救
- 导出数据到excel时前面的0被丢失了
- ****简单的多层分布式连接的烦恼****
- 求教呀
- 小女子初学delphi,有一个小问题,请各位大哥帮忙!在线等待
- 请高手详细给小弟讲一下Delphi中项目组的使用方法?项目组中各项目的窗体可以相互调用吗?
- 有关clientsocket的奇怪问题
- UniDAC出现"Net packets out of order"
- copyfile的问题
估计是memo里有',:号之类的特殊符号,语句没有自动转,用这个函数转为字符串应该正常