none
COMO CREAR QUE EL INDICE CODIGO SE GENERE AUTOMATICAMENTE EN VISUAL BASIC 6 RRS feed

  • Pregunta

  • Hola a todos soy nuevo por aquí y estoy aprendiendo visual basic 6, ahora mi pregunta era la siguiente.. 

    yo estoy haciendo un sistema de ventas y quiero que cada producto que agregue automáticamente se genere un código. 

    ejemplo: 

    Equipo:  Galaxy S3     /*agrego el modelo de celular

    Modelo:  i9300           /*agrego el modelo

    Precio de Venta :  100.00 USD    /*agrego el precio

    lo guardo y tiene que generarme un código 0000000001 , y luego guardo otro y tiene que generarme 0000000002 y así consecutivamente  000000016.... 

    tengo mi BD unida en un modulo llamándola:

    Call EnlazeBase1

    me conecto a la DB en Access y bueno lo demás me gustaría que me ayuden en ese código

    porfavor agradeceré cualquier aporte gracias...

    martes, 26 de febrero de 2013 14:56

Respuestas

  • Hola Moises

    '*********************************************************************************
    '*                              Genera Id                                        *
    '*********************************************************************************
    Public Function GetNextId(cliCodigo As String) As String
      Dim Num As String
      Call Conectar
      strSQL = "SELECT MAX(cli_codigo) FROM Clientes"
      rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
      Num = Val(rs(0) & "") + 1
      GetNextId = Cero(MaxCodigo5 - Len(CStr(Num))) + CStr(Num)
      GetNextId = Num
    '  rs.Close
    '  Set rs = Nothing
      Call Desconectar
    End Function

    Y luego

    Public Const MaxCodigo5 = 5 ' tamaño del campo de tablas
    Espero te sirva.


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú


    jueves, 21 de marzo de 2013 12:24

Todas las respuestas

  • Al, definir la tabla en Access tienes que poner el campo código como autonumérico para que vaya tomando valores consecutivos de forma automática.

    Saludos, Javier J

    martes, 26 de febrero de 2013 15:45
  • hola moises

    En que acces trabajas? si trabajas en 2010 puedes crear una macro o un stored procedure

    para crear una macro abres la pestaña de Tabla y despues de actualizar incrementar el campo codigo, tengo una porcion de codigo que incrementa una variable Consecutivo y hace lo que necesitas

    para ver donde se abren los macros revisa este link acces

    http://stackoverflow.com/questions/3287545/how-do-i-make-a-stored-procedure-in-ms-access

    suertes


    • Editado santival miércoles, 27 de febrero de 2013 22:45
    miércoles, 27 de febrero de 2013 22:43
  • Hola Moises

    '*********************************************************************************
    '*                              Genera Id                                        *
    '*********************************************************************************
    Public Function GetNextId(cliCodigo As String) As String
      Dim Num As String
      Call Conectar
      strSQL = "SELECT MAX(cli_codigo) FROM Clientes"
      rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
      Num = Val(rs(0) & "") + 1
      GetNextId = Cero(MaxCodigo5 - Len(CStr(Num))) + CStr(Num)
      GetNextId = Num
    '  rs.Close
    '  Set rs = Nothing
      Call Desconectar
    End Function

    Y luego

    Public Const MaxCodigo5 = 5 ' tamaño del campo de tablas
    Espero te sirva.


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú


    jueves, 21 de marzo de 2013 12:24