我写了一段代码,是这样的
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', '.
究竟应该怎么写?
请各位大哥帮帮忙了
解决方案 »
- 大家看看这个结果是多少
- 在DLL中能否创建 Application ??
- 使用sendmessage时,如何获得Twebbrowser里的html的按扭的句柄????
- 奇文共赏:怎样用辩证的观点放屁? 欢迎评论
- 求排列组合算法
- 如何解决屏幕分辨率的问题
- ★★如何更改inputbox中信息内容部分的字体,及如何约束输入的类型?
- 这个问题很急,请高手近来侃侃!
- 送分题:怎样使MdiChild窗体在创建时出现在主窗体的中间??
- 高分,高人来得,请问delphi如何调用oracle的存储过程,并返回视图。
- 紧急求救,有谁用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;
这样看起来不是清晰 一点吗?