Herrausfinden, ob eine Tabelle in der Datenbank existiert

[Christian18]

Hallo,

wie kann ich bei Access und ADO prüfen, ob eine Tabelle in der Datenbank existiert. Ich habe bei der ADO Komponnente keine Funktion gefunden, die es mir ermöglicht herrauszufinden, ob Tabelle existiert oder nicht. Habt Ihr vieleicht eine möglichkeit, wie ich sowas machen kann???

Mit freundlichen Grüßen

Christian18

[Bernhard Geyer]

TADOConnection.GetTableNames

[Christian18]

Zitat von Bernhard Geyer:

TADOConnection.GetTableNames

und wie verwende ich diese funktion???

ich werde aus der Delphi Hilfe irgendwie nicht ganz schlau.

MFG Christian18

[Bernhard Geyer]

Also in meiner Delphi-Hilfe (D6) ist zu GetTablenNames eine schönes Beispiel verlinkt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      Table1.Insert;
      Table1.FieldByName('Name').AsString := SL[index];
      if ADOTable1.Active then ADOTable1.Close;
      ADOTable1.TableName := SL[index];
      ADOTable1.Open;
      Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;

      Table1.Post;
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;
end;

[Christian18]

Hallo,

gibt es nicht auch eine andere möglichkeit, zu prüfen, ob eine Tabelle in einer Access DB vorhanden ist oder nicht.

Mit freundlichen Grüßen

Christian18