adoquery數據操作

[mydelphiworld]

procedure TForm4.Button1Click(Sender: TObject);
var
us,ps:string;

begin
try

us:=dbgrid1.SelectedField.DataSet.FieldByName('users').AsString;
ps:=dbgrid1.SelectedField.DataSet.FieldByName('passw').AsString;
////////////////////////////////////////////////////////////////////
Adoquery1.Connection:=dmliu.ADOConnection1;
ADOQuery1.Edit;

adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
ADOQuery1.Active :=true;
Adoquery1.Connection:=dmliu.ADOConnection1;
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.ExecSQL ;
ADOQuery1.Active :=true;
dbg.DataSource :=DataSource1;

///////////////////////////////////////////////////////////////////
except
raise exception.Create(' 操 作 錯 誤 !');
exit;
end;//try

end;

[mydelphiworld]

有誰能告訴我錯在哪里嗎?????????????????????????????

[aiirii]

Adoquery1.Connection:=dmliu.ADOConnection1;
/// ADOQuery1.Edit;// 这句去掉

adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
ADOQuery1.Active :=true;// 这句去掉
Adoquery1.Connection:=dmliu.ADOConnection1;// 这句去掉
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.ExecSQL ;// 这句去掉
ADOQuery1.Active :=true;
dbg.DataSource :=DataSource1;

[mydelphiworld]

aiirii(ari-爱的眼睛) 不行啦運通不過
還是有錯誤:commandtext conn't return close a retset

[Amuclan]

去掉这两行应该没错了 你再检查一下别的地方

[mydelphiworld]

系統提示說: dataset isnot in insert or edit mode 錯誤
但我加入了: adoquery1.insert or adoquery1.edit 或者全部都有一樣的錯誤

[mydelphiworld]

procedure TForm4.Button1Click(Sender: TObject);
var
us,ps:string;

begin
try

us:=dbgrid1.SelectedField.DataSet.FieldByName('users').AsString;
ps:=dbgrid1.SelectedField.DataSet.FieldByName('passw').AsString;
////////////////////////////////////////////////////////////////////

Adoquery1.Connection:=dmliu.ADOConnection1;
//ADOQuery1.Edit;
adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
ADOQuery1.Prepared;
ADOQuery1.Insert;
ADOQuery1.ExecSQL;
ADOQuery1.Post;
// ADOQuery1.Active :=true;
//ADOQuery1.Edit;
//ADOQuery1.Insert;
// ADOQuery1.Post;
//ADOQuery1.UpdateRecord
// button2.Click;
/////////////////////////////////////////////////////////////////////////////

//Adoquery1.Connection:=dmliu.ADOConnection1;
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
// ADOQuery1.ExecSQL ;

ADOQuery1.Active :=true;
dbg.DataSource :=DataSource1;

///////////////////////////////////////////////////////////////////
except
raise exception.Create(' 操 作 錯 誤 !');
exit;
end;//try

end;



錯誤提示:cannot perform this a opration on a dataset

[mydelphiworld]

錯誤提示:cannot perform this a opration on a close dataset

[lionlsl]

procedure TForm4.Button1Click(Sender: TObject);
var
us,ps:string;

begin
try
dbg.DataSource :=DataSource1;
// us:=dbgrid1.SelectedField.DataSet.FieldByName('users').AsString;改成
us:=Adoquery1.FieldByName('users').AsString;
// ps:=dbgrid1.SelectedField.DataSet.FieldByName('passw').AsString;改成
ps:=Adoquery1.FieldByName('passw').AsString;
////////////////////////////////////////////////////////////////////
if adoquery1.Active then adoquery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
try
ADOQuery1.open;
execept
showmessage('出错1');
exit;
end;
// ADOQuery1.Active :=true;
// Adoquery1.Connection:=dmliu.ADOConnection1;
if ADOQuery1.Active then adoquery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
//ADOQuery1.Prepared;
//ADOQuery1.ExecSQL ;
try
ADOQuery1.open;
execept
showmessage('出错1');
exit;
end;
// ADOQuery1.Active :=true;
// dbg.DataSource :=DataSource1;放在最上边

///////////////////////////////////////////////////////////////////
except
//raise exception.Create(' 操 作 錯 誤 !');
showmessage(' 操 作 錯 誤 !');
exit;
end;//try

end;

我想这样没有问题了

[OYGX]

up

[wychero]

-----------------------------------------------------------------------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.ExecSQL ;
-----------------------------------------------------------------------------
改为：
-----------------------------------------------------------------------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.Open;
-----------------------------------------------------------------------------

[viaboy]

procedure TForm4.Button1Click(Sender: TObject);
var
us,ps:string;
begin
try
us:=dbgrid1.SelectedField.DataSet.FieldByName('users').AsString;
ps:=dbgrid1.SelectedField.DataSet.FieldByName('passw').AsString;
Adoquery1.Connection:=dmliu.ADOConnection1;
adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.Active :=true;
dbg.DataSource :=DataSource1;
except
raise exception.Create(' 操 作 錯 誤 !');
exit;
end;//try
end;

[xiaolei_418]

procedure TForm4.Button1Click(Sender: TObject);
var
us,ps:string;
begin
try
us:=dbgrid1.SelectedField.DataSet.FieldByName('users').AsString;
ps:=dbgrid1.SelectedField.DataSet.FieldByName('passw').AsString;
Adoquery1.Connection:=dmliu.ADOConnection1;
adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( '_ where users='''+us ) ;//加空格
ADOQuery1.SQL.add( '''_ and passw='''+ps+'''' ) ;;//加空格
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select world,users,passw'from logtable group by world,users,passw');//group by 错误
ADOQuery1.Prepared;
ADOQuery1.Active :=true;
dbg.DataSource :=DataSource1;
except
raise exception.Create(' 操 作 錯 誤 !');
exit;
end;//try
end;

[chwdong]

Adoquery1.Connection:=dmliu.ADOConnection1;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( 'where users='''+us ) ;
ADOQuery1.SQL.add( '''and passw='''+ps+'''' ) ;
ADOQuery1.ExecSQL;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.open;
dbg.DataSource :=DataSource1;

ADOQuery1.SQL.add( 'update logtable set world='''+str+'''' ) ;
:这类东西最好写成:
ADOQuery1.SQL.add( 'update logtable set world='+quotestr(str) ) ;

[zhangfen]

var
us,ps,s:string;
begin
try

us:=dbgrid1.SelectedField.DataSet.FieldByName(users_id').AsString;
ps:=dbgrid1.SelectedField.DataSet.FieldByName('type').AsString;
////////////////////////////////////////////////////////////////////
Adoquery1.Connection:=dmliu.ADOConnection1;
//ADOQuery1.Edit;
s:='str';
adoquery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add( ' update logtable set world='+QuotedStr(s)) ;
ADOQuery1.SQL.add( ' where users='+QuotedStr(us )) ;
ADOQuery1.SQL.add( ' and passw='+QuotedStr(ps)) ;
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
//ADOQuery1.Active :=true;
Adoquery1.Connection:=dmliu.ADOConnection1;
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from logtable group by world,users,passw');
ADOQuery1.Prepared;
ADOQuery1.ExecSQL ;
ADOQuery1.Active :=true;
dbgrid1.DataSource :=DataSource1;

///////////////////////////////////////////////////////////////////
except
raise exception.Create(' 操 作 錯 誤 !');
exit;
end;

TADOQuery不是一个数据集控件,所有有些对TADODataSet能使用的操作不能对TADOQuery使用

[lonaerd]

有这样写代码的吗？写个函数打开记录：

function TDataModule2.Opentable(sql:string):TADOQuery;
var Tmpquery:Tadoquery;
begin
Tmpquery:=tadoquery.Create(nil);
Tmpquery.Connection:=ADOConnection1 ;
Tmpquery.SQL.Add(sql);
Tmpquery.Open;
Opentable:=Tmpquery;


end;

调用：
var ado1:tadoquery;

ado1:=connect.Opentable("select * from tb1..");
ado1.close;
ado..SQL.Clear;
ado1:=connect.Opentable("select * from tb2..");

[chinaandys]

ADOQuery1.SQL.add( ' update logtable set world='''+str+'''' ) ;
ADOQuery1.SQL.add( ' where users='''+us ) ;
ADOQuery1.SQL.add( ''' and passw='''+ps+'''' ) ;
加空格

[rongrongGsr]

两种可能，一种是你的数据库连接有问题，另外一种是你的SQL语句有问题，你可以把SQL语句单独拷贝出来先运行一遍试试。
chinaandys(剑风)说的空格也要注意一下

[ghchen]

up