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