Amigos este código es parte de mi conexión a mi base de datos de access
Código:
Private Sub Form_Load()
With CN
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "..\pagos.mdb; Persist security info=false"
.CursorLocation = adUseClient
.CommandTimeout = 10
.Mode = adModeReadWrite
.Open
End With
RSclientes.Open "SELECT * FROM clientes ORDER BY id", CN, adOpenDynamic, adLockOptimistic
RSproveedores.Open "SELECT * FROM proveedores ORDER BY id_proveedor", CN, adOpenDynamic, adLockOptimistic
RSempleados.Open "SELECT * FROM empleados ORDER BY cod_empl", CN, adOpenDynamic, adLockOptimistic
RSfacturas.Open "SELECT * FROM facturas ORDER BY nro_factura", CN, adOpenDynamic, adLockOptimistic
End Sub
Luego este código es parte de mi módulo principal, allí al final tengo el "dbclientes" que me debe permitir jalar los datos de tabla cliente, pero no coge para nada
Código:
Public Function facturas()
For Each x In frm_facturas
On Error Resume Next
Set x.DataSource = RSfacturas
Next
With frm_facturas
.txtnrofactura.DataField = "nro_factura"
.txtclientes.DataField = "empresa"
.txtobra.DataField = "obra"
.txtmontos.DataField = "monto_soles"
.txtmontod.DataField = "monto_dolares"
.dtp_fecha.DataField = "fecha"
.cmbestado.DataField = "estado"
.txtot.DataField = "orden_de_trabajo"
.txtobservaciones.DataField = "observaciones"
' Set dbclientes.RowSource = RSclientes
'dbclientes.ListField = "clientes"
'dbclientes.BoundColumn = "razon_social"
End With
End Function
Este es el load de mi formulario FACTURA.
Código:
Private Sub Form_Load()
facturas
frm_facturas.Width = 10650
frm_facturas.Height = 8100
lbltotal.Caption = "TOTAL DE FACTURAS: " & RSfacturas.RecordCount
End Sub
Cómo puedo hacer para que mi cbcliente funcione..........tener en cuenta q ningun momento cierro mi conexión.
Saludos de nuevo