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:
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!
Hola, ya vuelvo con mi otro user..pero ¿que error te tira? ¿ que linea? es importante decirlo...
Saludos.
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?
te falta el .Update
saludos.
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!
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