SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Gabrielon en Miércoles 22 de Febrero de 2006, 19:54
-
Buenas Tardes, disculpen, kisiera ver si me pueden hechar la mano en agregar un dato de un combo a una base de datos en acces, les pongo el caso...
Private Sub Form_Load()
For j = 1 To 2
cmbSexo.AddItem Choose(j, "Masculino", "Femenino")
Next
End sub
--------------------------------------------------------------------------
Private Sub cmdGuardar_Click()
DEAlumnos.rsCmdAlu.Open
DEAlumnos.rsCmdAlu.AddNew
DEAlumnos.rsCmdAlu!Nombre = txtNombre(0)
DEAlumnos.rsCmdAlu!Paterno = txtPaterno(1)
DEAlumnos.rsCmdAlu!Materno = txtMaterno(0)
DEAlumnos.rsCmdAlu!Nac = txtFeNa
DEAlumnos.rsCmdAlu!Sexo = ???????
DEAlumnos.rsCmdAlu.Update
DEAlumnos.rsCmdAlu.Close
End Sub
------------------------------------------------------------
bueno, ese es el codigo que tengo pero en el DEAlumnos.rsCmdAlu!Sexo = ???? ahi si no se ke es lo que le puedo poner, por he intentdo, pero ese campo no me lo guarda en la base de datos, o diganme por donde le puedo dar....
Gracias
-
1.- En la tabla donde guardas los datos, y en particular el campo SEXO, de que tipo lo tienes definido?
2.- Suponiendo que es de tipo numerico, y que la codificacion es del tipo:
0: No seleccionado
1: Masculino
2: Femenino
entonces, deberias usar algo similar a :
if sexo.listindex>-1 then
if sexo.text="Masculino" then
DEAlumnos.rsCmdAlu!Sexo = 1
else
DEAlumnos.rsCmdAlu!Sexo = 2
endif
else
DEAlumnos.rsCmdAlu!Sexo = 0
endif
3.- Suponiendo que es de tipo caracter y de largo 1, y que la codificacion es del tipo:
" ": No seleccionado
"M": Masculino
"F": Femenino
entonces, deberias usar algo similar a :
if sexo.listindex>-1 then
DEAlumnos.rsCmdAlu!Sexo = mid(sexo.text,1,1)
else
DEAlumnos.rsCmdAlu!Sexo = ""
endif
4.- Suponiendo que es de tipo caracter y largo 10, y que la codificacion es del tipo:
" ": No seleccionado
"Masculino": Masculino
"Femenino": Femenino
entonces, deberias usar algo similar a :
if sexo.listindex>-1 then
DEAlumnos.rsCmdAlu!Sexo = sexo.text
else
DEAlumnos.rsCmdAlu!Sexo = " "
endif
Existen muchas otras formas de enfrentar tu problema, depende de que tipo de dato debes guardar, te indicara la forma de resolverlo.
Espero te sirva
-
Gracias Jose Arriaga, me fue de mucha utilidad, ya me funciono