Option Explicit
' variable tipo objeto se utulizara para conectarnos
Public obj_conexion As ADODB.Connection
' variable de identificacion para la BD
Dim campo_uno, campo_dos, campo_tres, campo_cuatro, campo_cinco
' variable para inspeccionar el numero de registros
Dim var_Fila, var_Final As Integer
' funcion con los parametros de conexion
Function Connect(cons_instancia As String, cons_usuario As String, cons_contra As String, cons_base_datos As String) As Boolean
'Aquí se estable la conexion
Set obj_conexion = New ADODB.Connection
On Error Resume Next
With obj_conexion
.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Password=" & cons_contra & ";" & _
"Persist Security Info=True;" & _
"User ID=" & cons_usuario & ";" & _
"Initial Catalog=" & cons_base_datos & ";" & _
"Data Source=" & cons_instancia
.Open
End With
If obj_conexion.State = 0 Then
Connect = False
Else
Connect = True
End If
End Function
Function Query()
Dim var_consulta As String
Dim var_resultado As ADODB.Recordset
Dim var_campo As ADODB.Field 'maneja los campos de la BD
Dim var_columna As Long 'maneja las columnas de la hoja de calculo
Set var_resultado = New ADODB.Recordset
'aquí busca todo los registros que haya en la hoja
var_Final = GetUltimoR(Hoja1)
'aquí se igualan las filas y columnas correspondientes a las variable que contrendran los datos que se encuentran en hoja de calculo y que se enviaran a la BD
For var_Fila = 2 To var_Final
campo_uno = Hoja1.Cells(var_Fila, 2)
campo_dos = Hoja1.Cells(var_Fila, 3)
campo_tres = Hoja1.Cells(var_Fila, 4)
campo_cuatro = Hoja1.Cells(var_Fila, 5)
campo_cinco = Hoja1.Cells(var_Fila, 6)
var_consulta = "insert into tabla_prueba values('" & campo_uno & "','" & campo_dos & "','" & campo_tres & "','" & campo_cuatro & "','" & campo_cinco & "');"
var_resultado.Open var_consulta, obj_conexion
Next
var_resultado.Open "SELECT * FROM tabla_prueba", obj_conexion
If var_resultado.State Then
var_columna = 1
For Each var_campo In var_resultado.Fields
Cells(1, var_columna) = var_campo.Name
var_columna = var_columna + 1
Next var_campo
Cells(2, 1).CopyFromRecordset var_resultado
Set var_resultado = Nothing
End If
End Function
Function Disconnect()
obj_conexion.Close
End Function
Public Sub run()
Dim var_consulta As String
Dim var_cadena_conexion As Boolean
var_cadena_conexion = Connect("192.168.10.12", "sa", "Password", "prueba")
If var_cadena_conexion Then
Call Query
Call Disconnect
Else
MsgBox "No podemos Conectarnos!"
End If
End Sub
este es mi codigo, pero no se como implemento la función para el log de errores