Visual Basic.NET - Campo de busqueda

   
Vista:

Campo de busqueda

Publicado por Norwin (11 intervenciones) el 10/12/2007 20:04:50
Hola a todos, necesito saber como puedo crear un campo de busqueda desde un textbox soy nuevo en vb 2005

Gracias
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

RE:Campo de busqueda

Publicado por P. J. (706 intervenciones) el 10/12/2007 20:29:58
Aqui te dejo un Ejemplo de conexion y busqueda de datos hacia la BD NEPTUNO, que viene como ejemplo en el Office (access)

Imports System.Data.OleDb

Public Class Form1

Dim oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Archivos de programaMicrosoft OfficeOffice10SamplesNeptuno.mdb")
Dim oAdaptador As OleDbDataAdapter
Dim dt As New DataTable

Private Sub busca(ByVal strCriterio As String)
Dim strSQL As String
strSQL = "SELECT * FROM CATEGORÍAS WHERE IDCATEGORÍA = " & strCriterio
oAdaptador = New OleDbDataAdapter(strSQL, oConexion)
oAdaptador.Fill(dt)
Me.DataGridView1.DataSource = dt
If dt.Rows.Count > 0 Then
Me.Text = dt.Rows(0).Item("NOMBRECATEGORÍA").ToString
Else
Me.Text = "Categoria no encontrada."
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
busca(Me.TextBox1.Text)
End If
End Sub

End Class

Salu2.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar