Visual Basic - agregar registro a base de datos

Life is soft - evento anual de software empresarial
 
Vista:

agregar registro a base de datos

Publicado por roberto (14 intervenciones) el 07/08/2007 22:46:41
hola: quiero agregar un registro a la base de datos pero no se donde esta el error, el codigo es el sgte:

Dim varbase As Database
Dim varreg As Recordset
Set varbase = OpenDatabase("C:\Documents and Settings\ROBERTO GODOY\Mis documentos\base de datos programa.mdb")
Set varreg = varbase.OpenRecordset("vales")

varreg.AddNew

varreg.Empresa = Text1.Text
varreg.Serie = Text2.Text
varreg.Movil = Text3.Text
varreg.Fecha = Text4.Text
varreg.Conductor = Text5.Text
varreg.Tarifa = Text6.Text
varreg.Observaciones = Text7.Text

varreg.Update

los cuadros de texto contiene la informacion que deseo agregar. agradecere si me pueden ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:agregar registro a base de datos

Publicado por P. J. (173 intervenciones) el 07/08/2007 23:03:38
Pon que error te bota, primera ves que veo el metodo openRecordSet

Puede ser por el que no has instanciado el varreg? o ese metodo OpenRecordset ya lo instancia?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar registro a base de datos

Publicado por El teacher (1 intervención) el 08/08/2007 00:24:12
¿Primera vez (con "Z") que ves (con "S") el metodo OpenRecordSet ?
Bueno, pues es el método con el que se abría una tabla en los buenos tiempos de DAO. Entonces también debería haberte sorprendido el método OpenDataBase. Esos ya no se usan con la tecnología ADO.
Ojalá sepas qué es DAO y ADO.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

A ver así

Publicado por Yo (38 intervenciones) el 08/08/2007 00:28:16
Usa el "!" en vez del punto
O sea
varreg!Empresa = Text1.Text
en lugar de
varreg.Empresa = Text1.Text
Así, con los demás datos.

También puede ser
varreg.Fields("Empresa") = Text1.Text
pero es escribir código de más.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias

Publicado por roberto (14 intervenciones) el 08/08/2007 00:53:30
muchas gracias... habia que poner "!" y no "."
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar