CONEXION EXCEL CON ACCCES

Hola estoy feliz por que ahora comenzamos con un proyecto que tenia pendiente desde ya hace un tiempo y la verdad emocionado. Como primera recomendación de esta serie de videos no explicare en su mayoría los comandos que utilizo sino úsenlo como una plantilla para sus proyectos.

En el video explico como hago las conexiones en mis proyectos dando como ejemplo cuentas corrientes que tengo en una base de datos.

---

Modulo:

Rutas_BBDD

Public BBDD_CTASCTES As String

Public VERSION_CONECTOR As String

Sub CONECTOR_BBDD()

VERSION_CONECTOR = "Microsoft.ACE.OLEDB.12.0"

BBDD_CTASCTES = Hoja1.Range("B4") & "\CTAS_CTES.accdb"

End Sub

---

Formulario:

CTAS_CTES

Private Sub UserForm_Initialize()

LB_Periodo = Hoja1.Range("A3")

Lb_Nombre = Hoja1.Range("A2") & "-" & Hoja1.Range("A4")

LBCodigo = Hoja1.Range("A3")

With LV_Ctas_Ctes

.Gridlines = True

.View = lvwReport

.FullRowSelect = True

.ColumnHeaders.Add Text:="CUENTA", Width:=60

.ColumnHeaders.Add Text:="DESCRIPCION DE CUENTA", Width:=230

End With

Call Actualizar_LV

End Sub

Sub Actualizar_LV()

Dim Conn As ADODB.Connection

Dim MiConexion

Dim Rs As ADODB.Recordset

Dim MiBase As String

Dim Query As String

Dim i

Set Conn = New ADODB.Connection

CONECTOR_BBDD

MiConexion = BBDD_CTASCTES

With Conn

.Provider = VERSION_CONECTOR

.Open MiConexion

End With

Query = "SELECT * FROM CTAS_CTES ORDER BY[CTA_CTE]"

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseServer

Rs.Open Source:=Query, _

ActiveConnection:=Conn

If Rs.EOF And Rs.BOF Then

Rs.Close

Conn.Close

Set Rs = Nothing

Set Conn = Nothing

LV_Ctas_Ctes.ListItems.Clear

Exit Sub

End If

Rs.MoveFirst

i = 1

With LV_Ctas_Ctes

LV_Ctas_Ctes.ListItems.Clear

Do

LV_Ctas_Ctes.ListItems.Add(i).Text = Rs![CTA_CTE]

LV_Ctas_Ctes.ListItems(i).SubItems(1) = Rs![NOMBRE_RAZON_SOCIAL]

i = i + 1

Rs.MoveNext

Loop Until Rs.EOF

End With

Rs.Close

Conn.Close

Set Rs = Nothing

Set Conn = Nothing

End Sub

---

Descarga: SEP-SISTEMACONTABLE