ayuda con boton busqueda rapida

Question

SI YO TUBIERA ESTOS CODIGOS COMO LO TRABAJARIA SOY UN NOVATO Y DESEO APRENDER

***************************************

Imports System.Data.OleDb

*********************

Public Class frmBusqueda
    Dim SM As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\inventario_RUC.mdb")

*********************
    Private Sub frmBusqueda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CONECTAR_SM()
    End Sub

*********************
    Sub CONECTAR_SM()
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM inventario", SM) 'mi tabla de access es inventario2011
        Dim DS As New DataSet
        DA.Fill(DS, "inventario")
        DataGridView1.DataSource = DS.Tables("inventario")
    End Sub

********************

 

Sub BUSCAR_BD()

        Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("ConectionStringName").ConnectionString)
        Using command As New SqlCommand("SELECT * FROM inventario2011 WHERE CodPat = LIKE '%ParameterName%'", connection)
        command.CommandType = CommandType.Text


                command.Parameters.AddWithValue("@ParameterName", CBOCOD.Text)

                connection.Open()

                Using DR As SqlDataReader = command.ExecuteReader()
                    While DR.Read()
                        If DR.HasRows Then
                            CBOCOD.Text = DR(0)
                            TextBox1.Text = DR(1)
                            TextBox2.Text = DR(2)
                            TextBox3.Text = DR(3)
                            TextBox4.Text = DR(4)
                            TextBox5.Text = DR(5)
                            TextBox6.Text = DR(6)
                            TextBox7.Text = DR(7)
                        End If
                    End While
                End Using
            End Using
        End Using
    End Sub

End Class

 

HASTA AQUI ME MUESTRA LA BASE DE DATOS, PERO EN DONDE DICE Sub BUSCAR_BD() TENGO PROBLEMAS EN LAS 3 LINIAS DE INICIO DIME UN FAVOR DONDE ESTA MI ERROR ESTE TODO EL CODIGO QUE TENGO PARA BUSCAR RAPIDO

O PRODRIAS DARME OTRO CODIGO FUENTE COMO LO HARIAS SI MI BASE DE DATOS ESTA EN ACCESS 2008

GRACIAS POR TU ATENCION Y HUMILDAD

Answer 1

hola

el problema que veo es que si la db que usas es Access, no puedes usar el SqlConnection, SqlCommand y SqlDataReader

debes usar el OleDbConnection, OleDbCommand y OleDbDataReader

 

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina

Answer 2

yo busque otra forma de la busqueda rapida

para los que quieran comparto este codigo

gracias amigo Pablo Artiaga

============================================================================

Imports System.Data.OleDb
Public Class FrmIngresado
    Dim db As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\inv2011.accdb")
    Private Sub FrmIngresado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conectar_base_datos()
    End Sub

    Sub conectar_base_datos()
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM inventario2011", db)
        Dim DS As New DataSet
        DA.Fill(DS, "inventario1")
        DataGridView1.DataSource = DS.Tables("inventario1")
    End Sub

    Private Sub TxtNuevo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNuevo.TextChanged
        Dim conexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\inv2011.accdb")
        Dim Procedimiento As String = String.Format("SELECT inventario2011.CodPat, Inventario2011.Descripcion, Inventario2011.Marca, Inventario2011.modelo, Inventario2011.tipo, Inventario2011.Color, Inventario2011.SerieDime, Inventario2011.estado, Inventario2011.obs,Inventario2011.establecimiento, Inventario2011.area, Inventario2011.responsable, Inventario2011.situacion FROM inventario2011 WHERE (((inventario2011.codPat) Like '%{0}%')) or (((inventario2011.descripcion) Like '%{0}%'))", TxtNuevo.Text)
        Dim comando As OleDbCommand = New OleDbCommand(Procedimiento, conexion)
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(comando)
        Dim ds As Data.DataSet = New Data.DataSet
        da.Fill(ds, "tabla")
        DataGridView1.DataSource = ds.Tables("tabla")
    End Sub
End Class