Entwickler-Ecke

Datenbanken - ADO Tabellenanzahl u. Name ermitteln ohne DKomponente


Tana´Ri - Do 25.09.03 13:06
Titel: ADO Tabellenanzahl u. Name ermitteln ohne DKomponente
Hi Leute ich hab ma ne gute frage,

wie kann die Anzahl der Tabellen in ner DB mit ADO und deren Name ermitteln werden, ohne Delphi Komponenten zu benutzen ?

vielen dank für jeglich Input das weiterbringt :P


dany - Do 25.09.03 13:37
Titel: Hi
wäre systables eine Idee?


Tana´Ri - Do 25.09.03 13:52

systables ?? :oops:



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
procedure TForm1.Button1Click(Sender: TObject);
 var Conn : OleVariant;
 begin

  conn := CreateOleObject('ADODB.Connection');  
                                 { or 'ADODB.recordset' }
  try
   conn.Provider := 'Microsoft.Jet.OLEDB.4.0';
   conn.open ('c.\testDB\db1.mdb');
  finally 
   conn := Unassigned; { or VarNUll }
  end;
end;


jetzt muss ich nur noch wissen wie ich jetzt an die infos komm, sprich Anzahl und Namen der Tabellen (gesamt, als DB nehmen wir mal ne Access)