插入記錄的怪現象
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裡面去執行卻正常,成功增加一條記錄。
請問這是什麼原因?