|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Criar uma string de conexão pela janela de conexão OLEDB
|
 |
|
|
|
Postada em 13/1/2005 por Fabinho_Master
Título: Criar uma string de conexão pela janela de conexão OLEDB - VB 6
Vimos esta dica anteriormente para o VB.NET, mas também é possível realizar isso em VB 6 sem dificuldade, afinal, a biblioteca que permite a abertura do diálogo de conexão OLEDB é uma biblioteca COM, perfeitamente acessível pelo VB 6.
No caso do VB 6 marcamos references para a biblioteca OLEDB Service Component 1.0 Type Library. Essa biblioteca nem sempre aparece no references, portanto se não estiver lá precisaremos utilizar o browse e localiza-la no seguinte caminho : program filescommon filessystemole dboledb32.dll
Veja como fica o código :
Dim dataLink As New MSDASC.DataLinks
Dim connString As String
Dim cn As New ADODB.Connection
' abaixo fazemos um vínculo da janela oledb com o formulário atual
dataLink.hWnd = Me.hWnd
' Exibimos o diálogo no promptnew
On Error Resume Next
connString = dataLink.PromptNew
If Err = 0 Then
' Utilizamos a connection string obtida em um objeto de conexão
cn.ConnectionString = connString
Else
' Usuário cancelou a operação
End If
'No exemplo abaixo, outra forma de abrir a janela, utiliza-se o método
' promptEdit, ao invés de promptnew, para editar a string de conexão de um
' objeto de conexão existente
If dataLink.PromptEdit(cn) Then
MsgBox cn.ConnectionString
Else
MsgBox "Cancelou"
End If
|
|
|
|
|
