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 Securit

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()

某地板超炫企业网站1.1

1、演示：以截图为准 2、程序说明 程序试用后台:http://你的域名/admin/login.asp 后台登陆帐号:admin 密码:admin123 说明： 这个是基于asp+access的企业网站源码，数据库已设有有防下载，网站更安全 要修改网站，自定义你自己要的页面，和美化页面都是你自己完成，网站源码程序完整，后台功能强大。 调试运行环境：要安装IIS服务器（IIS的安装和配置，安装好

0

查看详情

            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下的数据库