
PASAR DATOS DESDE TEXTBOXS A UNA TABLA DE LA BASE DE DATOS
Publicado por christian (4 intervenciones) el 16/07/2015 03:03:12
BUENAS NOCHES GENTE!! estoy haciendo un programa y tengo que agregar registros nuevos a la base de datos pero no hay forma de que funcione...
primero tengo un boton agregar el cual me activa todos los texts y me deberia en codigo cuando presiono el boton poner siempre elnuevo codigo,digamos si el ultimofue el 3 cuando pongo agregar me ponga 4..
lo tengoprogramado asi:
SET DEFAULT TO f:\biblioteca
OPEN DATABASE ("f:\biblioteca\biblioteca")
use libros
GO bottom
thisform.txtidlibro.Value= idlibro + 1
thisform.Refresh
pero esta programacion cuando cierro el programa me vuelve a poner 1...
despues tengo un boton ACEPTAR para cuando completo lso texts me los guarde en la tabla...
la programacion esta asi:
SET DEFAULT TO f:\biblioteca
OPEN DATABASE ("f:\biblioteca\biblioteca")
use libros
APPEND BLANK
replace idlibro WITH thisform.txtidlibro.Value
replace fechadeingreso with thisform.txtfechadeingresolibros.Value
replace titulo WITH thisform.txttitulolibros.Value
replace autor WITH thisform.txtautorlibros.Value
replace editorial WITH thisform.txteditoriallibros.Value
replace lugardeimpresion WITH thisform.txtlugardeimpresionlibros.Value
replace fechadeimpresion WITH thisform.txtfechadeimpresionlibros.Value
replace ejemplar WITH thisform.txtejemplarlibros.Value
replace procedencia WITH thisform.txtprocedencialibros.Value
replace estado WITH thisform.cmbestadolibros.Value
MESSAGEBOX("Los registros se han guardado correctamente",48," ")
thisform.SetAll("enabled",.F.,"textbox")
thisform.SetAll("enabled",.F.,"combobox")
thisform.SetAll("value"," ","textbox")
hace un rato me tiraba un error que no coincidia el tipo de dato con la tabla en el de fechadeingreso... ahora lo probe y no me tira error pero tampoco me lo guarda...
alguna idea de donde esta el error? muchas gracias desde ya
primero tengo un boton agregar el cual me activa todos los texts y me deberia en codigo cuando presiono el boton poner siempre elnuevo codigo,digamos si el ultimofue el 3 cuando pongo agregar me ponga 4..
lo tengoprogramado asi:
SET DEFAULT TO f:\biblioteca
OPEN DATABASE ("f:\biblioteca\biblioteca")
use libros
GO bottom
thisform.txtidlibro.Value= idlibro + 1
thisform.Refresh
pero esta programacion cuando cierro el programa me vuelve a poner 1...
despues tengo un boton ACEPTAR para cuando completo lso texts me los guarde en la tabla...
la programacion esta asi:
SET DEFAULT TO f:\biblioteca
OPEN DATABASE ("f:\biblioteca\biblioteca")
use libros
APPEND BLANK
replace idlibro WITH thisform.txtidlibro.Value
replace fechadeingreso with thisform.txtfechadeingresolibros.Value
replace titulo WITH thisform.txttitulolibros.Value
replace autor WITH thisform.txtautorlibros.Value
replace editorial WITH thisform.txteditoriallibros.Value
replace lugardeimpresion WITH thisform.txtlugardeimpresionlibros.Value
replace fechadeimpresion WITH thisform.txtfechadeimpresionlibros.Value
replace ejemplar WITH thisform.txtejemplarlibros.Value
replace procedencia WITH thisform.txtprocedencialibros.Value
replace estado WITH thisform.cmbestadolibros.Value
MESSAGEBOX("Los registros se han guardado correctamente",48," ")
thisform.SetAll("enabled",.F.,"textbox")
thisform.SetAll("enabled",.F.,"combobox")
thisform.SetAll("value"," ","textbox")
hace un rato me tiraba un error que no coincidia el tipo de dato con la tabla en el de fechadeingreso... ahora lo probe y no me tira error pero tampoco me lo guarda...
alguna idea de donde esta el error? muchas gracias desde ya
Valora esta pregunta


0