一个使用adoquery的出错的例子,请告诉我出错的原因(求教)
if edit1.text='' then exit;
adoquery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ ExtractFilePath(Application.Exename) + 'data\data.mdb;' ;
adoquery1.SQL.Clear ;
adoquery1.Close ;
s:= 'select * from qz where 群组=''' +edit1.text+'''' ;
adoquery1.SQL.Add(s);
adoquery1.Open ;
i:=adoquery1.RecordCount ;
adoquery1.SQL.Clear ; //出错的地方,我使用的是5.0 为什么会出错?
adoquery1.Close ;
if i<1 then
begin
s:= 'insert into qz(群组) values('''+ edit1.text+''')' ;
adoquery1.SQL.Add(s);
adoquery1.ExecSQL ;
form2.ComboBox1.Items.Add (edit1.text);
form4.Close ;
end ;
end;
adoquery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ ExtractFilePath(Application.Exename) + 'data\data.mdb;' ;
adoquery1.SQL.Clear ;
adoquery1.Close ;
s:= 'select * from qz where 群组=''' +edit1.text+'''' ;
adoquery1.SQL.Add(s);
adoquery1.Open ;
i:=adoquery1.RecordCount ;
adoquery1.SQL.Clear ; //出错的地方,我使用的是5.0 为什么会出错?
adoquery1.Close ;
if i<1 then
begin
s:= 'insert into qz(群组) values('''+ edit1.text+''')' ;
adoquery1.SQL.Add(s);
adoquery1.ExecSQL ;
form2.ComboBox1.Items.Add (edit1.text);
form4.Close ;
end ;
end;
...全文
相关推荐
ADOQuery使用方法
delphi+SQL数据库中ADOQuery的使用方法
Delphi adoquery处理多条SQL语句
Delphi adoquery处理多条SQL语句
C++ Builder中使用ADOConnection 和 ADOQuery的使用.txt
C++ Builder中使用ADOConnection 和 ADOQuery的使用.txt
Delphi中的ADOquery 用法
Delphi中的ADOquery 用法Delphi中的ADOquery 用法Delphi中的ADOquery 用法
Delphi中ADOQuery使用了lookup字段后出现未知错误解决办法
Delphi中ADOQuery使用了lookup字段后出现未知错误 解决办法


