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

来源：互联网发布：sysbench windows 编辑：程序博客网时间：2024/05/16 10:18

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