vb.net 如何连接Access数据库
2008-03-17 16:33
453 查看
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下的数据库
有关Excel的连接方式,参考http://blog.csdn.net/SDLin/archive/2008/02/29/2133183.aspx(如何读取Excel文件并赋值给DataGridView对象)
有关数据库操作的方式,参考http://blog.csdn.net/SDLin/archive/2008/02/29/2133016.aspx(数据库如何与DataTable同步)
采用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下的数据库
有关Excel的连接方式,参考http://blog.csdn.net/SDLin/archive/2008/02/29/2133183.aspx(如何读取Excel文件并赋值给DataGridView对象)
有关数据库操作的方式,参考http://blog.csdn.net/SDLin/archive/2008/02/29/2133016.aspx(数据库如何与DataTable同步)
相关文章推荐
- VB如何连接ACCESS数据库详解
- [VB.NET]请问高手如何用VB2005调用系统默认连接实现自动拨号,谢谢!
- Asp.Net 2.0连接ACCESS数据库相对路径问题,web.config中如何使用相对路径
- Asp.Net连接ACCESS数据库相对路径问题,web.config中如何使用相对路径及在类文件中调用这个相对路径
- [VB.NET]如何将Access数据库里的a表里的部分数据移到b表里
- VB.NET连接Office Access数据库显示列表数据
- 如何使用C#或者VB.NET读写Access数据库的标题(Caption)、描述(Description)等字段信息?
- Asp.Net连接ACCESS数据库相对路径问题 web.config中如何使用相对路径及在类文件中调用这个相对路径
- [VB.NET]vs2005 如何连接本地SQL数据库 在线等!
- 概括VB.NET Access数据库连接
- 解析VB.NET如何连接数据库
- [VB.NET源码]连接Access数据库
- 解析VB.NET如何连接数据库
- [VB.NET]vb.net如何连接odb数据库(OpenOffice里的那个数据库)
- asp.net(vB)连接Access数据库
- 在VS2013平台下,用VB.net 连接Access数据库
- 【C# MySQL】如何检查MySQL的connector/net连接是否成功
- vb.net合伙数据库access(一)——连接数据库
- vb.net如何使用HttpWebRequest模拟登陆带验证码的网站
- VB.net 程序需连接Oralce数据库查询 日志提示“数据类型不被支持”