BUSQUEDA POR LETRA USANDO ACCESS Y VISUAL BASIC.NE
Publicado por RAUL (1 intervención) el 17/06/2006 02:55:34
HOLA TENGO UN PROGRAMA QUE PUEDO BUSCAR EN MI BASE DE DATOS PERO SOLO POR " ID "( INTEGER ), DE PRODUCTO. Y NO
SE COMO LO HAGO LA BUSQUEDA SEA POR " NOMBRE DE PRODUCTO" ( STRING ). ESTE ES EJEMPLO DE LO QUE TENGO.//////
///////////////////////////////////////////////////
Private Sub buscar()
Try
Dim cnxConexion As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TALLERDEREPUESTOS.mdb;User Id=admin;Password=;")
Dim dstDataSet As New DataSet
Dim cmdComando As New OleDbCommand("", cnxConexion)
Dim strConsulta As String
cmdComando.CommandText = "SELECT * FROM tblProducto WHERE Id_Prod=?"
If IsNumeric(TextBox_Buscar_Producto.Text) Then
cmdComando.Parameters.Add("ID", OleDbType.Integer).Value = TextBox_Buscar_Producto.Text <-- ESTE ES EL TEXTBOX DE DONDE PONGO LO QUE QUIERO
Else
cmdComando.Parameters.Add("ID", OleDbType.Integer).Value = 0
MessageBox.Show("malo chico, malo ")
End If
//////////////////
Y YO DESEO BUSCAR POR EL NOMBRE DEL PRODUCTO . PORQUE POR ID. NO PROBLEMA ME LO RESPONDE. ESPERO QUE ME AYUDEN . GRACIAS
SE COMO LO HAGO LA BUSQUEDA SEA POR " NOMBRE DE PRODUCTO" ( STRING ). ESTE ES EJEMPLO DE LO QUE TENGO.//////
///////////////////////////////////////////////////
Private Sub buscar()
Try
Dim cnxConexion As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TALLERDEREPUESTOS.mdb;User Id=admin;Password=;")
Dim dstDataSet As New DataSet
Dim cmdComando As New OleDbCommand("", cnxConexion)
Dim strConsulta As String
cmdComando.CommandText = "SELECT * FROM tblProducto WHERE Id_Prod=?"
If IsNumeric(TextBox_Buscar_Producto.Text) Then
cmdComando.Parameters.Add("ID", OleDbType.Integer).Value = TextBox_Buscar_Producto.Text <-- ESTE ES EL TEXTBOX DE DONDE PONGO LO QUE QUIERO
Else
cmdComando.Parameters.Add("ID", OleDbType.Integer).Value = 0
MessageBox.Show("malo chico, malo ")
End If
//////////////////
Y YO DESEO BUSCAR POR EL NOMBRE DEL PRODUCTO . PORQUE POR ID. NO PROBLEMA ME LO RESPONDE. ESPERO QUE ME AYUDEN . GRACIAS
Valora esta pregunta


0