help!delphi与oracle

Question

table1 对应员工表，表的主关键字段是oracle的employee_id.nextval，怎样插入记录？
以下为什么会提示错误？
var
next_id:integer;
query1.sql.add('select employee_id.nextval into next_id from dual');
table1.filedbyname('id').asinteger:=next_id;

Answer 1

试试这样！
query1.sql.add('INSERT INTO table1 (employee_id,……) Select employee_id.nextval,…… From dual');

Answer 2

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into bb values(xu.nextval,:wname,:wpric)');
query1.ParamByName('wname').AsString:=edit2.Text;
query1.ParamByName('wpric').AsInteger:=strtoint(edit3.Text);
query1.Prepare;
query1.Open;
错误:erro cusor

Answer 3

query1.Open();--->query1.ExecSQL();

Answer 4

写一个存储过程或包，把您见的序列名字传进去，返回他的NextVal或CurValue值，然后在您自己的过程中执行这个包或存储过程就行了，试试，因为太麻烦，不写了，我以前这么搞过。