กระดานข่าว VB › เว็บบอร์ดถามตอบปัญหา › ฐานข้อมูล mysql กับ access เขียนโค้ด VB ต่างกันไหมคะ

Cho โพสต์ 2019-9-20 10:27:17

ฐานข้อมูล mysql กับ access เขียนโค้ด VB ต่างกันไหมคะ

ตามหัวข้อเลยค่ะ พอดีจะทำโปรเจคจบเกี่ยวกับระบบห้องสมุด โดยใช้ visual basic 2010 กับฐานข้อมูล MS Access แต่ที่เคยเรียนมาใช้ฐานข้อมูล mysql server อยากทราบว่าเขียนโค้ดต่างกันเยอะไหม ขอบคุณค่ะ

thongkorn โพสต์ 2019-9-20 11:59:55

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

ดูในรูปแบบกติ: ฐานข้อมูล mysql กับ access เขียนโค้ด VB ต่างกันไหมคะ