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

1. ImportsSystem.Data.OleDb'引入ADO.NET操作命名空间
3. DimMyConnectionAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"/Book.mdb")
4. DimMyCommandAsOleDbCommand
5. DimMyReaderAsOleDbDataReader
7. DimSQLAsString="SELECT略……"
8. Try
9. MyConnection.Open()
10. MyCommand=NewOleDbCommand(SQL,MyConnection)
11. MyReader=MyCommand.ExecuteReader()
13. WhileMyReader.Read'读取到窗口Text
14. TxtAuthor.Text=MyReader("BookAuthor")
15. EndWhile
17. CatchcAsException
18. MsgBox(c.ToString,MsgBoxStyle.Exclamation&MsgBoxStyle.OkOnly,"错误")
19. EndTry
20. MyConnection.Close()
21. MyReader.Close()
22. MyCommand.Dispose()