01.Dim clsDB As New clsDatabase
02.Sub Page_Load(sender As Object, e As EventArgs)
03. Call myDataReader()
04. Call myDataSet()
05. Call myDataTable()
06. Call myQueryExecuteScalar()
07. Call myExecuteNonQuery()
08. Call myExecuteTransaction()
09.End Sub
10.
11.
12.
13.Sub myDataReader()
14. Dim strSQL As String
15. Dim dtReader As MySqlDataReader
16. strSQL = "SELECT * FROM customer "
17. dtReader = clsDB.QueryDataReader(strSQL)
18. Me.myDataGrid1.DataSource = dtReader
19. Me.myDataGrid1.DataBind()
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30. clsDB.Close()
31.End Sub
