Imports MySql.Data.MySqlClient
Imports System.Data.Objects


Module Module1

    Sub Main()

        'ADO.NET connesso
        Dim cns As String = "server=127.0.0.1;User Id=root;password=23mjm07at98.;Persist Security Info=True;database=Test"
        Dim cn As New MySqlConnection(cns)
        cn.Open()
        Dim cm As New MySqlCommand("SELECT * FROM names ORDER BY cognome, nome", cn)

        Using dr As MySqlDataReader = cm.ExecuteReader
            Do While dr.Read
                Console.WriteLine("{0} {1}", dr("cognome").ToString, dr("nome").ToString)
            Loop
        End Using
        Console.WriteLine()


        'ADO.NET disconnesso non tipizzato
        Dim dt As New DataTable("names")
        Dim da As New MySqlDataAdapter(cm) 'uso la stessa command di sopra
        da.Fill(dt)

        For Each dr As DataRow In dt.Rows
            Console.WriteLine("{0} {1}", dr("cognome").ToString, dr("nome").ToString)
        Next
        Console.WriteLine()
        'ADO.NET disconnesso tipizzato

        Dim namesDA As New MySqlTestTableAdapters.namesTableAdapter()
        Dim namesDT As New MySqlTest.namesDataTable
        namesDA.Fill(namesDT)
        For Each name As MySqlTest.namesRow In namesDT
            Console.WriteLine("{0} {1}", name.cognome, name.nome)
        Next
        Console.WriteLine()

        'ENTITY FRAMEWORK
        Dim efContext As New MySqlEDM
        Dim query1 As ObjectQuery(Of names) = efContext.names
        For Each q As names In query1
            Console.WriteLine("{0} {1}", q.cognome, q.nome)
        Next
        Console.WriteLine()

        'LINQ/ENTITY
        Dim query2 As IOrderedQueryable(Of names) = From n In efContext.names Order By n.cognome, n.nome
        For Each q As names In query1
            Console.WriteLine("{0} {1}", q.cognome, q.nome)
        Next
        Console.WriteLine()

        Console.ReadLine()
    End Sub

End Module