ODBC DataReader Berhasil Membaca Mysql

Imports System.Data.Odbc


Public Class Form7

    Dim koneksi As OdbcConnection = Nothing

    Dim stringKoneksi As String = "DSN=localhost"

    Dim stringSQL As String



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        koneksi = New OdbcConnection(stringKoneksi)

        stringSQL = "SELECT * FROM tanggal"

        Dim perintah As New OdbcCommand(stringSQL, koneksi)

        Try

            koneksi.Open()

            Dim baca As OdbcDataReader = perintah.ExecuteReader

            While baca.Read()

                MessageBox.Show("idtanggal" & " " & baca(1).ToString())

            End While

            baca.Close()

            koneksi.Close()


        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try


    End Sub
End Class