[VB.NET]ADO数据库处理-把记录装入DataGrilView

  <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. Imports System.Data.OleDb '引入ADO.NET操作命名空间
3. Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/Book.mdb")
4.     Dim MyCommand As OleDbCommand
5.     Dim MyReader As OleDbDataReader
6.     Dim dbset As New DataSet '数据集合
7.     Dim dataA As OleDbDataAdapter '数据组
9. Dim SQL As String =" SELECT * FROM Book WHERE BookName LIKE '%" & & "%'""
10. SELECT * FROM Book WHERE BookSH LIKE '%" & TxtStr.Text & "%'"
11. UPDATE Book SET BookAuthor='" & & "',BookName='" & & "'" WHERE ID="
12. INSERT INTO Book(BookSH,BookAuthor) VALUES('" & & "','" & & "')
13.     Try
14. dbset.Clear() '数据组清除
15.         MyConnection.Open()
16. MyCommand = New OleDbCommand(SQL, MyConnection)
18. dataA = New OleDbDataAdapter(MyCommand)
19.          dataA.Fill(dbset, "Book") '填充数据组         
20.          DataGridView.DataSource = dbset.Tables("Book") '设置数据表的数据源
21.             
22.      Catch c As Exception
23.          MsgBox(c.ToString, MsgBoxStyle.OkOnly, "错误")
24.      End Try
25.      MyConnection.Close()
26.      MyCommand.Dispose()