Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/08/2008, 18:30
pako-gto1980
 
Fecha de Ingreso: agosto-2008
Mensajes: 13
Antigüedad: 15 años, 8 meses
Puntos: 0
Respuesta: web form de asp.net y sql server 2005

Cita:
Iniciado por mdavila Ver Mensaje
Bueno no entiendo bien tu problema.....
Vos tenes que aumentar un contador que esta en tu BD?

Pone tu codigo a ver....

Saludos.
No es el codigo, creo que en sql server me esta guardando en numero de veces que doy clic en guardar....
Mi tabla solo tiene un registrooo, al incrementar debe guardar el 2 en el campo clave, pero no guarda ese consecutivooo, sino me pone otro numero 30 por ejemplo. Vuelvo a borrar otra ves el regsitro agregado, y hago el mismo proceso de guardar los datos, nuevamente lo logico que seria 2, pero sin embargo me pone el 31 y asi sucesivamenteee

Por si acaso ahi esta el codigooo
Al momento de cargar la web form
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sqlstr As String
Dim tabla As New Grupogto
If Not Page.IsPostBack Then

sqlstr = "select top 1 orden_servicio from ve_ordenes_servicio order by orden_servicio desc"
lblordenno.Text = tabla.recupera_query(sqlstr, "orden").Rows(0).Item("orden_servicio") + 1
txtfecha.Text = DateTime.Today.Date
tabla = Nothing
End If
tabla = Nothing
End Sub

Al dar click en guardar...

Protected Sub cmdGraba_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngraba.Click
Dim tabla As New Grupogto
Dim strSituacion As String
Dim Fecha_Close As Date

strSituacion = "A"
Fecha_Close = System.Data.SqlTypes.SqlDateTime.Null

Dim datos(,) As String = {{"fecha_servicio", txtfecha.Text, td.tddatetime}, {"vehiculo_fk", unidad.SelectedValue, td.tdint}, _
{"remolque_fk", Val(lblJaula.Text), td.tdint}, {"operador_fk", Val(lblIDOperador.Text), td.tdint}, _
{"kilometraje", Val(txtKM.Text), td.tdint}, {"Observaciones", txtObservaciones.Text, td.tdvarchar}, _
{"Situacion", strSituacion, td.tdnvarchar}, {"Fecha_Cerrada", Fecha_Close, td.tddatetime} _
}
tabla.inserta("ve_ordenes_servicio", datos)

btngraba.Enabled = False
Label1.Visible = True
chkref.Visible = False

End Sub

Ojala me puedas ayudar