Visual Basic.NET - Busqueda de registros

   
Vista:

Busqueda de registros

Publicado por Pablo Arellano (1 intervención) el 03/11/2009 18:37:08
Hola buen dia a todos.

Bueno pues heme aqui preguntando lo ultimo para concluir un sistemita que hice en VB2008, tengo una base de datos conectada a un proyecto de Visual Basic, en la que puedo guardar, modificar, eliminar o agregar informacion. Todo va de maravilla. Ahora me han pedido en mi trabajo que incluya la opcion de buscar un registro en especifico (por ID generalmente) o multiples registros que tengan un criterio en comun, como por ejemplo el apellido de una persona o la edad, inclusive el estado en donde viven.

Para esto, me interesa primero cubir la primera parte que es encontrar un registro especifico proporcionado en un texttbox. He buscado en este foro demas consultas sobre el tema, pero no como lo necesito hacer.

La base de datos es en mdb y vinculada por respectivos bindings Sources, TableAdapters y DataSets. Ya tengo el boton y el cuadro de texto que se ocupara para ingresar el dato y ejecutar loa busqueda. Si alguien sabe como hacerlo, espero que me pueda ayudar.

Toda la informacion se muestra en Cuadros de texto, no uso Datagrids.
De antemano 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:Busqueda de registros

Publicado por csdk (17 intervenciones) el 05/11/2009 00:37:11
ejemplo para buscar reguistros con un text box y un datagritview es para postgresql pero gual funciona solo cambian los adapters a sql

Private Sub Buscar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If cvl_buscar = "Clientes" Or cvl_buscar = "ClientesC" Then
With ListView1
.View = View.Details
.GridLines = True
.FullRowSelect = True
.LabelEdit = True
.Columns.Add("ID", 50, HorizontalAlignment.Center)
.Columns.Add("Abreviacion", 80, HorizontalAlignment.Center)
.Columns.Add("Fecha", 80, HorizontalAlignment.Center)
.Columns.Add("Razon Social", 270, HorizontalAlignment.Center)
.Columns.Add("Rfc", 100, HorizontalAlignment.Center)
.Columns.Add("Web", 190, HorizontalAlignment.Center)
.Columns.Add("Domicilio", 190, HorizontalAlignment.Center)

End With
End Sub

Sub buscarc(ByVal x As String, ByVal t As String)
Dim i As Integer = 0
Buscar.Label3.Text = 0
If x = "Clientes" Or x = "ClientesC" Then
Buscar.ListView1.Items.Clear()
sq = ("SELECT * FROM clientes where abreviacion like '%" & t & "%'")
Dim m_cbCommandBuilder As New Npgsql.NpgsqlCommand(sq, ADOCONN)
Call Conex()
dr = m_cbCommandBuilder.ExecuteReader()
While dr.Read
Buscar.ListView1.Items.Add(dr("cvl_cliente"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("abreviacion"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("fecha"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("Rason_social"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("rfc"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("web"))
Buscar.ListView1.Items(CInt(i)).SubItems.Add(dr("dom"))
Buscar.Label3.Text = i
i = i + 1
End While
desconectar()
End If
End Sub
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