VB VB.NET连接Access数据库 Access数据库连接 采用OleDbConnection对象 代码 1 Private Function getAccessConnection() As OleDbConnection Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\Resources\mag.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 = "select * 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下的数据库
本文档为【VB.NET连接Access数据库】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。