Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Intermediate
Mar 17, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

CreateConnString - Using the OLEDB dialog to create an OLEDB connection string

' This function opens the OLEDB dialog to create an OLEDB connection string,
'  and return the selection
' It requires the OLEDB Service Component 1.0 Type Library to work

Public Function CreateConnString(Optional ByVal parentForm As Form = Nothing) _
    As String
    Dim dataLink As Object = Microsoft.VisualBasic.Interaction.CreateObject _

    'On Error Resume Next
    Dim handle As Integer = 0
    If Not parentForm Is Nothing Then
        handle = parentForm.Handle.ToInt32()
    End If

    ' the following statement makes the property modal respect to the current 
    ' form
    dataLink.hWnd = handle
    ' display the dialog
    Dim o As Object = dataLink.PromptNew()
    If o Is Nothing Then Return "" Else Return o.ConnectionString.ToString()
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date