Olá pessoal!!! Estou fazendo um programa em VB e usando como Base de dados o Oracle... só que não tenho muita experiência com Oracle... é o primeiro sistema que estou fazendo com essa base de dados. Acontece que quando faço a conexão com o Banco de dados está dando o seguinte erro:

 

Run-time error '440':

Unable do make connection, ORA-12514: TNS: o listener não conseguiu resolver o SERVICE_NAME fornecido no descritor de conexão

 

Esse erro se dá neste linha:

 

Set OraDb = OraSessao.OpenDatabase(sDSN, sUID & "/" & sPWD, 0&)

 

Desde ja agradeço,

 

Túlio

Olhe as conexões que eu fiz para Oracle tando em ODBC como ADO

 

ADO

 

Public AdoCon As ADODB.Connection

 

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=banco;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

 

DAO

 

Global BD As Database

Set BD = OpenDatabase("", False, False, "ODBC;DSN=bancodsn;LOGINTIMEOUT=60;UID=user;PWD=senha")
    Exit Sub

Valeu amigo, mas continua dando o mesmo erro!!! testei com a conexão ADO e o erro foi idêntico. Acho que deve ser algo na configuração do Oracle. Mesmo assim, Obrigado!