01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="MySql.Data.MySqlClient"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07. Sample1()
08. Sample2()
09. End Sub
10.
11. Sub Sample1()
12.
13. Dim objConn As MySql.Data.MySqlClient.MySqlConnection
14. Dim objCmd As MySql.Data.MySqlClient.MySqlCommand
15. Dim strConnString,strSQL As String
16.
17. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
18. objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString)
19. objConn.Open()
20.
21. strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
22. "VALUES ('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','2000000','1000000')"
23.
24. objCmd = New MySql.Data.MySqlClient.MySqlCommand()
25. With objCmd
26. .Connection = objConn
27. .CommandType = CommandType.Text
28. .CommandText = strSQL
29. End With
30. objCmd.ExecuteNonQuery()
31.
32. lblText.Text = lblText.Text & "- Record Inserted"
33.
34. objCmd = Nothing
35. objConn.Close()
36. objConn = Nothing
37.
38. End Sub
39.
40. Sub Sample2()
41.
42. Dim objConn As MySql.Data.MySqlClient.MySqlConnection
43. Dim objCmd As MySql.Data.MySqlClient.MySqlCommand
44. Dim strConnString,strSQL As String
45.
46. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
47. objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString)
48. objConn.Open()
49.
50. strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
51. "VALUES ('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','2000000','1000000')"
52.
53. objCmd = New MySql.Data.MySqlClient.MySqlCommand(strSQL,objConn)
54.
55. Try
56. objCmd.ExecuteNonQuery()
57. lblText.Text = lblText.Text & "- Record Inserted"
58. Catch ex As Exception
59. lblText.Text = lblText.Text & "<br> - Record not insert was (" & ex.Message & ")"
60. End Try
61.
62.
63. objCmd = Nothing
64. objConn.Close()
65. objConn = Nothing
66.
67. End Sub
68.
69.</script>
70.<html>
71.<head>
72.<title>ThaiCreate.Com ASP.NET - MySql.Data.MySqlClient</title>
73.</head>
74.<body>
75. <form id="form1" runat="server">
76. <asp:Label id="lblText" runat="Server"></asp:Label>
77. </form>
78.</body>
79.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
