Escrito por mecatronicxman

> QUISIERA SABER COMO PUEDO HACER PARA CONECTAR UNA BASE DE DATOS DE MICRSOFT ACCESS 2000 (.mdb) CON MICROSOFT VISUAL BASIC 5.0 O 6.0
> CUANDO QUIERO INDICARLE EL RECORDSOURCE ME APARECE UN MENSAJE DICIENDO QUE NO RECONOCE EL FORMATO. ME PARAECE QUE ES ALGO MUY RARO YA QUE CON MICROSOFT ACCESS 97 LAS BASES DE DATOS TENIAN LA MISMA EXTENSION.
>--------------------------------------------------
Una de las formas de conectarse usando Vb6.0 es:
Usando tecnología ADO:
option Explicit
dim Accion as byte
dim CnPlanilla as adodb.connection
dim RsEmpleado as adodb.recordset
Private sub form_load()
'Crear un dsn a la base de datos (ODBC) _
llamado: PlanillaMdb
set cnplanilla = new adodb.connection
set rsempleado = new adodb.recordset
cnplanilla.cursorlocation = adcursorclient ' o algo así
cnplanilla.open "Dsn=PlanillaMdb"
rsempleado.open "Select * from empleados",cnplanila,adopenDinamic, adLockOptimistic
ACCION =0
End sub
private sub cmdGrabar_click()
with rsempleado
if Accion = 1
'Para grabar uno nuevo:
.Addnew
!NombreEmpleado = txtNombre
!edad = cbyte(txtedad)
.UpdateBatch
end with
elseif accion = 2
'Para editar:
'No usa el metodo edit
with rsempleados
!NombreEmpleado = txtNombre
!edad = cbyte(txtedad)
.UpdateBatch
end if
accion =0
end with
end sub
private sub cmdNuevo_Click()
accion=1
end sub
private sub cmdEditar_Click()
accion=2
end sub
private sub cmdcancelar_Click()
accion=0
end sub
private sub Form_unload()
'Para liberear la memoria
cnplanilla.close
set cnplanilla = nothing
rsempleado.close
set rsempleado = nothing
end Sub
'Espero que te sirva, hay más métodos, escríbeme:
Mecatronicxman@hotmail.com
--------------------------------------------------