打开一个ACCESS数据库，判断数据表是否存在？

Question

str:string;
TableExist:boolean;
TableList:TStringList;
Tableindex:integer;
begin
  if opendialog1.Execute then
    try
    str:=opendialog1.FileName;
    ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+str+';Persist Security Info=False';    TableExist := false;
       TableList := TStringList.Create();
       ADquery1.  .GetTableNames(TableList,false);
       for Tableindex:=0 to TableList.Count-1 do
       begin
         if TableList[TableIndex]='QueryTable' then
         TableExist := true;
       end;
       if TableExist then            //如果表存在，就把它删除
       begin
         ADOQuery.Close;
         ADOQuery.SQL.Clear;
         ADOQuery.SQL.Add('Drop Table QueryTable;');
         ADOQuery.ExecSQL;
       end;

Answer 1

TADOQuery没有GetTableNames此方法  TADOConnection才有。ADquery1 改成  ADOConnection1控件就可以了。

Answer 2

同意楼上的，adoquery哪有gettablenames啊，

Answer 3

ADquery1.Connection.GetTableNames(TableList,false); 没有吗？

Answer 4

ADOQuery1.ConnectionString  设置:
assigned(ADquery1.Connection)   必等于nil,
即然等于nil,也就是对象不存在，又何来调用其对象的方法呢。。