Poner valor de una celda en un textbox
Publicado por Poner valor de una celda en un textbox (1 intervención) el 29/04/2017 06:39:24
hola necesito hacer lo siguiente: mientras este escribiendo en un textbox determinado quiero que se realice la consulta en la base de datos para buscar los valores que puedan ser iguales al valor del textbox, es decir quiero que me aparezcan sugerencias mientras escribo en la textbox. una vez que seleccione una de las sugerencias quiero que en un label me aparezca la suma de los valores de la columna "cantidad" donde el nombre sea el mismo
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
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.TextLength > 2 Then
TextBox1 = obj.Devolver(TextBox1.Text)
Total.Text = obj.Devolvertotal(TextBox1.Text)
End If
End Sub
Dim connString As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Deudas.accdb")
Dim Conección As OleDbConnection = New OleDbConnectionPublic Function Devolvertotal(nombre As String) As DataRelation
Dim consulta As String = "select SUM(Cantidad) from Tabla1 where Nombre like '" & nombre & "%'"
Dim dt As New DataRelation
Dim adaptador As New SqlDataAdapter(consulta, connString)
adaptador.Fill(dt)
Return dt
End Function
Public Function Devolver(nombre As String) As DataRelation
Dim consulta As String = "select Nombre from Tabla1 where Nombre like '" & nombre & "%'"
Dim dt As New DataRelation
Dim adaptador As New SqlDataAdapter(consulta, connString)
adaptador.Fill(dt)
Return dt
End Function
Valora esta pregunta
0