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. Dim i As Integer
16. Dim dg As DataGrid
17. Dim lbl As Label
18. For i = 0 To ds.Tables.Count - 1
19. dg = New DataGrid
20. With dg
21. .DataSource = ds.Tables(i).DefaultView
22. .AutoGenerateColumns = True
23. .DataBind()
24. End With
25. lbl = New Label
26. lbl.Text = "<br><b>" & ds.Tables(i).ToString & "</b><br>"
27. Me.lblText.Controls.Add(lbl)
28. Me.lblText.Controls.Add(dg)
29. dg = Nothing
30. Next
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 i As Integer
42. Dim strConnString,strSQL As String
43.
44. strConnString = "DSN=mydatabase;UID=;PWD=;"
45.
46. Dim TablesName(2) As String
47. TablesName(0) = "customer"
48. TablesName(1) = "audit"
49. TablesName(2) = "country"
50. For i = 0 To TablesName.GetUpperBound(0)
51. strSQL = "SELECT * FROM " & TablesName(i) & " "
52. objConn.ConnectionString = strConnString
53. With objCmd
54. .Connection = objConn
55. .CommandText = strSQL
56. .CommandType = CommandType.Text
57. End With
58. dtAdapter.SelectCommand = objCmd
59.
60. dtAdapter.Fill(ds,TablesName(i))
61. Next
62.
63.
64. dtAdapter = Nothing
65. objConn.Close()
66. objConn = Nothing
67.
68. Return ds
69.
70. End Function
71.
72.</script>
73.<html>
74.<head>
75.<title>ThaiCreate.Com ASP.NET - System.Data.Odbc</title>
76.</head>
77.<body>
78. <form id="form1" runat="server">
79. <asp:Label id="lblText" runat="Server"></asp:Label>
80. </form>
81.</body>
82.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
