Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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 _
        ("DataLinks")

    '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.

 

 

Sitemap