Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
433
Assunto : Visual Basic
Titulo: Criar uma string de conexão pela janela de conexão OLEDB - VB 6

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



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 files\common files\system\ole db\oledb32.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



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 11/27/2017 5:17:00 PM
nome: BsTIQbIvrORkA
email: jimosanil0c@hotmail.com
comentário:
w2xO6A http://www.LnAJ7K8QSpfMO2wQ8gO.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br