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()
            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下的数据库
本文作者: