SQL - Datenbanken auslesen ...

[Ricane]

Die Lösung:
(für das auslesen von allen Datenbanken und Tabellen von einem Server)

Als erstes lesen wir die Datenbanken aus. Dazu erstellen wir uns den ConnectionString, den wir dann unserer ADOConnection zuweisen.

Code:

"Server" ist ein aktiver SQL - Server
"cbDatenbank" ist eine ComboBox
"Auselsen" ist eine Stringvariable.

  ServerTyp := 'SQLOLEDB.1';

  ConnectionString := 
        'Provider=' + ServerTyp + ';Integrated Security=SSPI;Persist Security ' +
    'Info=False;Initial Catalog=Master;Data Source=' + Server + ';' +
    'Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;' +
    'Use Encryption for Data=False;Tag with column collation when possible=False';

  // Connectionstring zuweisen und in der nächsten Zeile verbinden
  Db_DataModule.DataModule1.ADOConnection1.ConnectionString := ConnectionString;
  Db_DataModule.DataModule1.ADOConnection1.Connected := True;

  (* 
     "siCatalogs" steht für die Datenbanken. Es wird dann erstmal alles in das 
     Hauptgrid geschoben, vom wo es dann in die Liste exportiert wird. 
  *)

  Db_DataModule.DataModule1.ADOConnection1.OpenSchema(siCatalogs, null, EmptyParam, Db_DataModule.DataModule1.ADODataSet1);
  while not Db_DataModule.DataModule1.ADODataSet1.EOF do
  begin
    Auslesen := Db_DataModule.DataModule1.ADODataSet1.Fields[0].AsString;
    cbDatenbank.Items.Add(Auslesen);
    Db_DataModule.DataModule1.ADODataSet1.Next;
  end;

Nachdem das geschafft ist, können jetzt alle USER - Tabellen (die SYSTEM - Tabellen werden nicht berücksichtigt!) von der Datenbank geladen werden.

Code:

Tabellen ist einen StringList.
I ist eine Integer Variable.
"cbTabellen" ist eine ComboBox.

  if Db_DataModule.DataModule1.ADOConnection1.Connected = False then
    Exit;

  // StringListe erstellen.
  Tabellen := TStringList.Create;
  // Tabellennamen laden.
  Db_DataModule.DataModule1.ADOConnection1.GetTableNames(Tabellen, False);
  // Anzeigen
  for I := 0 to (Tabellen.Count - 1) do
  begin
    cbTabellen.Items.Add(Tabellen[I]);
  end;

der Rest dürfte nicht mehr so schwer sein... Hoffe ich konnte auch endlich mal jemanden helfen!


Ricane