ACESSAR BANCO ORACLE NO SERVIDOR WEB VIA VB6

 Tópico anterior Próximo tópico Novo tópico

ACESSAR BANCO ORACLE NO SERVIDOR WEB VIA VB6

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#492624 - 13/02/2020 21:57:13

CARLYNHOS77
ALTO PARAISO DE GOIAS
Cadast. em:Janeiro/2013


Ola, boa noite... estou criando um sistema que será instalado num micro comum, porém a base de dados esta num servidor web... o banco é o ORACLE

Preciso criar a conexão para acessar o banco de dados la no servidor web, o suporte do servidor web me passou os detalhes de permissão para conexão, porém, não consigo criar a conexão no meu sistema... alguém poderia me ajudar??



#492625 - 13/02/2020 22:28:51

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você usa ADO no seu sistema já?

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492626 - 13/02/2020 22:46:15

CARLYNHOS77
ALTO PARAISO DE GOIAS
Cadast. em:Janeiro/2013


ola, sim, nas minhas conexões normais aqui, uso o ADODC...



#492627 - 13/02/2020 23:18:56

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Então é só usar a connectionstring provida.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492630 - 14/02/2020 08:51:46

CARLYNHOS77
ALTO PARAISO DE GOIAS
Cadast. em:Janeiro/2013


ola, bom dia... fiz uns testes aqui, mas sem sucesso... vc poderia detalhar pra mim como fazer isso? por favor



#492638 - 14/02/2020 12:28:24

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Em algum lugar, você passa uma connectionstring para conectar no banco que você já tem, certo?

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492639 - 14/02/2020 12:29:28

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Algo como:

Dim cn As New ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "sua connection string vai aqui"
cn.Open


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492644 - 14/02/2020 15:33:55

CARLYNHOS77
ALTO PARAISO DE GOIAS
Cadast. em:Janeiro/2013


ola, mas esse exemplo q vc passou, é pra acessar o banco na nuvem??

nos meus acessos locais, eu faço assim:

CONECTAR AO BANCO
    BancoEcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CCM.mdb;Jet " & "OLEDB:Database Password=82621932;"

CONECTAR A UMA DETERMINADA TABELA
TabForn.CursorLocation = adUseServer
    TabForn.Open "Select Seq, Nome From CadFornecedor where cnpj ='" & Text2.Text & "'", BancoForn, adOpenForwardOnly, adLockReadOnly, adCmdText
        If TabForn.BOF Then
            TabForn.Close
            TabForn.CursorLocation = adUseServer
            TabForn.Open "Select * From CadFornecedor", BancoForn, adOpenKeyset, adLockOptimistic, adCmdText
                   INCLUSAO DE REGISTROS
            TabForn.Close
        Else
            TabForn.Close
            TabForn.CursorLocation = adUseServer
            TabForn.Open "Select * From CadFornecedor where cnpj='" & Text2.Text & "'", BancoForn, adOpenKeyset, adLockOptimistic, adCmdText
                   EDITA OS DADOS
            TabForn.Close
    End If


mas isso ai, utilizado com banco local... acredito que pra nuvem, o código seja mais sofisticado ne




#492645 - 14/02/2020 15:44:36

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Nada! É o MESMO código. Tudo que você vai precisar é da connectionstring e o driver OleDB do Oracle

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492646 - 14/02/2020 16:21:01

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Public con As ADODB.Connection
Public rs As ADODB.Recordset

Sub Connect()
On Error GoTo tratoerro
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
    Dim sConn As String
        sConn = "DRIVER={MySQL ODBC 3.51 Driver};"
        sConn = sConn & "SERVER=" & IPSERVIDOR  & ";"
        sConn = sConn & "USER=USUARIOBANCODEDADOS;"
        sConn = sConn & "PWD=SENHABANCODEDADOS;"
        sConn = sConn & "database=BANCODEDADOS"
        con.Open sConn    'Abre o Banco de Dados
        rs.CursorLocation = adUseClient
tratoerro:
End Sub


Sub Disconnect()
On Error GoTo TrataErro
rs.Close
con.Close
TrataErro:
If Err.Number = 3265 Then
   MsgBox "Erro de dados"
End If




#492647 - 14/02/2020 16:32:24

CARLYNHOS77
ALTO PARAISO DE GOIAS
Cadast. em:Janeiro/2013


entendi... andei pesquisando, vi falando q um tal CLIENT ORACLE, baixar e instalar, preciso disso tbem?



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário