USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  firebird - acesso ADODB e comandos SQL
Eden
ILHEUS
BA - BRASIL
ENUNCIADA !
Postada em 27/07/2011 07:46 hs            
Prezados,
procurei na net  acesso ao Firebird com VB 6 e só encontrei com odbc. alguem utiliza ou utilizou conexão  com o banco com ADODB? E utilizou comandos em SQL para buscas, relatorios e join? Grato.
   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/07/2011 14:27 hs            
'---------------------------
'copia num modulo
'----------------------------

Public SQL As String ' usada para consultas,add... SQL no programa todo

Public Const DBProvider = "Provider=ZStyle IBOLE Provider;Data Source="
Public ConexaoADO As ADODB.Connection
Public UserBD, SenhaBD, CaminhoBD, IPconexao, CNN_string As String

'--------------------------------------------------
Public Sub SU_Conecta()
10       On Error GoTo SU_Conecta_Error
          'variaves para conexao com o FiriBird
          IPconexao = "192.168.0.18" ' IP LOCAL DO MICRO COM IMPRESSORAS

20        CaminhoBD = IPconexao & ":" & "C:IMOBILimo.fdb"


30        UserBD = "UID=SYSDBA"
40        SenhaBD = "masterkey" '"100479"

50        Set ConexaoADO = New ADODB.Connection
60        ConexaoADO.ConnectionString = DBProvider & CaminhoBD & ";" & _
                                        UserBD & ";" & "Password=" & SenhaBD
                                      

70        ConexaoADO.CursorLocation = adUseClient
80        CNN_string = ConexaoADO.ConnectionString
90        'MsgBox CNN_string
          ConexaoADO.Open

160      On Error GoTo 0
170      Exit Sub

SU_Conecta_Error:
180       MsgBox "Ocorreu um error de número: " & Err.Number & " - " & Err.Description & ", na linha: " & Erl & " - " & Err.Description & " na procedure SU_Conecta no Módulo CONECXAO_BD"

End Sub

pega na net a DLL IBOLE pra onexão com o vb e registra.......
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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