ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 236|ตอบกลับ: 1

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

[คัดลอกลิงก์]

2

กระทู้

2

โพสต์

34

เครดิต

Newbie

Rank: 1

เครดิต
34

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


213

กระทู้

301

โพสต์

2419

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2419
โพสต์ 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 ...
  1. Public Function ConnectAccess(ByVal DBFile As String) As Boolean
  2.         Conn = New OleDbConnection(
  3.             "Provider = Microsoft.ACE.OLEDB.12.0;" &
  4.             "Data Source = " & DBFile
  5.             )
  6.         Try
  7.             Conn.Open()
  8.             Return True
  9.         Catch ex As Exception
  10.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
  11.             End
  12.         End Try
  13.     End Function
คัดลอกไปที่คลิปบอร์ด

การเชื่อมต่อของ MySQL ...
  1.     '// Connect to MySQL Server
  2.     Public Function ConnectMySQL(ByVal UID As String, PWD As String, DNS As String, ByVal DB As String) As Boolean
  3.         '// Use Dynamic DNS from No-IP.com
  4.         '// Server=localhost; User ID=YourUserID; Password=YourPassword; DataBase=YourDB
  5.         Dim strCon As String = _
  6.             " Server=" & DNS & "; " & _
  7.             " Database=" & DB & "; " & _
  8.             " User ID=" & UID & "; " & _
  9.             " Password=" & PWD & "; " & _
  10.             " Character Set=utf8;"
  11.         MyConn = New MySqlConnection
  12.         MyConn.ConnectionString = strCon
  13.         Try
  14.             MyConn.Open()
  15.             Return True
  16.         Catch ex As Exception
  17.             MessageBox.Show(ex.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
  18.             'Me.Close()
  19.             Return False
  20.         End Try
  21.     End Function
คัดลอกไปที่คลิปบอร์ด

ตัวอย่างคำสั่งในการ Update ข้อมูลของ MS Access ...
  1.     Public Function DoSQL(ByVal Sql As String) As Boolean
  2.         DoSQL = False
  3.         Cmd = New OleDb.OleDbCommand
  4.         If Conn.State = ConnectionState.Closed Then Conn.Open()
  5.         'MsgBox(Sql)
  6.         Try
  7.             Cmd.Connection = Conn
  8.             Cmd.CommandType = CommandType.Text
  9.             Cmd.CommandText = Sql
  10.             Cmd.ExecuteNonQuery()
  11.             Cmd.Dispose()
  12.             DoSQL = True
  13.         Catch ex As Exception
  14.             MsgBox("Error Update: " & ex.Message)
  15.         End Try
  16.     End Function
คัดลอกไปที่คลิปบอร์ด

ตัวอย่างคำสั่งในการ Update ข้อมูลของ MySQL ...
  1.     Public Function DoSQL(ByVal Sql As String) As Boolean
  2.         DoSQL = False
  3.         Dim MySQLCmd As New MySqlCommand
  4.         If MyConn.State = ConnectionState.Closed Then MyConn.Open()
  5.         'MsgBox(Sql)
  6.         Try
  7.             MySQLCmd.Connection = MyConn
  8.             MySQLCmd.CommandType = CommandType.Text
  9.             MySQLCmd.CommandText = Sql
  10.             MySQLCmd.ExecuteNonQuery()
  11.             MySQLCmd.Dispose()
  12.             DoSQL = True
  13.         Catch ex As Exception
  14.             MsgBox("Error Update: " & ex.Message)
  15.         End Try
  16.     End Function
คัดลอกไปที่คลิปบอร์ด

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-27 14:39 , Processed in 0.303180 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้