Problemas contador
Publicado por Víctor (2 intervenciones) el 09/04/2010 13:14:16
Hola es mi primer mensaje en el foro y espero que me podais ayudar. Tengo un txtAveria.text(que no se puede modificar),un datagrid y una serie de campos para rellenar el datagrid.Me gustaria que cada vez que presione el boton añadir, al txtAveria.Text, que contiene un numero de la tabla de la base de datos se le sume 1,ya que este textbox conecta con el datagrid y la base de datos. He utilizado un contador pero cuando termina de hacerlo todo vuelve al valor inicial y nose como hacer que el numero del contador se mantenga para la proxima vez que vaya a grabar algo.
Hay alguna manera de que el textbox vaya cogiendo el priemr elemento de la tabla conforme vaya agregando filas??
Esto es lo que he hecho para que muestre la informacion
Private Sub MostrarInformacion()
' Lee información del titulo especificado y la muestra en los textbox.
cadenaSeleccion = "SELECT Nº FROM averias"
Dim dt As DataTable = cargarDT(cadenaSeleccion, cadenaConexion)
txtFecha.Text = Date.Now.Date
txtAveria.Text = cont
' cierra el DataReader.
End Sub
Y esto para insertar los datos y el contador
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If txtFecha.Text <> "" And txtAveria.Text > -1 Then
cadenaComando = "insert into Averias (Nº, Descripcion, Ubicacion, Fecha_solicitud, Dias , Estado , Observaciones) values (" & _
"'" & txtAveria.Text & "'," & _
"'" & TextBox1.Text & "'," & _
"'" & ddlUbicacion.Text & "'," & _
"'" & txtFecha.Text & "'," & _
"'" & TextBox5.Text & "'," & _
"'" & ddlEstado.Text & "'," & _
"'" & TextBox4.Text & "')"
'Actualizamos los datos introducidos
If actualizar(cadenaComando, cadenaConexion) = False Then
Label3.Text = "Problemas al insertar , verifique sus datos"
Else
Label3.Text = "Insertado con exito"
enlazardatagrid()
End If
Else
Label3.Text = "Ese modelo ya existe"
End If
'End If
'Incrementamos la variable en 1
contador = contador + 1
txtAveria.Text = contador
End Sub
Cuando hago eso por primera vez el txtAveria.text que es donde quiero introducir el numero vale 0 y despues al sumarle el contador vale uno para que cuando vuelva a insertar otro dato no aparezca repetido en la base de datos pero cuando termino esa operacion y quiero meter otro dato el txtAveria que valia 1 se ha vuelto a poner a 0. Espero que puedan ayudarme porque ya nose que hacer.
Hay alguna manera de que el textbox vaya cogiendo el priemr elemento de la tabla conforme vaya agregando filas??
Esto es lo que he hecho para que muestre la informacion
Private Sub MostrarInformacion()
' Lee información del titulo especificado y la muestra en los textbox.
cadenaSeleccion = "SELECT Nº FROM averias"
Dim dt As DataTable = cargarDT(cadenaSeleccion, cadenaConexion)
txtFecha.Text = Date.Now.Date
txtAveria.Text = cont
' cierra el DataReader.
End Sub
Y esto para insertar los datos y el contador
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If txtFecha.Text <> "" And txtAveria.Text > -1 Then
cadenaComando = "insert into Averias (Nº, Descripcion, Ubicacion, Fecha_solicitud, Dias , Estado , Observaciones) values (" & _
"'" & txtAveria.Text & "'," & _
"'" & TextBox1.Text & "'," & _
"'" & ddlUbicacion.Text & "'," & _
"'" & txtFecha.Text & "'," & _
"'" & TextBox5.Text & "'," & _
"'" & ddlEstado.Text & "'," & _
"'" & TextBox4.Text & "')"
'Actualizamos los datos introducidos
If actualizar(cadenaComando, cadenaConexion) = False Then
Label3.Text = "Problemas al insertar , verifique sus datos"
Else
Label3.Text = "Insertado con exito"
enlazardatagrid()
End If
Else
Label3.Text = "Ese modelo ya existe"
End If
'End If
'Incrementamos la variable en 1
contador = contador + 1
txtAveria.Text = contador
End Sub
Cuando hago eso por primera vez el txtAveria.text que es donde quiero introducir el numero vale 0 y despues al sumarle el contador vale uno para que cuando vuelva a insertar otro dato no aparezca repetido en la base de datos pero cuando termino esa operacion y quiero meter otro dato el txtAveria que valia 1 se ha vuelto a poner a 0. Espero que puedan ayudarme porque ya nose que hacer.
Valora esta pregunta


0