Foros del Web » Programación para mayores de 30 ;) » .NET »

Error con access y Vb 2008 ¿Por qué no me muestra mi último reg'stro guardado?

Estas en el tema de Error con access y Vb 2008 ¿Por qué no me muestra mi último reg'stro guardado? en el foro de .NET en Foros del Web. Que tal, espero que tengan un poco de tiempo para que me saquen de esta duda, ya tengo días sin poder solucionarla. Tengo un sistema ...
  #1 (permalink)  
Antiguo 17/03/2011, 14:45
 
Fecha de Ingreso: marzo-2011
Ubicación: mexico
Mensajes: 1
Antigüedad: 13 años
Puntos: 0
Pregunta Error con access y Vb 2008 ¿Por qué no me muestra mi último reg'stro guardado?

Que tal, espero que tengan un poco de tiempo para que me saquen de esta duda, ya tengo días sin poder solucionarla.

Tengo un sistema hecho en VB2008 y Acces 2010.
El problema es que hago la consulta de mi último registro y me lo muestra en un label. (Esto con el fin de actualizarlo).
Después al momento de ralizar la acción de guardar un nuevo registro suma el dato te mi "label +1" para después guardarlo en la base de datos.

NOTA: Si me hace las acciones, el problema es que llegué al registro 100 y de ahí no avanza. ya tengo 106 registros, y todos son 101. claro ya le puse que no me premita duplicados, pero el error sigue siendo el mismo, sólo que no me deja guardalo porque crearía valores duplicados.

NOTA 2: Le cambié el numero al registro 100 para ver que reacción tenía y me manda el nuevo dato de ese mismo registro, pareciera que me manda el valor que esté en la posición de fila 100.

El codigo que utilizo es el siguiente


Sub conexion3()
ds.Clear()
Dim adaptador As New OleDbDataAdapter("select*from Recarga", cn)'Recarga nombre de mi tabla
cn.Open()
adaptador.Fill(ds, "Recarga")
cn.Close()
End Sub



'CARGA DESDE LA BASE DE DATOS LA TABLA RECARGA
Sub cargar3()
conexion3()
If ds.Tables("Recarga").Rows.Count > 0 Then

Dim dr As DataRow
dr = ds.Tables("Recarga").Rows(fila)
lblticket.Text = dr("Ticket").ToString ' ticket nombre de la columna y lblticket label que me mostrará el dato
End If
End Sub


'ESTA ES LA PARTE QUE ME HACE LA BUSQUEDA del último registro
conexion3()
fila = ds.Tables("Recarga").Rows.Count - 1
cargar3()



'Se actualiza el numero de ticket
lblticket.Text = lblticket.Text + 1


Gracias por sus ayuda, Nos vemos ams delante

Etiquetas: access, basic, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:23.