Koneksi Visual Basic Net dengan MySQL

Sekedar berbagi bagi yang belum tahu cara Koneksi Visual Basic Net dengan MySQL dengan mysql-connector-odbc 5.1, :

1. Download mysql-connector-odbc-5.1 disini
2. Buat sebuah modul beri nama KoneksiData dan masukan code beikut :
Module KoneksiData
    Public KONEKSI As String
    Public xSql As String
    Public STATUS_Input As Boolean = False
    Public CONN_odbc As New Odbc.OdbcConnection     '/koneksi dg ODBC
    Public CMD_odbc As New Odbc.OdbcCommand     '/'perintah query (select,Insert, Delete, Update)
    Public DTReader_odbc As Odbc.OdbcDataReader     '/tempat menampung query
    Public DTReader2_odbc As Odbc.OdbcDataReader     '/tempat menampung query
    Public DTAdapter_odbc As New Odbc.OdbcDataAdapter   '/untuk DataGridView koneksi nya
    Public DTtable_odbc As New DataTable    '/untuk DataGridView datanya
    Public BARIS_Edit As Integer

    Dim ser, db, user, pass As String

    Sub BUKA_MYSQL_dg_ODBC()
        ser = "namaserver"
        db = "namadatabase"
        user = "namauser"
        pass = "password"
        Try
                       KONEKSI = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & ser & ";DATABASE=" & db & ";UID=" & user & ";PWD=" & pass & ";port=3306;OPTION=2105"
            CONN_odbc = New Odbc.OdbcConnection(KONEKSI)
            CONN_odbc.Open()

        Catch Salah As Exception
            MessageBox.Show(Salah.Message, "Error Koneksi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try

    End Sub

End Module

Read More

Insert, Update dan Delete Data MySql Dengan Visual Basic 6.0

Manupulasi database MySql dan bahasa pemrograman Visual Basic 6.0, Insert, Update dan Delete Data MySql Dengan Visual Basic 6.0 : disini saya asumsikan kita telah memiliki sebuah databse di mysql dengan nama "Kepegawaian" dan sebuah tabel bernama "pegawai" dengan field (nik,nama,alamat,no_telepon).

Pertama , siapkan sebuah project baru dan buat sebuah modul dan beri nama modulkoneksi, bagi yang belum tahu cara membuat koneksi dari Visual Basic 6.0 ke MySql lihat tutorialnya di sini.

Kedua, tambahkan sebuah from dan desain seperti dibawah ini :

Beri nama masing-masing textbox dengan nama txtnik, txtnama, txtalamat, dan txttelepon.

Ketiga, ketikan kode berikut pada prosedur from_load :

Private Sub Form_Load()
Bersih
End Sub

Sub Bersih()
txtnik.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txttelepon.Text = ""
End Sub
Dan setelah itu ketikan kode berikut pada event command1_click :

Private Sub Command1_Click()
BUKA_DATABASE
Dim SQL As String
SQL="INSERT INTO PEGAWAI(NIK, NAMA, ALAMAT, TELEPON) " & _
"VALUES('"& txtnik.Text &"','"& txtnama.Text &"','"& txtalamat.Text &"','"& txttelepon.Text &"')"
StrCon.Execute SQL
Bersih
End Sub

Sampai disini anda sudah bisa memasukan data kedalam database MySql
to be continue. .............

Read More

Koneksi MySqL dengan Visual Basic 6.0

Koneksi MySqL dengan Visual Basic 6.0 menggunakan mysql-connector-odbc 5.1.5, langkah pertama download mysql-connector-odbc 5.1.5 bagi yang belum punya !, yang kedua buat sebuah modul dan ketikan kode berikut :

Option Explicit
Global strCon As New ADODB.Connection

Public Sub BUKA_DATABASE()
On Error GoTo err
Set strCon = New ADODB.Connection
Dim StrString As String
Dim ser, user, pass, db, soc, pro As String
ser = "nama server anda"
db = "nama database"
user = "username"
pass = "password"

StrString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & ser & ";DATABASE=" & db & ";UID=" & user & ";PWD=" & pass & ";port=3306;OPTION=2105"
strCon.Open StrString
strCon.CursorLocation = adUseClient
Exit Sub
err:
MsgBox "Sistem belum terhubung ke server..!", vbOKOnly + vbInformation, "Administrator"
End Sub

untuk membuka koneksinya anda tinggal panggil nama prosedurnya
BUKA_DATABASE  di setiap ada koneksi

Read More