编译时没有出错,运行时提错误Error creating cursor handle!代码如下:
Query1.SQL.Clear;
Query1.SQL.Add('insert into Pass(NoNumber) values('''+addedit.text+''')');
Query1.Open;
Query1.SQL.Clear;
Query1.SQL.Add('insert into Pass(NoNumber) values('''+addedit.text+''')');
Query1.Open;
改为:query1.execsql;
需要返回记录集时使用Open
Query1.SQL.Clear;
Query1.SQL.Add('insert into Pass(NoNumber) values('''+addedit.text+''')');
Query1.ExecSQL;
插入,更新,删除记录时得使用ExecSQL;
Select(有返回值)时使用Open;
ExecSQL调用
比如:用ssql替代你的sql.add()括号的值 ssql :string;
ssql:='insert into Pass(NoNumber) values('''+addedit.text+''')';看看ssql的值到底是什么.