[VB.NET]ADO数据库处理-读出数据记录

1. <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
2. Imports System.Data.OleDb '引入ADO.NET操作命名空间
4. Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/Book.mdb")
5.     Dim MyCommand As OleDbCommand
6.     Dim MyReader As OleDbDataReader
8. Dim SQL As String ="SELECT略……"
9.        Try
10.             MyConnection.Open()
11.             MyCommand = New OleDbCommand(SQL, MyConnection)
12.             MyReader = MyCommand.ExecuteReader()   
14.             While MyReader.Read '读取到窗口Text
15.                 TxtAuthor.Text = MyReader("BookAuthor") 
16.             End While
17.             
18.         Catch c As Exception
19.             MsgBox(c.ToString, MsgBoxStyle.Exclamation & MsgBoxStyle.OkOnly, "错误")
20.         End Try
21.         MyConnection.Close()
22.         MyReader.Close()
23.         MyCommand.Dispose()