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, porm a base de dados esta num servidor web... o banco o ORACLE

Preciso criar a conexo para acessar o banco de dados la no servidor web, o suporte do servidor web me passou os detalhes de permisso para conexo, porm, no consigo criar a conexo no meu sistema... algum 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 Orculo!
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 conexes normais aqui, uso o ADODC...



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

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


Membro da equipe
Ento s usar a connectionstring provida.

_______________________________________________________________________
Virei Orculo!
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 Orculo!
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 Orculo!
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 fao 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 cdigo 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 cdigo. Tudo que voc vai precisar da connectionstring e o driver OleDB do Oracle

_______________________________________________________________________
Virei Orculo!
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