Programación General > Visual Basic 6.0 e inferiores

 Problemas Con Bases Dao Y Ado

(1/2) > >>

neorent:
hola a todos espero que esten muy bien
bueno les cuento:
   tengo el siguiente problema tengo una base de datos access 97 la cual tiene como 5 tablas es algo bien chico pero super util y resulta que esta tabla se encuentra en un servidor y estoy diseñando una aplicacion que lea esta bases y por ejemplo tengo la tabla maestro la cual funciona con un indice auto numerico y siempre leo el ultimo registro para tomar el valor y sumarle uno para agregar uno nuevo, por ejemplo el ultimo en la tabla es "Folioatencion" y su valor es "2001" si yo quiero agregar uno nuevo le sumo uno osea seria "folioatencion" y su valor es "2002" esto funcionaba super bien pero la ultima ves que descargue la base de datos ya no puedo tomar el ultimo valor del folioatencion el codigo de busqueda es el siguiente

 Private Sub Form_Load()
 Set a = OpenDatabase(App.Path & "\bd1.mdb")
 Set b = a.OpenRecordset("maestro_atenciones")
 If b.RecordCount = 0 Then
     MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
 Else
     b.MoveLast
 End If
 Dim folio As Integer
 folio = Val(b.Fields("folio_atencion"))
 Text1.Text = Val(Text1.Text) + folio
 Text1.Text = Val(Text1.Text) + 1
 end sub

y supuestamente deberia funcionar por favor si alguien me puede ayudar o no entendio lo que trate de explicar que escriba aqui y le constesto please,
muchas gracias a todos por su ayuda adios
 :comp:

Sagutxo:
Salu2. Yo solo comento, Parece que lo que quieres es un contardor. En mi caso siempre tengo una tabla dedicada exclusivamente a contadores.

   ¿No te sería mas fácil?
 :blink:
Suerte.

eliza_marti:
Hola neorent  :hola: ...pienso que antes de preguntar por el recordcount=0 deberias posicionarte en el ultimo registro para que la cuenta sea correcta.. :) ...
osea..algo asi:


--- Código: Text ---Private Sub Form_Load()    Set a = OpenDatabase(App.Path & "\bd1.mdb")    Set b = a.OpenRecordset("maestro_atenciones")    b.MoveLast    If b.RecordCount = 0 Then           MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"    End If    Dim folio As Integer    folio = Val(b.Fields("folio_atencion"))    Text1.Text = Val(Text1.Text) + folio    Text1.Text = Val(Text1.Text) + 1end sub 
Prueba con eso y me cuantas.. ;) ..suerte..nos vemos.. :hola:  :comp:..y espero que tengas una Feliz Navidad y un Prospero Año Nuevo.. :angel:

cpmario:
Yo tuve problemas con un campo de indice auto numérico, que ya no quiso avanzar el índice, pero fue con DAO, cuando pasé la base de datos de Office 97 (Access Jet 3.5) a Office 2000 (Access Jet 3.6)

Si este puede ser tu problema, busca en Microsoft o Google lo referente al artículo con el siguiente número: Q202117


---------------------------------------------

neorent:

--- Cita de: "eliza_marti" --- Hola neorent  :hola: ...pienso que antes de preguntar por el recordcount=0 deberias posicionarte en el ultimo registro para que la cuenta sea correcta.. :) ...
osea..algo asi:


--- Código: Text ---Private Sub Form_Load()    Set a = OpenDatabase(App.Path & "\bd1.mdb")    Set b = a.OpenRecordset("maestro_atenciones")    b.MoveLast    If b.RecordCount = 0 Then           MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"    End If    Dim folio As Integer    folio = Val(b.Fields("folio_atencion"))    Text1.Text = Val(Text1.Text) + folio    Text1.Text = Val(Text1.Text) + 1end sub 
Prueba con eso y me cuantas.. ;) ..suerte..nos vemos.. :hola:  :comp:..y espero que tengas una Feliz Navidad y un Prospero Año Nuevo.. :angel:
--- Fin de la cita ---
mira probe lo que me decia pero es algo extraño no se que le ocurre pk hay veces que ejecuto y me muestra la cantidad de registro, y lo que yo necesito es el valor que contenga el ultimo registro pero ejemplo la llave de esta tabla la cual tengo el problema es autonumerica y busco el ultimo registro por ejemplo 2001 y le sumo 1 para que me de un registro nuevo y seria 2002 pero lo que ahora tengo problema es que no puedo rescatar ese ultimo valor no se si me explico osea si la tabla me muestra que el ultimo valor es 2001 y la aplicacion me muestra que ultimo valor es 1998 osea no me esta contando esos 3 registros faltantes no se si me entiendes y el problema ademas es que si yo sigo ingresando en la base de datos esto no aumenta osea si ya he ingresado por eje. 2006 aun sigue mostrando la aplicacion que estoy en 1998 si me pueden ayudar se los agradeceria mucho ya tengo inflamadas mis neuronas jajajajaa bueno cualquier ayudita sirve se los agradesco un saludo a todos que esten muy bien adios

Navegación

[0] Índice de Mensajes

[#] Página Siguiente