CARREGAR DBA EM PROPRIEDADES DE UMA CLASSE

VARUS 12/09/2016 16:12:55
#466790
Boa tarde galera deem uma olhada como montei minha classe;

  Public Class Dados1
    Public Id As Integer
    Public Property nome As String
    Public Property idade() As Short

    Public Sub New(_id As Integer, _nome As String, _idade As Short)
        Me.Id = _id
        Me.nome = _nome
        Me.idade = _idade
    End Sub
End Class


para adicionar alguns dados eu fiz assim;

   Dim liste As New List(Of Dados1)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        liste.Add(New Dados1(1, [Ô]José[Ô], 18))
        liste.Add(New Dados1(2, [Ô]Luiz[Ô], 19))
        liste.Add(New Dados1(3, [Ô]João[Ô], 25))
        liste.Add(New Dados1(4, [Ô]João Roberto[Ô], 35))
        liste.Add(New Dados1(5, [Ô]Fernando Silva[Ô], 23))
        liste.Add(New Dados1(6, [Ô]Jhonatan Jhay[Ô], 27))
        liste.Add(New Dados1(7, [Ô]Jhennyfer Silva[Ô], 17))
        liste.Add(New Dados1(8, [Ô]Caio Ribeiro[Ô], 19))
        liste.Add(New Dados1(9, [Ô]Alessandro Luiz[Ô], 20))


        DataGridView1.DataSource = liste


    End Sub


Agora, como faço para carregar um banco de dados mysql na classe dados1?
VARUS 12/09/2016 16:47:17
#466794
Coonsegui assim;

   Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable
        Dim SQL As String



        conn = New MySqlConnection
        conn.ConnectionString = [Ô]server=localhost;user id=root;password=123456;database=test[Ô]
        SQL = [Ô]SELECT *  FROM clientes;[Ô]


        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = SQL
                [ô]myCommand.CommandText = Id
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)
                For i = 0 To myData.Rows.Count - 1
                    [ô] myData.Columns([Ô]nome[Ô])

                    liste.Add(New Dados1(i, myData.Rows(i).ItemArray(1).ToString, myData.Rows(i).ItemArray(2))) [ô]myData.Columns([Ô]idade[Ô])))
                Next
                DataGridView1.DataSource = liste
                conn.Close()
            Catch myerro As MySqlException
                MsgBox([Ô]Test Connection: ERROR[Ô] & myerro.Message)
            End Try
            conn.Close()
        Catch myerro As MySqlException
            MsgBox([Ô]Erro; [Ô] & myerro.Message)
        Finally
            conn.Close()
        End Try

    End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar