Cita:
Y en .NET lo tengo así: 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
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
Cita:
Muchas gracias por su tiempo y ayuda. 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()
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()