Visual Basic - AGREGAR NUEVO REGISTRO

Life is soft - evento anual de software empresarial
   
Vista:

AGREGAR NUEVO REGISTRO

Publicado por Damian (5 intervenciones) el 29/06/2010 05:26:39
Hola quisiera saber si pueden darme una mano con esto que me esta pasando.

Cuando intento grabar un nuevo registro en mi base de datos confeccionada en microsoft access, lo hago con el comando AddNew (utilizo un DataEnviroment para la conexion) graba siempre en el mismo lugar, o sea en la misma posicion, reemplazando lo que estaba alli grabado. Nunca agrega un nuevo registro.

Como mi clave no en autonumerica, sino que sigue un patron por lo cual hay que ingresarla por teclado, cargo la totalidad de los datos y al confirmar los mismos para proceder a grabarlos, ejecuto el comando AddNew y luego un Update.

Valido datos
Valido datos

"Ejecuto AddNew"
"Ejecuto Update"

Esto no me paso nunca quisiera saber si necesito agrgar un MoveNext o hacerlo de otra manera porque a mi me parece rarisimo.


Desde ya muchas gracias
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

RE:AGREGAR NUEVO REGISTRO

Publicado por Julio (72 intervenciones) el 29/06/2010 15:35:09
Hola te diria que pegues el codigo, sera mejor para ayudarte a encontrar tu error:

Pero por la dudas te aclaro talvez tontamente que la sentencia seria asi

addnew ' primero

datos a grabar 'en el medio
datos a grabar
datos a grabar
datos a grabar
datos a grabar
datos a grabar

update 'ultimo

Bueno no se si pegas tu codigo talvez lo pueda corregir

saludos julio
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 NUEVO REGISTRO

Publicado por Damian (5 intervenciones) el 29/06/2010 16:35:28
Gracias Julio ahi va el codigo. Los datos estan enlazados con los controles (textbox)


Public Sub Guardar()

If ValidoCloc = True Then
If ValidoDloc = True Then
If ValidoLoc = True Then
Entorno.rsMLOCA.AddNew
MsgBox "Grabado correctamente", vbExclamation + vbOKOnly
Call DeshabilitoTextos
Else
MsgBox "La localidad ya existe", vbCritical + vbOKOnly, "Error"
Call VacioTextos
txt_codigo_localidad.SetFocus
End If
Else
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
End If
Else
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
End If
End Sub


Gracias
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 NUEVO REGISTRO

Publicado por Julio (72 intervenciones) el 29/06/2010 16:51:42
Public Sub Guardar()

If txt_codigo_localidad.Text = "" then
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

If siguienteText.Text = "" then 'aqui iria el nombre del otro textbox
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

If siguienteText.Text = "" then 'aqui iria el nombre del otro textbox
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

UNA VEZ PASADO LOS FILTROS DE ARRIBA:

If ValidoCloc = True And ValidoDloc = True And ValidoValidoLoc = True then
Entorno.rsMLOCA.AddNew
Entorno.rsMLOCA.Update
MsgBox "Grabado correctamente", vbExclamation + vbOKOnly
Call DeshabilitoTextos
Else
MsgBox "La localidad ya existe", vbCritical + vbOKOnly, "Error"
Call VacioTextos
txt_codigo_localidad.SetFocus
End If

End Sub

Sino escribime no ahi drama!!!!
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