插入記錄的怪現象

gsun 2003-10-15 10:56:21
我的代碼如下:(數據庫采用Access 2000,tree_item是其中的一個表)
procedure addnew; //增加一條新記錄
var addsql:string;
begin
if (edname.Text<>'') and (treeview1.Selected.Index<>-1) then
begin
addsql:='insert into tree_item (first,second) values ('+quotedstr(edname.text)+','+quotedstr(treeview1.selected.text)+')';
qry3.close;
qry3.sql.clear;
qry3.sql.add(addsql);
qry3.ExecSQL;
showmessage('Add Record success!');
end else showmessage('Please input item_name and selected one of treeview!');
end;

假設edname的值為aaa,treeview1.selected.text的值為bbb
那麼addsql:='insert into tree_item (first,second) values ('aaa','bbb')

現在的問題是程序運行此代碼是提示錯誤"Insert into 陳述式的語法錯誤"
可直接把addsql放到SQL裡面去執行卻正常,成功增加一條記錄。

請問這是什麼原因?
...全文
27 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
pengdali 2003-10-15
  • 打赏
  • 举报
回复
procedure addnew; //增加一條新記錄
var addsql:string;
begin
if (edname.Text<>'') and (treeview1.Selected.Index<>-1) then
begin
addsql:='insert into tree_item (first,second) values ('''+quotedstr(edname.text)+''','''+quotedstr(treeview1.selected.text)+''')';
qry3.close;
qry3.sql.clear;
qry3.sql.add(addsql);
qry3.ExecSQL;
showmessage('Add Record success!');
end else showmessage('Please input item_name and selected one of treeview!');
end;

34,575

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧