อันนี้ก็ตัวอย่างการติดต่อ แบบ ODBC ที่เชื่อมกับ MySQL อีกทีนะค๊ะ
Imports System.Data.Odbc
Public Shared Sub Opencon()
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = "DSN=mySQL;UID=root;pwd=1234;" 'ตรง DSN=mySQL อันนี้เป็นชื่อ DSN ที่ตั้งใน ODBC นะค๊ะ
.Open()
End With
End Sub
****************************************
Dim con As New OdbcConnection("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=data_internet;USER=root;PASSWORD=1234;OPTION=3;")
con.Open()
Dim com As New OdbcCommand("select * from data_login ", con)
Dim reder As OdbcDataReader = com.ExecuteReader
If reder.HasRows Then
MsgBox(reder.Item(6))
reder.Close()
con.Close()
Else
'MsgBox("ไม่พบข้อมูล")
reder.Close()
con.Close()
End If
Load balance : Server 03
