数据库|mysql教程
,连接,Access,数据库,Access,数据
数据库-mysql教程
android车载系统源码,ubuntu网页怎么打开,不能创建tomcat8.0,超强磁力爬虫,淘宝商品抓取php,电视剧全集免费观看186seolzw
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 Securit
qq导航网源码下载,vscode es6兼容,ubuntu忘记wifi,tomcat编译var包,爬虫软件推销,php 二进制传输,怀化360seo优化公司,慧谷wap手机网站源码,dreamweaver免费模板lzw
.net开发商城系统源码下载,ubuntu 下拨号连接,爬虫病毒的原理,php大牛标准,seo 元素标签lzw
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下的数据库
本文作者:
