To create Connection VB.Net With MySQL Using Mysql ODBC Connector follow this step below :
- Download mysql-connector-odbc-5.1.5 here
- Create a module in your project and insert this code below :
Module KoneksiData
Public KONEKSI As String
Public xSql As String
Public STATUS_Input As Boolean = False
Public CONN_odbc As New Odbc.OdbcConnection
Public CMD_odbc As New Odbc.OdbcCommand
Public DTReader_odbc As Odbc.OdbcDataReader
Public DTReader2_odbc As Odbc.OdbcDataReader
Public DTAdapter_odbc As New Odbc.OdbcDataAdapter
Public DTtable_odbc As New DataTable
Public BARIS_Edit As Integer
Dim ser, db, user, pass As String
Sub OPEN_MYSQL_WITH_ODBC()
ser = "127.0.0.1"
db = "yourdb"
user = "username"
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
Public KONEKSI As String
Public xSql As String
Public STATUS_Input As Boolean = False
Public CONN_odbc As New Odbc.OdbcConnection
Public CMD_odbc As New Odbc.OdbcCommand
Public DTReader_odbc As Odbc.OdbcDataReader
Public DTReader2_odbc As Odbc.OdbcDataReader
Public DTAdapter_odbc As New Odbc.OdbcDataAdapter
Public DTtable_odbc As New DataTable
Public BARIS_Edit As Integer
Dim ser, db, user, pass As String
Sub OPEN_MYSQL_WITH_ODBC()
ser = "127.0.0.1"
db = "yourdb"
user = "username"
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
3. Call your connection in your form with this code "Call OPEN_MYSQL_WITH_ODBC() "
No comments:
Post a Comment