![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Buscar Servidores SQL
Hola mis amigos del foro, existe algun componente en delphi que me liste los servidores SQL que existen en una red, osea un centro de trabbajo, el cual tiene un controlador de dominio, una LAN... , puedo ver con algun componente los servidores SQL existentes....
Gracias de antemano Jocey |
#2
|
||||
|
||||
Hola yo uso este procedimiento
Código:
uses DB, ADODB, Variants, ActiveX, ComObj, AdoInt, OleDB; procedure ListAvailableSQLServers(Names : TStrings); var RSCon: ADORecordsetConstruction; Rowset: IRowset; SourcesRowset: ISourcesRowset; SourcesRecordset: _Recordset; SourcesName, SourcesType: TField; function PtCreateADOObject(const ClassID: TGUID): IUnknown; var Status: HResult; FPUControlWord: Word; begin asm FNSTCW FPUControlWord end; Status := CoCreateInstance(CLASS_Recordset,nil,CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,IUnknown,Result); asm FNCLEX FLDCW FPUControlWord end; OleCheck(Status); end; begin SourcesRecordset :=PtCreateADOObject(CLASS_Recordset) as _Recordset; RSCon := SourcesRecordset as ADORecordsetConstruction; SourcesRowset := CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator')) as ISourcesRowset; OleCheck(SourcesRowset.GetSourcesRowset(nil,IRowset, 0, nil,IUnknown(Rowset))); RSCon.Rowset := RowSet; with TADODataSet.Create(nil) do try Recordset := SourcesRecordset; SourcesName := FieldByName('SOURCES_NAME'); SourcesType := FieldByName('SOURCES_TYPE'); Names.BeginUpdate; try while not EOF do begin if (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE) and (SourcesName.AsString <> '') then Names.Add(SourcesName.AsString); Next; end; finally Names.EndUpdate; end; finally Free; end; end; |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
listar servidores sql | jlgaytan | SQL | 5 | 10-11-2006 17:38:46 |
Servidores terra.COM | [Gunman] | Varios | 3 | 28-05-2006 17:24:34 |
Direcciones IP servidores P2P | Javier_A | Internet | 0 | 21-11-2005 08:57:09 |
Dos Servidores web | HombreSigma | Redes | 7 | 05-04-2005 02:15:38 |
Acerca de Servidores SQL | ONE-Red | Conexión con bases de datos | 14 | 04-05-2004 21:48:53 |
![]() |
|