Rabu, 04 Maret 2015

CARA MEMBUAT KONEKSI DI VB.NET DENGAN ODBC

Pertama yang harus kita siapkan adalah connector ODBC. bisa di download di website ini : http://dev.mysql.com/downloads/connector/odbc/

*Jika sudah siap maka instal connector ODBC sesuai dengan sytem dari perangkat anda jika 32bit      maka instal connector ODBC untuk 32 bit. begitu juga dengan 64bit.

*Kemudian jika sudah maka carilah Control Panel => Administrative Tools

* Selanjutnya Pilih ODBC Data Services


* Selanjutnya pilih System DSN jika menambahkan koneksi baru pilih ADD


* Selanjutnya CARI MySQL ODBC 3.51 Driver


* Selanjutnya isi Connector Parameters sesuai dengan data anda.


* Selesai, untuk setting connector ODBC sudah selesai cukup mudah bukan. sekarang pada project anda tambahkan class koneksi 

* Dengan source code

Imports System.Data.Odbc
Imports System.IO
Imports Microsoft.VisualBasic
Namespace accesdata
    Public Class koneksi
        Dim conn As New Odbc.OdbcConnection("DSN=presensi")
        Protected cmd As Odbc.OdbcCommand
        Protected da As Odbc.OdbcDataAdapter
        Protected ds As DataSet
        Protected dt As DataTable

        Public Function executeQuery(ByVal Query As String) As DataTable
            cmd = New OdbcCommand(Query, conn)
            da = New OdbcDataAdapter(cmd)
            da.SelectCommand = cmd
            ds = New Data.DataSet
            da.Fill(ds)
            dt = ds.Tables(0)
            Return dt
            dt = Nothing
            da = Nothing
            ds = Nothing
            cmd = Nothing
        End Function
        Public Function buka() As OdbcConnection
            If conn.State <> ConnectionState.Open Then
                conn.Open()
            End If
            Return conn
        End Function
        Public Function tutup() As OdbcConnection
            conn = Nothing
            Return conn
        End Function
        Public Function ambiltgl()
            buka()
            buka()
            Dim strsql As String = "select current_date tgl;"
            Dim mycmd As New OdbcCommand(strsql, conn)
            Dim rdr As OdbcDataReader = mycmd.ExecuteReader
            If rdr.Read Then
                dcservertgl = rdr("tgl").ToString()
            End If
            rdr.Close()
            rdr = Nothing
            mycmd = Nothing
            Return conn
        End Function
    End Class
End Namespace

**Kemudian pada setiap form yang membutuhkan koneksi ke database maka kita hanya perlu memanggil koneksi dari class "koneksi" dengan source code




**SEKIAN





3 komentar:

  1. gan kalau cara simpan gambar gimana ?

    BalasHapus
    Balasan
    1. http://maulidiyaekayulinda.blogspot.co.id/2013/08/cara-menampilkan-simpan-data-gambar-ke.html

      Hapus