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
* 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
*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
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
gan kalau cara simpan gambar gimana ?
BalasHapushttp://maulidiyaekayulinda.blogspot.co.id/2013/08/cara-menampilkan-simpan-data-gambar-ke.html
HapusUntuk coding foxpro ad ng..??
BalasHapus