Visual Basic.NET - boton siguiente y atras en consulta sql

 
Vista:
sin imagen de perfil
Val: 116
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

boton siguiente y atras en consulta sql

Publicado por nato (57 intervenciones) el 08/05/2017 16:43:29
hola gracias por su ayuda


estoy trabajando en visual estudio y sql server

tengo un formulario con texbox en donde hago una busqueda por filtros y los resultados los muestro en un datagridview hasta hay todo bien pero lo que quiero hacer es que las datos que busque la cunsulta los balla mostarndo uno por una en los texbox y para eso quiero los botones siguiente y atras pero la verda no se como hacerlo
espero alguien me pueda orientar

este es al codigo de la busqueda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'  Dim SQL As String = "select codigo,clave,productolinea,proveedor,modelo,material,forma,descripcion,medida,color,empaque,menudeo,mayoreo,fecha,ISNULL(rfoto,'Sin foto') from productos  where (proveedor = '" & txtcadena.Text & "')"
Dim SQL As String = "select codigo,clave,productolinea,proveedor,modelo,material,forma,descripcion,medida,color,costo,empaque,menudeo,mayoreo,fecha,moneda,ISNULL(rfoto,'Sin foto') from productos  where " & txtcadena.Text & " "
Dim MiConexion As New SqlConnection(CADENACONEXION1)
'PARA CONTAR CUANTOS REGISTRO SE ENCONTARON
Dim contador As Int16
 
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim cadena As SqlDataAdapter = New SqlDataAdapter(SQL, MiConexion) ' para validar que halla registro
Dim DT As DataTable = New DataTable ' para validar que halla registro
cadena.Fill(DT) ' para validar que halla registro
 
 
 
 
 
Com.Connection = MiConexion
MiConexion.Open() 'abrimos la conexion
 
Com = New SqlCommand(SQL, MiConexion)
 
'EL RESULTADO DE LA CONSULTA EN NUMEROS DE REGISTROS SE PASA A LA VARIABLE CONTADOR
contador = DT.Rows.Count
' se pasa la variable contador al textoreg para que se visualize en el form cuantos registros se encontraron
 
txtreg.Text = contador
 
 
If DT.Rows.Count > 0 Then ' si el cout es diferente de cero si hay registro y HACE LA CONSULTA
 
 
    Rs = Com.ExecuteReader()
 
    Rs.Read()
 
    dtgproductos.DataSource = DT ' pasamos la consulta al datagridview
 
 
    Rs.Close()
 
    MiConexion.Close()
 
 
 
Else
    'si no hay dato manda este mensaje
    MessageBox.Show("no hay dato", "MENSAJE", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 
 
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 196
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

boton siguiente y atras en consulta sql

Publicado por arbol (166 intervenciones) el 08/05/2017 16:57:09
declara una variable global tipo numero
dim adelanteatras as integer=0


para el boton avanzar
sub avanza
adelanteatras +=1
select nomobre from productos where id=adelanteatras

aqui para mostar el extbox
'EL RESULTADO DE LA CONSULTA EN NUMEROS DE REGISTROS SE PASA A LA VARIABLE CONTADOR
contador = DT.Rows.Count
' se pasa la variable contador al textoreg para que se visualize en el form cuantos registros se encontraron

txtreg.Text = contador
en sub


para el boton retroceder
sub avanza
adelanteatras -=1
select nomobre from productos where id=adelanteatras

aqui para mostar el extbox
'EL RESULTADO DE LA CONSULTA EN NUMEROS DE REGISTROS SE PASA A LA VARIABLE CONTADOR
contador = DT.Rows.Count
' se pasa la variable contador al textoreg para que se visualize en el form cuantos registros se encontraron

txtreg.Text = contador
en sub


espero lo cheques y lo adaptes a lo que deseas

cualquier cosa envia un email
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar