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

    1. <mark id="os3gq"></mark>
    2. ADO與ADOX示例-螢火蟲
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> ADP及SQL SERVER


      ADO與ADOX示例

      發表時間:2018/6/14 16:04:52 評論(0) 瀏覽(3925)  評論 | 加入收藏 | 復制
         
      摘 要:ADO與ADOX示例
      正 文:

      ACCESS引用ADO 運用OLE DB技術存取數據

      VBA給列表框值:
      Option Compare Database
      Private Sub Form_Load()
          Dim cnnDB As New ADODB.Connection
          Dim RSTobJECT As New ADODB.Recordset
          Dim lbxEmployee As ListBox
          Dim strList As String     
          Set lbxEmployee = Me![員工清單]
          Set cnnDB = CurrentProject.Connection 
          RSTobJECT.Open "tb員工", cnnDB
          strList = "姓名;職稱;出生日期;"
          With RSTobJECT
              Do Until .EOF
                  strList = strList & !姓名 & ";" & !職稱 & ";" _
                            & !出生日期 & ";"
                  .MoveNext
              Loop
              .Close
          End With 
          lbxEmployee.RowSource = strList
          Set RSTobJECT = Nothing
          cnnDB.Close
          Set cnnDB = Nothing  
      End Sub

         ACCESS引用ADOX,可以定義數據庫的內部結構,如表,查詢等,
          VBA動態修改傳遞查詢的SQL語句,
          工具-引用,Microsoft ADO Ext. 2.8 for DLL and Security
          Public Sub ChangeSQL(strPassThroughQueryName As String, strPassthroughSQL As String)
          Dim cat As New ADOX.Catalog
          Dim Pro As ADOX.Procedure
          Dim Cmm As New ADODB.Command
          If strPassthroughSQL = "" or Len(strPassthroughSQL) = 0 Then Exit Sub
          Set cat.ActiveConnection = CurrentProject.Connection         
          Set Pro = cat.Procedures(strPassThroughQueryName)
          Set Cmm = Pro.Command
          Cmm.CommandText = strPassthroughSQL
          Set Pro.Command = Cmm
          Set cat = Nothing
          Set Pro = Nothing
          Set Cmm = Nothing
          End Sub


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      用ADOX創建一個新的access2000數據庫  【竹笛  2005/1/25】
      如何注冊ADO與DAO   【竹笛  2006/11/6】
      用ADOX中的CREATE建SQL SERVER庫的兩種方法  【sxhmft  2007/10/18】
      不用ADOX也可以判斷access表是否存在  【UMVSOFT整理  2007/12/12】
      用ADOX編寫自己的表設計說明書  【1976yuan  2010/7/15】
      【Access懶人工具】用VBA代碼重新引用ADO  【麥田  2013/12/5】
      快速開發平臺--V1.7.0數據庫或項目包含一個對文件“msado...  【jingguangyuang  2015/1/27】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      螢火蟲

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5