Delphi里','附近有语法错误，是什么原因哇？
cmd1.CommandText :=('insert into kckmenu(货号,仓库,库存数量,库存金额,库存单价) values ('''+StringGrid1.Cells [1,i]+''','''+StringGrid1.Cells [5,i]+''','''+StringGrid1.Cells [4,i]+''','+StringGrid1.Cells [7,i]+','+StringGrid1.Cells [6,i]+')');
cmd1.Execute ;
和
cmd1.CommandText:='update kckmenu set 库存数量=库存数量+'''+StringGrid1.Cells [4,i]+''' where 货号='''+StringGrid1.Cells [1,i]+'''';
cmd1.Execute;
都出现','附近有语法错误啊
请高手指点
[解决办法]
cmd1.CommandText:='update kckmenu set 库存数量=库存数量+'+StringGrid1.Cells [4,i]+' where 货号='''+StringGrid1.Cells [1,i]+'''';
cmd1.Execute;
[解决办法]
cmd1.CommandText :=('insert into kckmenu(货号,仓库,库存数量,库存金额,库存单价) values ('''+StringGrid1.Cells [1,i]+''','''+StringGrid1.Cells [5,i]+''','+StringGrid1.Cells [4,i]+','+StringGrid1.Cells [7,i]+','+StringGrid1.Cells [6,i]+')');
cmd1.Execute ;
[解决办法]
cmd1.CommandText:='update kckmenu set [库存数量]='''+StringGrid1.Cells [4,i]+''' where [货号]='''+StringGrid1.Cells [1,i]+'''';
[解决办法]
StringGrid1.Cells [4,i]这个可能含有‘，’，想办法处理掉。
库存数量=库存数量+'''+StringGrid1.Cells [4,i]+'''
这个语句也不对：数据类型是
数据=数据＋字符
我觉得应该是
'库存数量=库存数量+'+StringGrid1.Cells [4,i]+.....
红线部门一定要确保没有“，”的符合数字规范的字符。
[解决办法]
[解决办法]
showmessage(cmd1.CommandText);
自己看下不就清楚了
[解决办法]
showmessage可以看的很清楚
[解决办法]
引号不匹配导致的
[解决办法]
('''+StringGrid1.Cells [1,i]+
应该是
(''''+StringGrid1.Cells [1,i]+
作为字符串传进去的
[解决办法]
[解决办法]
查询分析器里面调通顺了再放到程序里面去
[解决办法]
使用
try...except 在except里面将 运行时的 sql执行语句抛出。查看一下不就完了。
try
//失败才跳进 except里执行
except on e:Exception do
ShowMessage(e.Message);
end;
[解决办法]
改为：
cmd1.CommandText :=('insert into kckmenu(货号,仓库,库存数量,库存金额,库存单价) values ('''+StringGrid1.Cells [1,i]+''','''+StringGrid1.Cells [5,i]+''','''+StringGrid1.Cells [4,i]+''','''+StringGrid1.Cells [7,i]+''','''+StringGrid1.Cells [6,i]+''')');
cmd1.Execute ;
和
cmd1.CommandText:='update kckmenu set 库存数量=库存数量+'''+StringGrid1.Cells [4,i]+''' where 货号='''+StringGrid1.Cells [1,i]+''' ';
cmd1.Execute;
你再试试
[解决办法]
第一句少了 单引号 。第二句 最后4个单引号处要用空格断开
[解决办法]
看上去像是少了个空格或多了个,号造成的
[解决办法]
cmd1.commandText:=format('insert into kckmenu(货号,仓库,库存数量,库存金额,库存单价) values (%s,%s,%f,%f,%f)',[quotedstr(StringGrid1.Cells [1,i),quotedstr(StringGrid1.Cells [5,i]),StringGrid1.Cells [4,i],StringGrid1.Cells [7,i],StringGrid1.Cells [6,i]]);
cmd1.Execute;
cmd1.CommandText:=format('update kckmenu set 库存数量=库存数量+%f where 货号=%s',[StringGrid1.Cells [4,i],quotedstr(StringGrid1.Cells [1,i])]);
cmd1.Execute;
用这种方法测试下。
[解决办法]
把赋值给 cmd1.CommandText:= 后面的语句 赋值给 String ，然后把String ShowMessage出来，就知道结果了 ；
[解决办法]
[解决办法]
对于ACCESS:
字符和时间类型要用"''"（2个单引号），数字和逻辑不要单引号。记住这个。
[解决办法]
恩 用showmessage sql.text