Ik heb getest met de volgende routine:
Code:
// Get available MS SQL server
procedure TdmDatabaseConnectie.GetAvailableServers ( aServerList : TStringList);
// Use ComObj in ur uses clause.
var
objList : OleVariant;
iCount: Integer;
obj : OleVariant;
begin
obj := CreateOleObject('SQLDMO.Application');
objlist := obj.ListAvailableSQlServers;
for iCount := 1 to objList.Count do
begin
aServerList.Add(objList.Item(iCount));
end;
end;
Als ik deze aanroep met:
Code:
procedure TfrmHoofdmenuCIS.Button3Click(Sender: TObject);
var
lOK : boolean;
sMsg : string;
slString : TStringlist;
begin
lOK := true;
slString := TStringlist.Create;
if lOK then dmDatabaseConnectie.GetAvailableServers(slString);
ListBox1.Items.Assign(slString);
slString.Free;
if (not lOK) then FoutMelding(sMsg);
end;
Dan krijg ik een foutmelding
OleSysError with message 'Ongeldige klassereeks'.
Moet ik nog een type library toevoegen, en weet iemand hoe dat moet met Delphi 6?
Bookmarks