Visual Basic - codigo para buscar por nombre en la base de datos

Life is soft - evento anual de software empresarial
   
Vista:

codigo para buscar por nombre en la base de datos

Publicado por Jose Luis (5 intervenciones) el 10/11/2009 04:24:29
Saludos estoy haciendo un pequeño programa y quiero buscar por nombre no por numero ni fecha y el codigo que tengo es el siguiente

Private Sub buscar_Click()
Dim No_ID As String

DataEnvironment1.rsCommand1.MoveFirst

'antes de buscar hay que posicionarse en el primer registro
'ahora pedimos el no de producto y lo almacenamos

No_ID = InputBox("Escriba el nombre a buscar!!")
If No_ID <> "" Then

'hacemos la búsqueda

DataEnvironment1.rsCommand1.Find "[ID]=" & No_ID

'le decimo ke busqye poe el campo Improducto

'solo si no se encontró nada pues le avisamos

If DataEnvironment1.rsCommand1.EOF Then
MsgBox "No se encontró el pedido"
DataEnvironment1.rsCommand1.MoveFirst

End If
End If

End Sub

CON ESTE CODIGO HASGO LA BUSQUEDA POR ID DEL CLIENTE PERO QUIERO HACERLO POR NOMBRE NECESITO CAMBIAR STRING PARA UN DATOS DE LETRAS
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:codigo para buscar por nombre en la base de dat

Publicado por jaime guerrero (361 intervenciones) el 10/11/2009 17:22:09
tio, disculpa pero hay que tener criterio y conocer antes de lo que hablas. leete la teoria, que ahi esta todo.

pasando a la solucion, nunca he usado esta forma de trabajar ya que no me parece correcta.

DataEnvironment1.rsCommand1.Find "[nombre]='" & Nombre & "'"

proba si tambien esto funciona

DataEnvironment1.rsCommand1.Find "[nombre] like '%" & Nombre & "%'"

si la segunda funciona,usala, que es la mas exacta
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

RE:codigo para buscar por nombre en la base de dat

Publicado por Jose Luis (5 intervenciones) el 11/11/2009 16:21:03
saludo quiero hacer una busqueda con un textbox tengo la base de dato en acces 2003 y utilizo la conection de dataenviroment en visual basic pero no se los codigo y los pasos para hacer este buscador.
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

RE:codigo para buscar por nombre en la base de dat

Publicado por Jose Luis (5 intervenciones) el 11/11/2009 16:27:44
saludo quiero hacer una busqueda con un textbox tengo la base de dato en acces 2003 y utilizo la conection de dataenviroment en visual basic pero no se los codigo y los pasos para hacer este buscador.
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

RE:codigo para buscar por nombre en la base de dat

Publicado por abraham (2 intervenciones) el 19/11/2009 00:48:10
Public Class BUSCAR_CLIENTE
Private m_cnADONetConnection As New OleDb.OleDbConnection()
Private m_daDataAdapter As OleDb.OleDbDataAdapter
Private m_cbCommandBuilder As OleDb.OleDbCommandBuilder
Private m_dtUSUARIO As New DataTable
Private m_rowPosition As Integer = 0

Private Sub BUSCAR_CLIENTE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_cnADONetConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PROYECTO.mdb"
m_cnADONetConnection.Open()
m_daDataAdapter = New OleDb.OleDbDataAdapter("Select * From CLIENTE ", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_daDataAdapter)
m_daDataAdapter.Fill(m_dtUSUARIO)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim P As Integer = 0
Dim L As Integer = m_dtUSUARIO.Rows.Count - 1
Dim N As Integer = 0
If ComboBox1.Text = "CEDULA" Then
N = 0
For P = 0 To L
If TextBox1.Text = m_dtUSUARIO.Rows(P)("Cedula").ToString() Then
DataGridView1.Rows.Add(m_dtUSUARIO.Rows(P)("Nombre").ToString(), m_dtUSUARIO.Rows(P)("Apellidos").ToString(), m_dtUSUARIO.Rows(P)("Direccion").ToString(), m_dtUSUARIO.Rows(P)("Cedula").ToString())
N = 1
End If
Next
Else
N = 0
For P = 0 To L
If TextBox1.Text = m_dtUSUARIO.Rows(P)("Nombre").ToString() Then
DataGridView1.Rows.Add(m_dtUSUARIO.Rows(P)("Nombre").ToString(), m_dtUSUARIO.Rows(P)("Apellidos").ToString(), m_dtUSUARIO.Rows(P)("Direccion").ToString(), m_dtUSUARIO.Rows(P)("Cedula").ToString())
N = 1
End If
Next
End If
If N = 0 Then
MsgBox("No hay resultado de la busqueda", MsgBoxStyle.Information)
End If
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Dim r As Integer
r = DataGridView1.CurrentRow.Index
ced = DataGridView1.Item(3, r).Value.ToString
CLIENTES.selbus()
Me.Close()
End Sub
End Class
para que busque lo que queras suerte
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