Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/08/2006, 17:15
Avatar de Fabuazul
Fabuazul
 
Fecha de Ingreso: febrero-2006
Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 19 años, 2 meses
Puntos: 7
Como se genera un autonumerico

Quiero el autonumerico de un campo llamado "Folio", quiero hacer una consulta que verifique si ya existe el folio, de no ser así que ingrese el numero 1 y si ya aparece entonces que se empiece a generar un numero de folio consecutivo por cada registro. En visual 6 lo hacia de esta manera:

Cita:
Qry = "SELECT In_Folio, In_Id FROM Jps ORDER BY In_Folio Asc"
Set Gen = DBSQL.OpenRecordset(Qry, dbOpenSnapshot)
If Not Gen.EOF Then
Gen.MoveLast
Folio = (Asigna_Dato_Numerico(Gen.Fields("In_Folio")) * 1) + 1
In_Folio = Gen.Fields("In_Id") + 1
Else
Folio = 1
In_Folio = 1
End If
Y en .NET lo tengo así:

Cita:
Qry = "SELECT ISNULL(MAX(In_Folio) + 1,1) FROM Equipos"
comand.CommandText = Sql
comand.ExecuteScalar()


Campos = ""
Campos = Campos & "In_Folio,"
Campos = Campos & "Cv_Nombre,"
Campos = Campos & "Cv_Planta,"
Campos = Campos & "Cv_Area, "
Campos = Campos & "Cv_Puesto,"
Campos = Campos & "Cv_TipoEquipo"

Datos = ""
Datos= Datos & In_Folio & ","
Datos = Datos & CmbUsuario.Text & ","
Datos = Datos & TxtPlanta.Text & ","
Datos = Datos & TxtArea.Text & ","
Datos = Datos & TxtPuesto.Text & ","
Datos = Datos & CmbTipoEquipo.Text & ""

Sql = "INSERT INTO Equipos (" & Campos & ") VALUES(" & Datos & ")"
comand.CommandText = Sql
comand.ExecuteNonQuery()
Muchas gracias por su tiempo y ayuda.
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D

Última edición por Fabuazul; 21/08/2006 a las 17:51