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:  Conexão Com Banco de Dados ORACLE Via DAO ou ADO
Postada em 15/1/2004 por FatBoy            
1-) Client Oracle Instalado na maquina direcionado pelo sqlneteasy configuration.
2-) Se for conexão DAO vc precisará de um ODBC na máquina.
3-) Se for ADO não precisa de ODBC


'Projeto faz referencia ao DAO

Global BD As Database

Conexão com o BANCO
Sub ConectarBanco()
    Set BD = OpenDatabase("", False, False, "ODBC;DSN=NOMEDOODBC;LOGINTIMEOUT=60;UID=user;PWD=password")
End Sub


'ADO  - Projeto Referencia ADO
Public AdoCon As ADODB.Connection
Public AdoCd As ADODB.Command
Public AdoRs As ADODB.Recordset

Conexão com o BANCO

Sub AdoConectaOracle()
On Error GoTo Erro
    Set AdoCon = New ADODB.Connection
    With AdoCon
        .ConnectionTimeout = 200
        .ConnectionString = "Provider=MSDAORA.1;Password=senha;User ID=user;Data Source=serverclientoracle;Persist Security Info=True"
        .Open
    End With
    Exit Sub
Erro:
    MsgBox ("Houve um erro de Conexão com o Banco de Dados Oracle ")

End Sub

 


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