La Web del Programador: Comunidad de Programadores
 
    Pregunta:  13908 - COMO HACER APARECER CUADRO DIALOGO-ADO
Autor:  Humberto Moreno Mitjans
Hola. Estoy interesado en saber cómo puedo invocar al cuadro de diálogos ADO para conformar la cadena ConnectionString, (desde mi propia aplicación). Estoy trabajando en C++ Builder, pero igual me sirve cualquier idea sobre Delphi.
Cualquier idea, gracias de antemano.

  Respuesta:  Jose M. Muélledes
Este es el código en Visual C:

HRESULT hr;
IDataSourceLocatorPtr dlPrompt = NULL;
_ConnectionPtr conn = NULL;
_RecordsetPtr rs = NULL;

// Initialize COM
::CoInitialize( NULL );

try
{
// Instantiate DataLinks object.
hr = dlPrompt.CreateInstance( __uuidof( DataLinks ) );
if ( FAILED( hr ) ) throw( _com_error( hr, NULL ) );

// Prompt for connection information.
conn = dlPrompt->PromptNew();

// If connection object is NULL, user cancelled.
if ( NULL == conn ) goto Exit;

// Open connection (connection returned by DataLinks is just
// a holder for the returned ConnectionString).
conn->Open( conn->ConnectionString, L"", L"", -1 );

.........

Espero que te valga.