<strong id="nr4sf"></strong>

<button id="nr4sf"><object id="nr4sf"></object></button>

    <rp id="nr4sf"></rp>
    <th id="nr4sf"><track id="nr4sf"></track></th>
      <s id="nr4sf"></s>
    1. <em id="nr4sf"></em>
    2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
    3. <button id="nr4sf"></button>

      office交流網--QQ交流群號

      Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

      Word交流群:218156588             PPT交流群:324131555

      access利用DAO獲取數據集添加到文本框中

      2020-12-17 08:00:00
      tmtony8
      原創
      13574

      access沒有數據集合這類型的控件,一般可以設置窗體的記錄源為表或者查詢,直接把數據綁定到窗體。

      也可以DAO代碼,用SQL語句來引用指定記錄集,讀取到窗體中


      下面代碼通過SQL語句,把表中數據讀取到窗體文本框中

      Dim db As DAO.Database
          Dim rs As DAO.Recordset
          Dim StrSQL As String
          Dim i As Integer
      '    設置SQL語句獲取表信息
          StrSQL = "select 姓名,性別,出生日期 from 員工信息"
          Set db = CurrentDb()
      '    使用動態集的方式打開SQL篩選的結果作為記錄集
          Set rs = db.OpenRecordset(StrSQL, dbOpenDynaset)
          txt1 = ""   
      '    通過判斷循環輸出記錄集中的每條記錄
          Do Until rs.EOF = True
              For i = 0 To 2
                  txt1 = txt1 & rs.Fields(i) & "  "
              Next i
              rs.MoveNext  
              txt1 = txt1+ vbCrLf  
          Loop

        分享
        一级日本牲交大片束缚_玖玖资源站亚洲最大的网站_56PAO国产成视频永久_97人人操人人摸
        <strong id="nr4sf"></strong>

        <button id="nr4sf"><object id="nr4sf"></object></button>

        <rp id="nr4sf"></rp>
        <th id="nr4sf"><track id="nr4sf"></track></th>
          <s id="nr4sf"></s>
        1. <em id="nr4sf"></em>
        2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
        3. <button id="nr4sf"></button>