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

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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...