Hallo,
ich habe hier einen Delphi Quelltext von Andreas Kosch, denn ich gerne in BCB Quellcode haben würde, komme aber nicht weiter. Kann mir jemand helfen:
Hallo,
mit Delphi 6.01 und dem MS SQL Server 2000 erhalte ich alle Datenbanken, nachdem ich die Zeile for i:= 1 to aMSDE.Databases.Count do geändert habe:
procedure TForm1.Button1Click(Sender: TObject);
var
aMSDE : _SQLServer;
i : integer;
begin
try
ListBoxMSSQL.Items.Clear;
aMSDE := CoSQLServer.Create;
aMSDE.Connect('.','sa','');
ListBoxMSSQL.Items.Add(Format('%d Datenbanken gefunden:',
[aMSDE.Databases.Count]));
for i:= 1 to aMSDE.Databases.Count do
begin
ListBoxMSSQL.Items.Add(Format('%d: %s',[i, aMSDE.Databases.ItemByID(i).Name]));
end;
finally
aMSDE:=nil;
end;
end;
Für die jenigen die es interessiert, der Code kommt von hier:
<a href="/webx?50@@.ee8b8b1">Peter Crämer "ADO und MSSQL7: Nicht alle Datenbanken werden gefunden" 02.04.2002 15:41</a>
Besten Dank für jede Hilfe
Dermold
ich habe hier einen Delphi Quelltext von Andreas Kosch, denn ich gerne in BCB Quellcode haben würde, komme aber nicht weiter. Kann mir jemand helfen:
Hallo,
mit Delphi 6.01 und dem MS SQL Server 2000 erhalte ich alle Datenbanken, nachdem ich die Zeile for i:= 1 to aMSDE.Databases.Count do geändert habe:
procedure TForm1.Button1Click(Sender: TObject);
var
aMSDE : _SQLServer;
i : integer;
begin
try
ListBoxMSSQL.Items.Clear;
aMSDE := CoSQLServer.Create;
aMSDE.Connect('.','sa','');
ListBoxMSSQL.Items.Add(Format('%d Datenbanken gefunden:',
[aMSDE.Databases.Count]));
for i:= 1 to aMSDE.Databases.Count do
begin
ListBoxMSSQL.Items.Add(Format('%d: %s',[i, aMSDE.Databases.ItemByID(i).Name]));
end;
finally
aMSDE:=nil;
end;
end;
Für die jenigen die es interessiert, der Code kommt von hier:
<a href="/webx?50@@.ee8b8b1">Peter Crämer "ADO und MSSQL7: Nicht alle Datenbanken werden gefunden" 02.04.2002 15:41</a>
Besten Dank für jede Hilfe
Dermold
Comment