USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página