procedure tTF_sqllogin.NetGetSQLServerList(List: Tcombobox);
var
i: integer;
SQLServer: Variant;
ServerList: Variant;
begin
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Items.Add(Serverlist.item(i)); Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;
出错是:undclared identifier:‘createoleobject’
var
i: integer;
SQLServer: Variant;
ServerList: Variant;
begin
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Items.Add(Serverlist.item(i)); Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;
出错是:undclared identifier:‘createoleobject’
uses comobj