Trả về 1 bảng dữ liệu vào SubForm Access

Liên hệ QC

An.BA

Thành viên thường trực
Tham gia
15/9/18
Bài viết
223
Được thích
170
Giới tính
Nam
Mã:
Dim cn As Object
    Dim rst As Object
    Dim strConnection As String
    Dim strSql As String
    
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "\\172.16.25.5\ACC\" & "test_connect.mdb"
    strSql = "SELECT * FROM tbUser"
    cn.Open strConnection
    Set rst = cn.Execute(strSql)
      
    If rst.BOF And rst.EOF Then
    MsgBox "No data found"
    Exit Sub
    Else
        subForm.SourceObject=??????
    End If
    
    rst.Close
    Set rst = Nothing
    cn.Close
    Set cn = Nothing
Em có kiểu truy vấn và kết nối như vậy. Làm thế nào để khi e truy vấn trả về 1 bảng giá trị và đổ vào Subform trong access ạ, chứ k phải dùng vòng lặp để add từng dòng ra ạ
 
Mã:
Dim cn As Object
    Dim rst As Object
    Dim strConnection As String
    Dim strSql As String
  
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "\\172.16.25.5\ACC\" & "test_connect.mdb"
    strSql = "SELECT * FROM tbUser"
    cn.Open strConnection
    Set rst = cn.Execute(strSql)
    
    If rst.BOF And rst.EOF Then
    MsgBox "No data found"
    Exit Sub
    Else
       subForm.SourceObject=??????
    End If
  
    rst.Close
    Set rst = Nothing
    cn.Close
    Set cn = Nothing
Em có kiểu truy vấn và kết nối như vậy. Làm thế nào để khi e truy vấn trả về 1 bảng giá trị và đổ vào Subform trong access ạ, chứ k phải dùng vòng lặp để add từng dòng ra ạ
Thử
Mã:
Set  subForm.Recordset = rst
 
Web KT
Back
Top Bottom