我写了一段代码,是这样的
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert exp(序号,职工号,所在单位,所在部门) values('''+trim(edit1.text)+''' , '''+trim(edit1.text)+''', '''+trim(edit1.text)+ ''', '''+trim(edit1.text)+''')');
query1.ExecSQL;
query1.SQL.Clear;
query1.sql.Add('select * from exp');
query1.Active:=true;
end;出错提示是着样的:general sql error [microsoft][odbc sql server driver][sql server]line 1:incorrect syntax near', '.
究竟应该怎么写?
请各位大哥帮帮忙了
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert exp(序号,职工号,所在单位,所在部门) values('''+trim(edit1.text)+''' , '''+trim(edit1.text)+''', '''+trim(edit1.text)+ ''', '''+trim(edit1.text)+''')');
query1.ExecSQL;
query1.SQL.Clear;
query1.sql.Add('select * from exp');
query1.Active:=true;
end;出错提示是着样的:general sql error [microsoft][odbc sql server driver][sql server]line 1:incorrect syntax near', '.
究竟应该怎么写?
请各位大哥帮帮忙了
解决方案 »
- 弱弱的问个很简单的问题
- FastReport和ReportMachine如何直接引用Form的DataSet?
- 怎样执行远端linux服务器上的命令
- 学妹请教,有关点击dbgrid中按扭弹出listbox后返回的问题?
- 怎么定位dbgrid列鼠标的位置!我只想在第三列之后写入东西!
- DELPHI6帮助
- 十万火急--高分求教怎样在DELPHI数据库中调用EXCLE表?
- 再自定義的function,procedure 中是否不能用try結構
- 为什么单步执行能成功,直接运行就提示无法更新,当前被锁定
- 拷贝ACCESS 库
- 紧急求救,有谁用delphi 开发过 snmp 代理啊?
- 那位玩过打印服务器,直接操作端口怎么玩?
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert exp(序号,职工号,所在单位,所在部门) values('''+trim(edit1.text)+''' , '''+trim(edit1.text)+''', '''+trim(edit1.text)+ ''', '''+trim(edit1.text)+''')');
query1.ExecSQL;
query1.SQL.Clear;
query1.sql.Add('select * from exp');
query1.Active:=true;
end;是全角符的问题!!改成上面那样就好了
btw:上午不是发过这样的张贴吗?
半角符:, //关闭输入法法btw: 如果问题解决请尽快结贴!!包括上一张!免得热心人继续回复!
sqlstr='insert exp(序号,职工号,所在单位,所在部门) values("%s","%s",%s,"%s")';begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(format(sqlstr,[edit1.text, edit2.text, edit3.text, edit4.text]));
query1.ExecSQL;
query1.SQL.Clear;
query1.sql.Add('select * from exp');
query1.Active:=true;
end;这样写出错机会少很多,而且程序也美观一些.
看到那些符号我头都晕啦。用变量不是更好吗?
sql.add('insert into ****');
sql.add('values(:a,:b,:c)');
parameters.parambyname('a').value:=edit1.text;
.
.
.
.
.
exesql;
这样看起来不是清晰 一点吗?