Abrir el diálogo de propiedades de vínculos de datos

Ejemplo en vb.net para abrir el diálogo de Propiedades de vínculos de datos y poder retornar una cadena de conexión en tiempo de ejecución

Se debe añadir al proyecto la referencia a Microsoft Activex Data Object para poder acceder a la librería ADODB, y también la rereferencia a Microsoft OLE DB Service Component 1.0 type library que permite abrir el diálogo . Ambas referencias desde la solapa COM

Luego importar los espacios de nombres

Imports ADODB
Imports MSDASC
Código fuente

Texto planoCopiar código fuenteImprimir
Try
Dim dlc As DataLinksClass = New DataLinksClass
Dim cc As ConnectionClass = New ConnectionClass

' Abrir el diálogo de propiedades de vínculos de datos
If (dlc.PromptEdit(CType(cc, ConnectionClass))) Then
' mostrar la cadena de conexión
MsgBox(cc.ConnectionString)

End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try