boton siguiente y atras en consulta sql
Publicado por nato (59 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
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
0