buscar mientras se escribe
Publicado por anonymous (99 intervenciones) el 16/09/2015 01:03:48
Hola a todos:
Quiero que si el usuario teclea en un textbox las primeras letras de un nombre, estos nombres se desplieguen en un datagrid; si escribe s que enliste todos los que inician con "s", si escribe "sa", que se enlisten los nombres que inician con "sa" y asi sucesivamente; este es el codigo pero no logro hacerlo correctamente. Alguien puede ayudarme? Gracias de antemano:
Quiero que si el usuario teclea en un textbox las primeras letras de un nombre, estos nombres se desplieguen en un datagrid; si escribe s que enliste todos los que inician con "s", si escribe "sa", que se enlisten los nombres que inician con "sa" y asi sucesivamente; este es el codigo pero no logro hacerlo correctamente. Alguien puede ayudarme? Gracias de antemano:
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
Imports System.DataImports System.Data.OleDb
Public Class frmPrincipal
Private conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\est22.mdb"
Private cmd As OleDbConnection = New OleDbConnection(conn)
Private alumDataSet As DataSet
Private tAdapter As OleDbDataAdapter = New OleDbDataAdapterDim alum As String
Private iniciando As Boolean = TruePrivate Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtnombres.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub txtnombres_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnombres.TextChanged
Dim lista As Byte
If txtnombres.Text <> "" Then
tAdapter.SelectCommand = New OleDbCommand("SELECT * FROM alumnos where nombre = '" + txtnombres.Text + "'", cmd)
alumDataSet = New DataSetalumDataSet.Tables.Add("alumnos")
tAdapter.Fill(alumDataSet.Tables("alumnos"))
lista = alumDataSet.Tables("alumnos").Rows.Count
If lista <> 0 Then
DataGridView1.DataSource = alumDataSet
DataGridView1.DataMember = "nombre"
End If
End If
End Sub
End Class
Valora esta pregunta
0
