| |||
Cita: Este es el codigo que agreguè, pero me aparece un error de runtime, lo siento no puedo publicar la liga de la imagen del error...
Iniciado por tazzito agrega en referencias microsoft dao x.xx object library y es asi dim base as dao.database, consulta as dao.recordset set base=opendatabase(rutabase,false) set consulta = base.openrecordset("select * from clientes",dbopendynaset) tambien existe y es mas nueva la libreria ado busca informacion sobre ella pero para access es mejor dao ;)
Código:
Private Sub cmd_guardar_Click() Dim base As DAO.Database, guardar As DAO.Recordset Set base = opendatabase("C:\base_prueba.mdb", False) Set guardar = base.openrecordset("INSERT INTO paciente VALUES('" & txt_idpaciente.Text & "','" & txt_nombre.Text & "','" & txt_apellido_paterno.Text & "','" & txt_apellido_materno.Text & "','" & txt_calle.Text & "','" & txt_numero.Text & "','" & txt_ciudad.Text & "','" & cmb_estado.Text & "','" & cmb_genero.Text & "','" & txt_fech_nac.Text & "')", dbopendynaset) End Sub |