Visual
Hola, soy nueva en visual basic, estoy practicando el enlace de una base de datos de access con visual pero me sale NO SE PUDO INSTALAR EL ISAM INSTALABLE, hoy volví a instalar el windows que tengo que es xp service pack 2 y office 2003 les dije a ambos que completo y me sigue saliendo el problema. Por favor ayúdeme.
Respuesta de denciso
1
1

denciso, Soy una persona multifacética, tanto manejo la informática,...
Haber con la siguiente liga:
http://www.dotnet247.com/247reference/a.aspx?u=http://support.microsoft.com/?kbid=829558
http://www.dotnet247.com/247reference/a.aspx?u=http://support.microsoft.com/?kbid=829558

Hola David buenos días, en la página de microsoft no me aparece le estoy dando jetengine o jet engine y por ninguno de los dos aparece, ¿en google tampoco me sale ayúdeme?

Ok, perdón me falto preguntar del sistema operativo con service pack.
Ya que esto me orienta más para ver si necesitamos bajar el último jetengine de access.
Ya que esto me orienta más para ver si necesitamos bajar el último jetengine de access.

Ok, me extraña que no venga en driver para access, pero iniciemos, que referencia tienes para la conexión a bases de datos en tu proyecto y que forma de apertura de base de datos tienes en tu programación.

La conexión es microsoft dao 3.6 object library
y la programación esta en el botón guardar así
Private Sub cmdguardar_Click()
base.Recordset.AddNew
base.Recordset.Fields("Nombre") = nombre.txt
base.Recordset.Fields("cedula") = cedula.txt
base.Recordset.Fields("telefono") = telefono.txt
base.Recordset.Fields("Direccion") = direccion.txt
base.Recordset.Fields("edad") = edad.txt
base.Recordset.Update
End Sub
En el data modifique los botones de comando
databasename (nombre base de datos)
Recordsource (nombre de la tabla)
En el grid
Datasource (nombre base de datos) y en las cajas de texto
En el datasource coloque nombre de la base de datos
y el datafield nombre que le di a la caja de texto ejemplo textcedula
y la programación esta en el botón guardar así
Private Sub cmdguardar_Click()
base.Recordset.AddNew
base.Recordset.Fields("Nombre") = nombre.txt
base.Recordset.Fields("cedula") = cedula.txt
base.Recordset.Fields("telefono") = telefono.txt
base.Recordset.Fields("Direccion") = direccion.txt
base.Recordset.Fields("edad") = edad.txt
base.Recordset.Update
End Sub
En el data modifique los botones de comando
databasename (nombre base de datos)
Recordsource (nombre de la tabla)
En el grid
Datasource (nombre base de datos) y en las cajas de texto
En el datasource coloque nombre de la base de datos
y el datafield nombre que le di a la caja de texto ejemplo textcedula

Creo que para la versión que trabajas de access, tienes que instalar el jetengine de access 4.0
Este lo localizas en la página de http://www.microsoft.com/downloads
Este lo localizas en la página de http://www.microsoft.com/downloads

El código es como sigue:
Private Sub cmdguardar_Click()
base1.Recordset.addnew
base1.Recordset.Fields("Nombre") = nombre.txt
base1.Recordset.Fields("cedula") = cedula.txt
base1.Recordset.Fields("telefono") = telefono.txt
base1.Recordset.Fields("Direccion") = direccion.txt
base1.Recordset.Fields("edad") = edad.txt
base1.Recordset.Update
End Sub
Private Sub cmdlimpiar_Click()
txtnombre = ""
Txtcedula = ""
txttelefono = ""
txtdireccion = ""
Txtedad = ""
txtnombre.SetFocus
End Sub
Yu código anterior solo agrega un registro a tu base de datos, si lo estas presentando en un control de grid, le tienes que indicar que recargue los datos.
Private Sub cmdguardar_Click()
base1.Recordset.addnew
base1.Recordset.Fields("Nombre") = nombre.txt
base1.Recordset.Fields("cedula") = cedula.txt
base1.Recordset.Fields("telefono") = telefono.txt
base1.Recordset.Fields("Direccion") = direccion.txt
base1.Recordset.Fields("edad") = edad.txt
base1.Recordset.Update
End Sub
Private Sub cmdlimpiar_Click()
txtnombre = ""
Txtcedula = ""
txttelefono = ""
txtdireccion = ""
Txtedad = ""
txtnombre.SetFocus
End Sub
Yu código anterior solo agrega un registro a tu base de datos, si lo estas presentando en un control de grid, le tienes que indicar que recargue los datos.

Hola David finalmente todos los que baje me decía que eran inferior a los que tenia instalados y me dijeron que instalar access 97 y con ese si me hace la conectividad con tabla, no se si debo finalizar esta pregunta ya calificando o puedo pedirte el favor de que me ayudes ya que con el código que tengo solo me almacena un registro en la tabla pero y no todos los que adiciones.
Yo tengo 5cajas de texto con nombre, cedula, dirección, teléfono y edad - tengo un botón microsoft grid donde cuando con un botón de comando guardar el me lo va mostrando en el grid pero no me va adicionando todos, solo va dejando el ultimo que yo le digo guardar envío el condigo para que me indiques que me falta
Me saca error en la linea
base1. Addnew
Creo debo hacer uncodigo en un botón adicionar pero no se como . ME AYUDAS.
Private Sub cmdguardar_Click()
base1.addnew
base1.Recordset.Fields("Nombre") = nombre.txt
base1.Recordset.Fields("cedula") = cedula.txt
base1.Recordset.Fields("telefono") = telefono.txt
base1.Recordset.Fields("Direccion") = direccion.txt
base1.Recordset.Fields("edad") = edad.txt
base1.Recordset.Update
End Sub
Private Sub cmdlimpiar_Click()
txtnombre = ""
Txtcedula = ""
txttelefono = ""
txtdireccion = ""
Txtedad = ""
txtnombre.SetFocus
End Sub
Yo tengo 5cajas de texto con nombre, cedula, dirección, teléfono y edad - tengo un botón microsoft grid donde cuando con un botón de comando guardar el me lo va mostrando en el grid pero no me va adicionando todos, solo va dejando el ultimo que yo le digo guardar envío el condigo para que me indiques que me falta
Me saca error en la linea
base1. Addnew
Creo debo hacer uncodigo en un botón adicionar pero no se como . ME AYUDAS.
Private Sub cmdguardar_Click()
base1.addnew
base1.Recordset.Fields("Nombre") = nombre.txt
base1.Recordset.Fields("cedula") = cedula.txt
base1.Recordset.Fields("telefono") = telefono.txt
base1.Recordset.Fields("Direccion") = direccion.txt
base1.Recordset.Fields("edad") = edad.txt
base1.Recordset.Update
End Sub
Private Sub cmdlimpiar_Click()
txtnombre = ""
Txtcedula = ""
txttelefono = ""
txtdireccion = ""
Txtedad = ""
txtnombre.SetFocus
End Sub

Hola, ya le adicione la linea que me enviaste en guardar me los adiciona en el grid cuando le digo guardar pero me envía al código y me saca el siguiente error
Error '424' en tiempo de ejecución:
Se requiere un objeto
Y me da la opción de terminar depurar o ayuda
Error '424' en tiempo de ejecución:
Se requiere un objeto
Y me da la opción de terminar depurar o ayuda

Entonces esto indica que puedes grabar bien dos datos y el tercero no, verifica los datos a ver que es lo que esta mal de acuerdo a la definición de tu tabla.

Hola David buenos días, en lassiguientes lineas, en el código de guardar
base1.Recordset.AddNew
Y solo me adiciona tres registros.
base1.Recordset.AddNew
Y solo me adiciona tres registros.

Haber si te entendí, es a cada campo de la tabla agregar datos que corespondan a su definición en la tabla así lo estoy haciendo

Más o menos, pero se trata de ver, si tu campo indica números o enteros o numeric, ese tipo de valores, si se trata de alfanuméricos de ese tipo, fechas lo mismo.
- Compartir respuesta
- Anónimo
ahora mismo
