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