Delphi 7 与数据库查询 求助! 本帖最后由 liangxiu2008 于 2009-08-21 13:50:21 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 改成这样sql.add(' Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('''+lsjhm.text+''',0,'''+Mdexnr.lines.strings+''','''','''+datetime.text +''''); 后面少了个括号,还有引号问题[Delphi]SQL.Add(Format('Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('%s',0,'%s','''','%s')',[QuotedStr(lsjhm.text),QuotedStr(Medxnr.lines.strings),QuotedStr(datetime.text)]))[/Delphi] sql.add(' Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('''+lsjhm.text+''',0,'''+Medxnr.lines.strings+''','''','''+datetime.text +''' '); 后面少了个括号,还有引号问题 SQL.Add(Format('Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('%s',0,'%s','''','%s')',[QuotedStr(lsjhm.text),QuotedStr(Medxnr.lines.strings),QuotedStr(datetime.text)]))效果不对,再试一次 先把你的sql语法错误改掉再说1.语句有错误,却东西2.对于字符型字段,插入的值要加引号,可以QuotedStr('值') sql.add(' Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('''+lsjhm.text+''',0,'''+Mdexnr.lines.strings+''','''','''+datetime.text +''''); 上面这个格式应该是可以的,但这里:Mdexnr.lines.strings你是什么意思呢?Mdexnr.lines.strings[i] 方括号里的数字表示第几行,根据实际给个值才可以,否则编译不了。 引号使用错误,最好使用参数查询,如果必须使用拼凑SQL语句的方法,那么在执行之前把SQL语句显示出来检查一下就知道那里错了。 建议先做一个存储过程,然后在用delphi调用 delphi有没这样的函数 请问delphi中有没有类似C++中的‘\n’转义换行符? 怪怪怪!!事务处理的问题,出现一次出错后再用事务就出问题了 数据库控件共用问题 注册表的问题 请问delphi与vb个有什么有点,各自擅长那方面呢? 窗体嵌套问题,有兴趣来坐坐。 delphi操作excel2003,如何获得当前sheet中已用的行和列数? 快来抢分,问一个日期数据类型(Tdatetime)的小问题 录入界面问题,来者有分 在stringgrid 定位出错 Delphi新建一个窗口?
sql.add(' Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('''+lsjhm.text+''',0,'''+Mdexnr.lines.strings+''','''','''+datetime.text +'''');
[Delphi]SQL.Add(Format('Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('%s',0,'%s','''','%s')',[QuotedStr(lsjhm.text),QuotedStr(Medxnr.lines.strings),QuotedStr(datetime.text)]))[/Delphi]
SQL.Add(Format('Insert into [HQ].crm.dbo.msg_outbox(Receiver,MsgType,MsgTitle,MMSContentLocation,SendTime) values ('%s',0,'%s','''','%s')',[QuotedStr(lsjhm.text),QuotedStr(Medxnr.lines.strings),QuotedStr(datetime.text)]))效果不对,再试一次
1.语句有错误,却东西
2.对于字符型字段,插入的值要加引号,可以QuotedStr('值')