<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ? | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      VBA中使用ADO管理鏈接表時,open出錯

      閆新明 等級: 普通會員 積分:0 金幣:0 來自:石家莊Access交流中心 發表于:2020-04-17 14:53:30  
      樓主

      VBA中使用ADO管理鏈接表時,更新鏈接表時,出現:材料表#-2147417848 ,方法open作用于對象‘-connection’時失敗。請問如何解決。

       

      access培訓  誠聘access開發人員

          閆新明
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      閆新明 等級:普通會員 積分:0 金幣:0 來自:石家莊Access交流中心 發表于2020/4/17 14:56:54 
      1樓 得分: 0

      補充:一下是VBA,來自網上,以前用的很好,最近出現問題,在另一臺電腦上正常。

       On Error GoTo Err_GetConnect
          Dim strConnect  As String       '連接字串
          Dim cnn         As Object       'ADODB.Connection
          Dim strDB       As String
          
          strDB = Me.txtDatabase
          If strDB Like ".\*" Then strDB = CurrentProject.Path & Mid(strDB, 2)
          Me.lblTip.Caption = conMsgConnecting
          Me.Repaint
          MsgBox "1"
          '使用Access數據庫時
          Select Case Me.grpDatabaseType
          Case Me.optDBTypeAccess.OptionValue
          MsgBox "12"
              '先用ADO通過OLEDB直接連接數據庫進行測試
              'strConnect = "Provider=Microsoft.Jet.OLEDB.4.0" & _
                           ";Data Source=" & strDB & _
                           ";Jet OLEDB:Database Password=" & Nz(Me.txtPassword)
                           
              strConnect = "Provider=Microsoft.ACE.OLEDB.12.0" & _
                           ";Data Source=" & strDB & _
                           ";Jet OLEDB:Database Password=" & Nz(Me.txtPassword)
           MsgBox "121"
              Set cnn = CreateObject("ADODB.Connection")
              cnn.ConnectionString = strConnect
      '        cnn.CommandTimeout = 180
      MsgBox "1211"
              cnn.Open        ‘問題出在這里
      MsgBox "12111"
              cnn.close
      MsgBox "1212"
              '未出錯說明設置正確,返回鏈接表需要的連接字串
              GetConnect = "MS Access" & _
                           ";DATABASE=" & strDB & _
                           ";UID=" & Me.txtUserName
          MsgBox "122"
              If Nz(Me.txtPassword) <> "" Then GetConnect = GetConnect & ";PWD=" & Me.txtPassword

          '使用SQL Server數據庫時



          閆新明
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      總記錄:1篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5