|
|
MS Access เป็นฐานข้อมูลระดับ File Base เหมาะสำหรับงานขนาดเล็กไปถึงกลางๆ การจัดเก็บข้อมูลจะได้ไม่มากนัก ส่วน MySQL เป็นระดับ File Server สามารถจัดเก็บข้อมูลขนาดใหญ่ และมีจำนวนผู้ใช้งานมาก สำหรับโปรเจคจบใช้ MS Access เป็นฐานข้อมูลก็เพียงพอแล้วครับ หรือหากต้องการเก็บประสบการณ์เพื่อไปทำงานจริงได้ ก็ใช้ MySQL ไปเลย เพราะมันมีความแตกต่างกันแค่ในเรื่องของโค้ดคำสั่งที่ใช้ แต่ใช้หลักการเดียวกันทั้งหมด อีกเรื่องก็คือ SQL Statement บางอัน เช่น เรื่องของวันที่จะใช้ไม่เหมือนกัน ซึ่งมันก็เป็นจุดเล็กๆน้อยๆเท่านั้นเอง ... ขอยกตัวอย่างหลักๆให้ดูประกอบก็แล้วกัน ขอให้สังเกตความเหมือน และความแตกต่างกัน โดยเฉพาะเรื่อง Class ที่ใช้งานครับ ...
Namespace ของ MS Access --> Imports System.Data.OleDb
Namespace ของ MySQL --> Imports MySql.Data.MySqlClient
การเชื่อมต่อของ MS Access ...
- Public Function ConnectAccess(ByVal DBFile As String) As Boolean
- Conn = New OleDbConnection(
- "Provider = Microsoft.ACE.OLEDB.12.0;" &
- "Data Source = " & DBFile
- )
- Try
- Conn.Open()
- Return True
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- End
- End Try
- End Function
การเชื่อมต่อของ MySQL ...
- '// Connect to MySQL Server
- Public Function ConnectMySQL(ByVal UID As String, PWD As String, DNS As String, ByVal DB As String) As Boolean
- '// Use Dynamic DNS from No-IP.com
- '// Server=localhost; User ID=YourUserID; Password=YourPassword; DataBase=YourDB
- Dim strCon As String = _
- " Server=" & DNS & "; " & _
- " Database=" & DB & "; " & _
- " User ID=" & UID & "; " & _
- " Password=" & PWD & "; " & _
- " Character Set=utf8;"
- MyConn = New MySqlConnection
- MyConn.ConnectionString = strCon
- Try
- MyConn.Open()
- Return True
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- 'Me.Close()
- Return False
- End Try
- End Function
ตัวอย่างคำสั่งในการ Update ข้อมูลของ MS Access ...
- Public Function DoSQL(ByVal Sql As String) As Boolean
- DoSQL = False
- Cmd = New OleDb.OleDbCommand
- If Conn.State = ConnectionState.Closed Then Conn.Open()
- 'MsgBox(Sql)
- Try
- Cmd.Connection = Conn
- Cmd.CommandType = CommandType.Text
- Cmd.CommandText = Sql
- Cmd.ExecuteNonQuery()
- Cmd.Dispose()
- DoSQL = True
- Catch ex As Exception
- MsgBox("Error Update: " & ex.Message)
- End Try
- End Function
ตัวอย่างคำสั่งในการ Update ข้อมูลของ MySQL ...
- Public Function DoSQL(ByVal Sql As String) As Boolean
- DoSQL = False
- Dim MySQLCmd As New MySqlCommand
- If MyConn.State = ConnectionState.Closed Then MyConn.Open()
- 'MsgBox(Sql)
- Try
- MySQLCmd.Connection = MyConn
- MySQLCmd.CommandType = CommandType.Text
- MySQLCmd.CommandText = Sql
- MySQLCmd.ExecuteNonQuery()
- MySQLCmd.Dispose()
- DoSQL = True
- Catch ex As Exception
- MsgBox("Error Update: " & ex.Message)
- End Try
- End Function
|
|
โพสต์ 2019-9-20 10:27:17
โพสต์ 2019-9-20 11:59:55