急啊 如何判断 某个数据库在指定位置是否存在啊？？？怎样动态建立数据库？？如何判断某个表是否存在 如何建立

Question

我用的是　ＡＤＯ连接　　　ＡＣＣＥＳＳ数据库　　我是好似在没有办法了　如果有什么好办法的话　　我可以改动　　　例如　　ＢＤＥ里好象就能判断数据库是否存在　但是　怎么样判断　我也不知道　
谢谢　各位！！！！！

Answer 1

Access属于文件级的数据库～～
你就直接判断文件存在就可以了～～
if ExistsFile('c:\temp\temp.dbm') then { TODO }创建库的代码
//...
var
  CreateAccess: OLEVariant;
begin
  try
    CreateAccess := CreateOleObject('ADOX.Catalog');
    try
      CreateAccess.Create(Format(
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s%s.mdb',
      [目录名, 数据库名]));
    finally
      CreateAccess := Unassigned;
    end;
  except
    { TODO : 异常处理 }
  end;
end;

Answer 2

var
  vTableName: TStrings;
begin
  vTableName := TStringList.Create;
  try
    ADOConnection1.GetTableNames(vTableName);
    if vTableName.IndexOf('TableName') >= 0 then
      { TODO : 存在 };
  finally
    vTableName.Free;
  end;
end;

Answer 3

我以前用到过判断Access数据库的存在，就是判断有无此文件即可，
今天又学了一下判断Acess数据库表的存在，好呀