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

发布时间：2020-12-16 23:59:18 所属栏目：大数据来源：网络整理

导读：Imports System.Data.OleDb '引入ADO.NET操作命名空间 Dim MyConnection As New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" Application.StartupPath "/Book.mdb" ) Dim MyCommand As OleDbCommand Dim MyReader As OleDbDataReader

 
 ImportsSystem.Data.OleDb'引入ADO.NET操作命名空间 
DimMyConnectionAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"/Book.mdb")
DimMyCommandAsOleDbCommand
DimMyReaderAsOleDbDataReader
DimdbsetAsNewDataSet'数据集合 
DimdataAAsOleDbDataAdapter'数据组 
DimSQLAsString="SELECT*FROMBookWHEREBookNameLIKE'%"&&"%'""
SELECT*FROMBookWHEREBookSHLIKE'%"&TxtStr.Text&"%'" 
UPDATEBookSETBookAuthor='"&&"',BookName='"&&"'"WHEREID=" 
INSERTINTOBook(BookSH,BookAuthor)VALUES('"&&"','"&&"') 
Try
dbset.Clear()'数据组清除 
MyConnection.Open()
MyCommand=NewOleDbCommand(SQL,MyConnection)
dataA=NewOleDbDataAdapter(MyCommand)
dataA.Fill(dbset,"Book")'填充数据组 
DataGridView.DataSource=dbset.Tables("Book")'设置数据表的数据源 
CatchcAsException
MsgBox(c.ToString,MsgBoxStyle.OkOnly,"错误")
EndTry
MyConnection.Close()
MyCommand.Dispose()
 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!