Crear conexiones

"hugo" preguntó:

Me gustaría saber si desde mi aplicación puedo lanzar
el asistente para crear conexiones. El mismo que se
abre al crear una conexión en el entono de vs.net.

Hola, Hugo:

Si te refieres a mostrar el cuadro de diálogo «Propiedades de vínculo de
datos», deberás de referenciar en tu proyecto las bibliotecas de ADO y
Microsoft OLE DB Service Component 1.0 Type Library, y ejecutar el siguiente
código:

Dim dataLink As New MSDASC.DataLinks
Dim cnn As New ADODB.Connection

Try
' Llamamos al cuadro de diálogo
cnn = CType(dataLink.PromptNew, ADODB.Connection)

If Not cnn Is Nothing Then
' Mostramos la cadena de conexión
MessageBox.Show(cnn.ConnectionString)
Else
MessageBox.Show("Se ha cancelado el cuadro de diálogo.")
End If

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
cnn = Nothing
dataLink = Nothing

End Try

Te digo que utilices la biblioteca de ADO, porque lo he estado probando con
el proveedor OleDb de .net, pero obtengo un error en la conversión de tipos
de datos.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.