Visual Basic - Poner valor de una celda en un textbox

Life is soft - evento anual de software empresarial
   
Vista:

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 OleDbConnection
 
 
 
Public 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder