Ayuda con VB + Access

Iniciado por jdc, 1 Junio 2009, 03:54 AM

0 Miembros y 1 Visitante están viendo este tema.

jdc

Pues eso, estoy tratando de usar el control DAO con visual basic para conectar una base de datos access y no hay caso, la abre sin problemas pero no me deja ingresar datos.

1) Tengo cargada la referencia DAO
2) Tengo un modulo donde declaro DB como mi base de datos, R como recordset y declaro la funcion abrir que abre la base de datos para poder usarla.

Este es el boton ingresar:

Código (vb) [Seleccionar]
    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
    R.AddNew
        R("nven") = Val(Text1.Text)
        R("nombres") = Trim(Text2.Text)
        R("apellidos") = Trim(Text3.Text)
        R("rut") = Trim(Text4.Text)
        R("direccion") = Trim(Text5.Text)
        R("comuna") = Trim(Text6.Text)
        R("region") = Trim(Text7.Text)
        R("com_ven") = Val(Text8.Text)
        R("fono") = Val(Text9.Text)
        R("afp") = Trim(Text10.Text)
        R("salud") = Trim(Text11.Text)
        R("fecha") = MonthView1.Value
       
       t = MsgBox("Los datos se guardaron", 48)
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""


nven que es numero de vendedor es el indice de la tabla vendedores, a ver si alguien me puede ayudar a ver el maldito error que me canse de buscar :xD

Gracias de antemano!

sebaneo

Hola, ya vuelvo con mi otro user..pero ¿que error te tira? ¿ que linea? es importante decirlo...

Saludos.

jdc

Perdon me explique mal, no hay error, compila y genera exe, incluso cuando lo ejecuto y le doy al boton ingresar me tira el mensaje del text :(

CitarLos datos se guardaron

Por eso me extraña, he buscado toda la tarde revisando una y otra vez, y como en ocasiones uno se nubla de tanto leer lo mimsmo mejor lo posteo, ves algun error?

sebaneo

te falta el .Update

saludos.

jdc

Muchas gracias, sabia que terminaria siendo una tontera :xD es una tarea a medias, sin calificacion pero de todas maneras cuando lo termine posteo el codigo completo que esta bien entretenido para principiantes como yo.

Quedo funcionando mil gracias!

Código (vb) [Seleccionar]
    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
    R.AddNew
        R("nven") = Val(Text1.Text)
        R("nombres") = Trim(Text2.Text)
        R("apellidos") = Trim(Text3.Text)
        R("rut") = Trim(Text4.Text)
        R("direccion") = Trim(Text5.Text)
        R("comuna") = Trim(Text6.Text)
        R("region") = Trim(Text7.Text)
        R("com_ven") = Val(Text8.Text)
        R("fono") = Val(Text9.Text)
        R("afp") = Trim(Text10.Text)
        R("salud") = Trim(Text11.Text)
        R("fecha") = MonthView1.Value
    R.Update
       
       t = MsgBox("Los datos se guardaron", 48)
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""
    Text1.SetFocus


PD: Espero que vuelvas luego se te extraña en este subforo!  ;)
Gracias