• Viernes 8 de Noviembre de 2024, 16:02

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - shecano

Páginas: [1]
1
Gracias cpmario por tu colaboracion, bueno te comento ke ya probe con la sugerencia que me hiciste y si guarda bien los datos lo que no me guarda el numero de la imagen y ovbiamente no me copia la imagen a la carpeta especifica. Lo que quisiera en si es un simple codigo que me genere un autonumerico o que me lea el ultimo registro e intentado utilizar este codigo

Dim consecutivo as integer
set RsDatos=Base.execute("Select Max(El_campo ) + 1 From la_tabla")
if RsDatos(0)=0 then
consecutivo=1
rsdatos.addNew
else
consecutivo=Rsdatos(0)
end if
text1.text=consecutivo

lo pongo en el lostfocus de mi txtnombres.text y me localiza el ultimo registro y me suma uno mas, pero no me deja guardar el registro.

La verdad es que el modulo que utilizo para la foto me funciona bien y lo unico que necesito para terminar mi proyecto es solucionar este pequeño y gran problema. Si logro con tu ayuda superar este obstaculo abre terminado mi proyecto.


De todos modos gracias por tu colaboración y tu tiempo que dedicas para contestarme.

Salu2, desde Guatemala.

2
Hola a todos necesito de la ayuda de todos ustedes, estoy programando una pequeña base de datos con visual basic 6.0 y Access 2003, en access tengo como llave principal el campo ORDEN y en autonumerico, el problema es que del numero que genere el campo orden lo utilizo tambien para guardar o copiar una imagen para cada registro en una carpeta especifica, ya que al presionar sobre el boton cargar imagen automaticamente me guarda el registro y me genera el numero de orden y el numero para la foto  y para eso utilizo este pequeño codigo

                                .Requery
                                Dim orden As Integer
                                .MoveLast
                                 orden = !orden
                       
                                .AddNew
                                !orden = orden + 1
                                !FOTO = orden + 1
                                LBLORDEN.Caption = orden + 1

Me funciona pero al ingresar mas de 10 registros me da un error donde me dice que los cambios solicitados no se hicieron porque duplicarian valores en el indice o clave principal, ya que  en acces el campo orden en su propiedad indexado lo tengo en Sí (Sin duplicados), o sea que no puede aceptar numeros duplicados, pero si le quito esa opcion de su propiedad y digo que acepte duplicados me sigue guardando el registro solo que duplicado y eso a mi no me conviene porque no me guarda la foto.

Si alguien me puede ayudar le agradecere muchisimo.

De ante mano graccias, Salu2.

Páginas: [1]