01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.Odbc"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07. BindData()
08. End Sub
09.
10. Sub BindData()
11.
12. Dim ds As DataSet
13. ds = CreateDataSet()
14.
15.
16. Dim dr As DataRow
17. dr = ds.Tables("customer").NewRow()
18. dr.Item("CustomerID") = "C005"
19. dr.Item("Name") = "Weerachai Nukitram"
20. dr.Item("Email") = "webmaster@thaicreate.com"
21. dr.Item("CountryCode") = "TH"
22. dr.Item("Budget") = "2000000"
23. dr.Item("Used") = "100000"
24. ds.Tables("customer").NewRow()
25. ds.Tables("customer").Rows.Add(dr)
26.
27.
28.
29. Me.myDataGrid.DataSource = ds.Tables(0).DefaultView
30. Me.myDataGrid.DataBind()
31.
32. End Sub
33.
34.
35. Function CreateDataSet() As DataSet
36. Dim objConn As New System.Data.Odbc.OdbcConnection
37. Dim objCmd As New System.Data.Odbc.OdbcCommand
38. Dim dtAdapter As New System.Data.Odbc.OdbcDataAdapter
39.
40. Dim ds As New DataSet
41. Dim strConnString,strSQL As String
42.
43. strConnString = "DSN=mydatabase;UID=;PWD=;"
44.
45. strSQL = "SELECT * FROM customer "
46. objConn.ConnectionString = strConnString
47. With objCmd
48. .Connection = objConn
49. .CommandText = strSQL
50. .CommandType = CommandType.Text
51. End With
52. dtAdapter.SelectCommand = objCmd
53.
54. dtAdapter.Fill(ds,"customer")
55.
56. dtAdapter = Nothing
57. objConn.Close()
58. objConn = Nothing
59.
60. Return ds
61. End Function
62.
63.</script>
64.<html>
65.<head>
66.<title>ThaiCreate.Com ASP.NET - System.Data.Odbc</title>
67.</head>
68.<body>
69. <form id="form1" runat="server">
70. <asp:DataGrid id="myDataGrid" AutoGenerateColumns="true" runat="Server"></asp:DataGrid>
71. </form>
72.</body>
73.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
