บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
โปรแกรม ทดสอบการติดต่อฐานข้อมูล MySQL ด้วย VB.NET2005 นั้นเป็น ต.ย. การเขียนโปรแกรมเพื่อทำงานการฐานข้อมูล MySQL ด้วย VB.Net2005 เพื่อเพิ่มข้อมูลลงในฐานข้อมูลของ MySQL โดยมีขั้นตอน หลัก ๆ ดังนี้
1. สร้างฐานข้อมูลด้วย MySQL โดยใช้โปรแกรม AppServ และ PHP MyAdmin
2. ดาวน์โหลด และ ติดตั้งตัว Connector ของ MySQL ที่ใช้งานร่วมกันกับ vb.net (โดยปรกติจะไม่มีมาให้ พร้อมกันกับ Visual Studio .net ต้องดาวน์โหลดมาติดตั้งเอง ครับ)
3. การสร้าง Project ใหม่ใน VB.net2005 และการ Add Referrence เพื่อให้ VB.Net รู้จักกับ MySQL Connector
4. การออกแบบและเขียนโปรแกรม เพื่อทดสอบการทำงาน
[ ดาวน์โหลด Source Code ที่นี่ ]
ขั้นตอนที่ 1 :: สร้างฐานข้อมูลด้วย MySQL โดยใช้โปรแกรม AppServ และ PHP MyAdmin
มาเริ่มที่ขั้นตอนแรก ก่อน ครับ ขั้นตอนนี้เป็นการสร้างฐานข้อมูล ด้วย PHPMyAdmin โดยมีรายละเอียดังนี้ครับ
1.1 สร้างฐานข้อมูลที่ชื่อ :: TestTh ( อันนี้ผมใช้ฐานข้อมูลที่ผมมีอยู่แล้ว ไม่อยากสร้างใหม่ แต่ไม่จำเป็นต้องตั้งชื่อตามผมก็ได้ครับแต่ตอนเขียนโปรแกรมต้องระบุชื่อฐานข้อมูลให้ตรงกับที่สร้างไว้ครับ)
1.2 เปิดโปรแกรม IE ขึ้นมาเพื่อเข้าไปใช้งาน Appserve และเข้าไปที่ PHP MyAdmin ครับ ในนี้ผมสมมุติว่าผู้อ่านได้ใช้โปรแกรม Appserve เป็นแล้ว นะครับ
1.3 สร้างตารางที่ชื่อ Table Name :: Test โดยมีรายละเอียดของ ตาราง ดังนี้
| Fields Name |
Type |
Fields Size |
| id |
VarChar |
3 |
| Name |
Vachar |
30 |
| Tel |
VarChar |
10 |
|
|
|
สรุปข้อมูลที่สำคัญในการ สร้างฐานข้อมูล MySQL
ข้อมูล สำหรับเข้าระบบฐานข้อมูล ขึ้นอยู่กับตอนที่ติดตั้งโปรแกรม AppServ แต่ละเครื่องอาจไม่เหมือนกันสำหรับของ ผม คือ
Log in :: root
Password :: 123
-------------------------
ฐานข้อมูลที่ชื่อ :: TestTh
ตารางที่ชื่อ Table Name :: Test
ขั้นตอนที่ 2 :: ดาวน์โหลด และ ติดตั้งตัว Connector ของ MySQL ที่ใช้งานร่วมกันกับ vb.net
2.1 สามารถไปดาวน์โหลดได้ที่ เว็บไซต์ (ให้เลือกตัว connector for .net ที่เขียนว่า MySQL Connector/Net 5.0)
http://dev.mysql.com/downloads/connector/net/5.0.html
2.2เมื่อดาวน์โหลด เสร็จแล้ว ก็ให้ ทำการติดตั้ง เหมือน ลงโปรแกรม โดยทั่วไป ครับ
ขั้นตอนที่ 3 :: การสร้าง Project ใหม่ใน VB.net2005 และการ Add Referrence เพื่อให้ VB.Net รู้จักกับ MySQL Connector มรายละเอียดดังนี้ ครับ
3.1 เปิด โปรแกรม Microsoft Visual Studio.Net 2005 และสร้าง Project ใหม่โดยไปที่เมนู File เลือก New Project จากนั้นตั้งชื่อ Project ในที่นี้ กำหนดเป็น VB2005_MySQL_Connector
3.2 ทำการ Add Referrence ตัว connector ของ MySQL โดยไปที่เมนู Project เลือก Add Referrence จากนั้น จะมีหน้าต่าง ขึ้นมา ให้ เลือก MySQL.Data แล้ว กด OK
ขั้นตอนที่ 4 :: การออกแบบและเขียนโปรแกรม เพื่อทดสอบการทำงาน
| 4.1 ออกแบบหน้าจอโปรแกรม ดัง ต.ย. ข้างล่างนี้ |
|
| 4.2 กำหนด Property ของ แต่ละ Object ดังนี้ |
Object |
Properties |
Value |
| Form |
Name |
FrmMySQL_Connection |
|
|
|
| Label1 |
Name |
LbTitle |
|
Text |
โปรแกรมทดสอบการติดต่อฐานข้อมูล MySQL ใน VB.NET 2005 |
| Label2 |
Name |
LbID |
|
Text |
ID ::
|
| Label2 |
Name |
LbName |
|
Text |
Name ::
|
| Label3 |
Name |
LbTel |
|
Text |
Tel ::
|
| TextBox1 |
Name |
TxtID |
|
Text |
|
| TextBox2 |
Name |
TxtName |
|
Text |
|
| TextBox3 |
Name |
TxtTel |
|
Text |
|
|
|
|
| Button1 |
Name |
BtnAddNew |
|
Text |
AddNew |
|
|
|
| Button2 |
Name |
ฺBtnCancel |
|
Text |
Cancel |
| Button2 |
Name |
ฺBtnCancel |
|
Text |
Cancel |
| Button3 |
Name |
ฺBtnSave |
|
Text |
Save |
| Button4 |
Name |
ฺBtnExit |
|
Text |
Exit |
| |
|
|
|
4.3 ทำการ ดับเบิ้ลคลิกที่ ฟอร์ม เพื่อสร้างเหตุการณ์ FrmMySQL_Connection_Load แล้วเขียนโค้ด ดังนี้
เพิ่มคำสั่ง นี้
Imports MySql.Data.MySqlClient
ก่อน บรรทัด
Public Class FrmMySQL_Connection
จากนั้น เขียนโค้ด ต่าง ๆ ดังนี้
Private Sub FrmMySQL_Connection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TxtID.Enabled = False
TxtName.Enabled = False
TxtTel.Enabled = False
BtnCancel.Enabled = False
BtnSave.Enabled = False
BtnExit.Enabled = False
BtnAddNew.Enabled = True
End Sub |
4.4 ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnCancel แล้วเขียนโค้ด ดังนี้
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
TxtID.Clear()
TxtName.Clear()
TxtTel.Clear()
TxtID.Focus()
End Sub |
4.5 ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnSave แล้วเขียนโค้ด ดังนี้
Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Try
Dim fdCon As New MySqlConnection("Database=Testth;Data Source=localhost;User Id=root;Password=123")
Dim fdCom As New MySqlCommand("", fdCon)
fdCon.Open()
'-- Dim fdRead As OleDb.OleDbDataReader = fdCom.ExecuteReader(mysqlCommandBehavior.CloseConnection)
Dim sid As String = TxtID.Text
Dim sname As String = TxtName.Text
Dim stel As String = TxtTel.Text
fdCom.CommandText = "INSERT INTO test (id,name, tel) VALUES ('" & sid & "','" & sname & "','" & stel & "')"
fdCom.ExecuteNonQuery()
fdCon.Close()
MsgBox("เพิ่มข้อมูล เรียบร้อยแล้ว ครับ")
BtnAddNew.Enabled = True
BtnSave.Enabled = False
BtnCancel.Enabled = False
BtnExit.Enabled = True
TxtID.Enabled = False
TxtName.Enabled = False
TxtTel.Enabled = False
Catch ex As Exception
MsgBox(ex.Message)
End Try
'-- referrence :: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1288&lngWId=10
'-- download MySQL Driver :: http://dev.mysql.com/downloads/download.php?file=Downloads/Win32/MyOLEDB3.exe&pick=mirror
End Sub
|
4.6 ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnExit แล้วเขียนโค้ด ดังนี้
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
End
End Sub |
ผลลัพธ์ Screen Shot หน้าโค้ด
ผลการเพิ่มข้อมูลเข้าไป
ขอขอบคุณที่มา :: http://www.devasp.net/net/articles/display/354.html |
บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
|
VB.NET
โปรแกรม ทดสอบการติดต่อฐานข้อมูล MySQL ด้วย VB.NET2005