sql,增加一条记录提示有错,代码如下.看看是哪里写错了.(50分)

塬上独狼 · 2008-12-19

procedure TForm1.Button4Click(Sender: TObject); begin adoquery1.sql.clear; ADOQuery1.SQL.Add('insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'); ADOQuery1.ExecSQL; adoquery1.open; end;

andrew57 · 2008-12-19

ADOQuery1.ExecSQL; adoquery1.open; 间加入了 adoquery1.sql.clear; adoquery1.sql.text := 'select * from water1';

李翔鹏 · 2008-12-19

procedure TForm1.Button4Click(Sender: TObject); begin adoquery1.close; adoquery1.sql.clear; ADOQuery1.SQL.Add('insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'); ADOQuery1.ExecSQL; adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select * from water1'); adoquery1.open; end;

hfghfghfg · 2008-12-19

ADOQuery1.SQL.Add('insert   into   water1   ([开支用户])   values('''+Edit1.Text+''')');

芙蓉弟弟 · 2008-12-19

adoquery1.sql.clear; ADOQuery1.SQL。text:='insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'; ADOQuery1.ExecSQL;

芙蓉弟弟 · 2008-12-19

adoquery1.sql.clear; ADOQuery1.SQL。text:='insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'; ADOQuery1.ExecSQL;//增加   ADOQuery1.SQL。text:='select * from water1'; ADOQuery1.open;//增加后查询一次，也就是刷新

freeman_m530 · 2008-12-19

提示有错，是因为在没有关闭Query之前，你将Sql Clear了。 执行后，需要重新将SQL赋值，再OPEN

007vivi · 2008-12-19

with adoquery1 do  begin    close;    sql.clear;    SQL.text:='insert into water1 (开支用户) values  '''+Edit1.Text+''')';    ExecSQL;    close;    sql.text:='select * from water1';    open;   end;

贝尔 · 2008-12-19

adoquery1.close; adoquery1.sql.clear; ADOQuery1.SQL.Add('insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'); ADOQuery1.ExecSQL; 这样就行了，下面还要加个open，没用。open是针对select的，insert，delete，update用execsql

lilbdping · 2008-12-19

procedure TForm1.Button4Click(Sender: TObject); begin adoquery1.Close; adoquery1.sql.clear; ADOQuery1.SQL.Add('insert   into   water1   (开支用户)   values('''+Edit1.Text+''')'); ADOQuery1.ExecSQL; end;

levi · 2008-12-19

还有一个原因，当Edit1.Text中的值有'的时候，也会出错。所以最好用 ADOQuery1.SQL.Add('insert   into   water1   ([开支用户])   values('+QuotedStr(Edit1.Text)+')');

nolliman · 2008-12-19

ADOQuery1.ExecSQL; adoquery1.open; 建議樓主回去看下書先！！！

sql,增加一条记录提示有错,代码如下.看看是哪里写错了.(50分)

塬上独狼

Unregistered / Unconfirmed

andrew57

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

芙蓉弟弟

Unregistered / Unconfirmed

芙蓉弟弟

Unregistered / Unconfirmed

freeman_m530

Unregistered / Unconfirmed

007vivi

Unregistered / Unconfirmed

贝尔

Unregistered / Unconfirmed

lilbdping

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

nolliman

Unregistered / Unconfirmed

Similar threads