[SOLUCIONADO] consultas

[robertocarrillo]

Hola, espero anden bien....
TENGO
EL FORMULARIO:
form_Buscar.vb

Código vb:

Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
 
Public Class form_Buscar
    Private Sub form_Resultados_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim datos As New clase_datos
        datos.ente = TxtEnte.Text()
        datos.mes = Val(TxtMes.Text())
        datos.anio = Val(TxtAnio.Text())
        datos.detalle = TxtDetalle.Text()
        If Buscar(datos) Then
            MsgBox("ENCONTRAMOS ALGO  " & _resultados.ToString)
            ' Me.Hide()
            'form_Resultados.Show()
        End If
    End Sub
End Class
 

LA CLASE:
class_datos.vb

Código vb:

Public Class clase_datos
    Private _id As Integer
    Private _ente As String
    Private _detalle As String
    Private _mes As Integer
    Private _anio As Integer
    Private _cantidad As Integer
    Private _fecha As String
    Private _usr As String
    Public Property ente() As String
        Get
            Return _ente
        End Get
        Set(ByVal value As String)
            _ente = value
        End Set
    End Property
    Public Property detalle() As String
        Get
            Return _detalle
        End Get
        Set(ByVal value As String)
            _detalle = value
        End Set
    End Property
    Public Property mes() As Integer
        Get
            Return _mes
        End Get
        Set(ByVal value As Integer)
            _mes = value
        End Set
    End Property
    Public Property anio() As Integer
        Get
            Return _anio
        End Get
        Set(ByVal value As Integer)
            _anio = value
        End Set
    End Property
    Public Property cantidad() As Integer
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property
    Public Property fecha() As String
        Get
            Return _fecha
        End Get
        Set(ByVal value As String)
            _fecha = value
        End Set
    End Property
    Public Property usr() As String
        Get
            Return _usr
        End Get
        Set(ByVal value As String)
            _usr = value
        End Set
    End Property
    Public Property id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property
End Class
 

Y EL MODO
modo_buscar.vb

Código vb:

Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
Module modo_buscar
 
    'VARIABLES PRIVADAS
    Private _adaptador As New MySqlDataAdapter
 
    'VARIABLES PUBLICAS
    Public _resultados As New DataTable
 
    Public Function Buscar(ByVal datos As clase_datos) As Boolean
        Dim estado As Boolean
        Try
            conex_Global()
            _adaptador.SelectCommand = New MySqlCommand("select * from datos where ente=@ente", _conexion)
            _adaptador.SelectCommand.Parameters.Add("@ente", MySqlDbType.VarChar, 20).Value = datos.ente
            _conexion.Open()
            _adaptador.SelectCommand.Connection = _conexion
            _adaptador.SelectCommand.ExecuteNonQuery()
            _adaptador.Fill(_resultados)
 
            If _resultados.Rows.Count > 0 Then
                estado = True
            Else
                estado = False
            End If
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message, "-")
            estado = False
        Finally
            cerrar()
        End Try
        Return estado
    End Function
End Module
 

Como hago para que me muestre los datos en un datagrid?
Vi un par de tutos pero no los entiendo.
Gracias.

[Malenko]

Que parte no entiendes de como usar el datagrid? En que parte te bloqueas de los tutoriales?

[robertocarrillo]

Hola, gracias por responder. Me bloqueo en el comienzo (jajajaja). No comprendo la lógica para armar una tabla en VB....
Es la primera vez que intento trabajar en este lenguaje.
Supuestamente en _resultados quedan guardados los datos de la consulta. Entonces debería armar una tabla con esos datos y pasárselos al datagrid?

[Malenko]

El binding del grid lo puedes hacer de varias formas. Una de ellas podría ser contra el DataTable que contiene el resultado o bien una lista de ítems (usando generics).

[robertocarrillo]

Osea:

Código vb:

Dim lista As New List(Of DataRow)()
        For Each row As DataRow In _resultados.Rows
            lista.Add(CType(row, DataRow))
        Next row
 

Así armaría la lista? y como la metería dentro del datagrid?
Paciencia por favor, estoy como un ciego en una maratón de alta montaña (jajajajaj)
Gracias.

[robertocarrillo]

Probé esto tambien, pero no me devuelve nada:

Código vb:

Private Sub form_ing_General_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim TablaDatos As DataTable
        Dim _adaptador As New MySqlDataAdapter
        Dim cons As String
        Try
            cons = "SELECT id FROM datos"
            _adaptador = New MySqlDataAdapter(cons, _conexion)
            TablaDatos = New DataTable
            _adaptador.Fill(TablaDatos)
            DataGridView1.DataSource = TablaDatos
        Catch ex As Exception
        End Try
    End Sub
 

[robertocarrillo]

Ya está. Lo hago de esta forma(así lo comprendí):

Código vb:

Private Sub form_ing_General_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim TablaDatos As DataTable
        Dim _adaptador As New MySqlDataAdapter
        Dim cons As String
        Try
conexion()
            cons = "SELECT id FROM datos"
            _adaptador = New MySqlDataAdapter(cons, _conexion)
            TablaDatos = New DataTable
            _adaptador.Fill(TablaDatos)
            DataGridView1.DataSource = TablaDatos
        Catch ex As Exception
        End Try
    End Sub
 

Ahora trataré de ver como hago para trabajarlo a traves del modo.

[Namiwis]

Hola robertocarrillo

Faltan muchas cosas en tu codigo, te pongo un link donde viene un ejemplo muy claro, te explica desde como crear la bd cosa que quizas no necesites, hasta conectarte a ella y extraer los datos, espero te sirva, trata de emularlo, posteriormente adaptalo a tus necesidades.

http://www.dreamincode.net/forums/to...splaying-data/

Saludos