计算机二级VB辅导:VB.NET连接Access数据库计算机二级考试

文章作者 100test 发表时间 2009:05:13 18:15:21
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　采用OleDbConnection对象
　　代码 1
　　Private Function getAccessConnection() As OleDbConnection
　　Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0.
　　Data Source=|DataDirectory|Resourcesmag.mdb.Persist Security Info=true"
　　Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
　　Try
　　dbConnection.Open()
　　Catch Ex As Exception
　　’MsgBox(Err.Description)
　　End Try
　　Return dbConnection
　　End Function
　　代码 2
　　private Sub fillDataGridView()
　　Dim sqlStr As String = "0select * from Table"
　　Dim DataAdapter As New OleDbDataAdapter
　　Dim dataSet As New DataSet
　　Dim DataGridView As New DataGridView
　　Dim dbConnection As OleDbConnection = getAccessConnection()
　　If dbConnection.State.ToString = "Closed" Then
　　MsgBox(Chr(13) &. " access 数据库连接失败 " &. Chr(13), , "警告")
　　Exit Sub
　　End If
　　DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)
　　Try
　　DataAdapter.Fill(dataSet,"Table")
　　DataGridView.DataSource = dataSet.Tables("Table").DefaultView
　　Catch Ex As Exception
　　MsgBox(Err.Description)
　　Finally
　　dataSet.Dispose
　　DataAdapter.Dispose
　　dbConnection.Close
　　dbConnection.Dispose
　　End Try
　　End Sub
　　PS：
　　Access数据库文件，可以通过 My Project ->. 资源 ->. 添加资源 ->. 添加现有文件 这样的方式来添加
　　调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总