Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: washandwear en 5 Abril 2007, 11:38 am



Título: Problemas con una busqueda en Vb Net utilizando mysql
Publicado por: washandwear en 5 Abril 2007, 11:38 am
Hola que tal , les platico primero que es lo que pretendia hacer, intentaba hacer  una busqueda en mi base de datos  para que me desplegara solamente lo que yo quisiera en un datagrid, es decir que si yo por medio de un formulario metia el ID de x fila , solamente me desplegara esa fila en el datagrid, y no todas las filas..

Mmm he conseguido desplegar todas las filas en el datagrid, pero tengo problemas para desplegar la que yo quiero, la verdad quisiera que me orienten un poco en que anda fallando mi codigo, no se si sea la sintaxis que ando utilizando o que onda..  Lo que si me marca como error PARAMETER '?idproveedor" must be defined  "el parametro '?idproveedor' debe de ser definido, =S mm a que se refiere?, ya que en mi base de datos si la tengo asi declarada. O se refiere a otra cosa? a la sintaxis mal aplicada? :huh:

Aqui esta mi codigo


  Dim cmd As New MySqlCommand
       Dim ts As DataGridTableStyle
       Dim ds As New DataSet
       Dim con As New MySqlConnection
                  con.ConnectionString = "server=localhost;user id=root;password= ; database=catalogo;"

con.Open()
         
                    Dim sql2 As New MySqlDataAdapter("SELECT *FROM proveedores WHERE (?idproveedor) ", con)

        try
                    cmd.Connection = con
                    cmd.Parameters.Add("?idproveedor", TextBox49.Text)   ' TextBox49.text= contiene el id que meti por el formulario
                    sql2.Fill(ds,"idproveedor")
                    DataGrid1.DataSource = ds.Tables!idproveedor
                    Dim cm As CurrencyManager
                    cm = CType(Me.BindingContext(ds.Tables!idproveedor), CurrencyManager)
                    ts = New DataGridTableStyle(cm)
                    ts.MappingName = "idproveedor"
                    ts.GridColumnStyles(1).Width = 100
                    DataGrid1.TableStyles.Add(ts)
                   MessageBox.Show("Consulta realizada satisfactoriamente", "Consulta", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                   con.Close()
                Catch mierror As MySqlException
                    MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)
                Finally
                    con.Dispose()
                End Try


=P espero que me puedan ayudar , gracias de ante mano