invalid class typecast

[xuxugr]

var
I: Integer;
begin
try
with adoquery3 do
begin
close;
sql.Clear;
sql.Add('select * from tba_bmbm');
open;
end;
except
on E:Exception do
begin
for i:=0 to Frm.ComponentCount-1 do
begin
if Frm.Components[i] is tadoquery then
if (Frm.Components[I] as tadoquery).State <> dsInactive then
(Frm.Components[I] as tadoquery).Connection:=nil;
data1.adoConnection1.Close;
data1.adoConnection1.Open;
(Frm.Components[I] as tadoquery).Connection:=data1.adoConnection1;
end;
end;
end;
end;

哪错了呀

[xuxugr]

for i:=0 to Frm.ComponentCount-1 do
begin
if Frm.Components[i] is tadoquery then
if (Frm.Components[I] as tadoquery).State <> dsInactive then
(Frm.Components[I] as tadoquery).Connection:=nil;
data1.adoConnection1.Close;
data1.adoConnection1.Open;
(Frm.Components[I] as tadoquery).Connection:=data1.adoConnection1;
end;


我看到有的贴子说ADOConnection1.Execute,我不知道怎么改

[bdmh]

你的if语句有问题,修改如下

  if Frm.Components[i] is tadoquery then 
  begin
    if (Frm.Components[I] as tadoquery).State <> dsInactive then 
    begin
      (Frm.Components[I] as tadoquery).Connection:=nil; 
      data1.adoConnection1.Close; 
      data1.adoConnection1.Open; 
      (Frm.Components[I] as tadoquery).Connection:=data1.adoConnection1; 
    end;
  end;

[xuxugr]

这我倒是没在意,一会试试

[starluck]

[Quote=引用楼主 xuxugr 的帖子:]
var
I: Integer;
begin
try
with adoquery3 do
begin
close;
sql.Clear;
sql.Add('select * from tba_bmbm');
open;
end;
except
on E:Exception do
begin
for i:=0 to Frm.ComponentCount-1 do
begin


就是沒注意BEGIN END
if Frm.Components[i] is tadoquery then
if (Frm.Components[I] as tadoquery).State <> dsInactive then
(Frm.Components…
[/Quote]