none
ayuda con boton busqueda rapida

    Domanda

  • 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

    mercoledì 4 gennaio 2012 20:40

Risposte

  • 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

       
    • Contrassegnato come risposta raulbca martedì 28 febbraio 2012 17:21
    martedì 28 febbraio 2012 17:21

Tutte le risposte

  • 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
    giovedì 5 gennaio 2012 03:28
  • 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

       
    • Contrassegnato come risposta raulbca martedì 28 febbraio 2012 17:21
    martedì 28 febbraio 2012 17:21