• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Đổ dữ liệu nhận được từ SQL vào subform

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Đổ dữ liệu nhận được từ SQL vào subform
• Đổ dữ liệu nhận được từ SQL vào subform

• Đổ dữ liệu nhận được từ SQL vào subform

  AnNguyen > 14-08-19, 11:20 AM

  Em sử dụng kết nối ADO và lấy ra các bảng ghi, vậy em muốn trả bản ghi đó về subform thì như thế nào ạ.
  Vì hiện tại em đang lấy thuộc tính .SourceObject để đổ tất cả dữ liệu vào nhưng không được ạ.
  
  
  

  Mã:

  Dim conn As ADODB.connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
        strConnString = "Provider=SQLOLEDB;Data Source=" & stServer & ";Initial Catalog=" & stDatabase & ";UID=steame;PWD=Nguyenan00;"
        Set conn = New ADODB.connection
        conn.Open strConnString
        Set rs = conn.Execute("Seclect * from tbHocSinh")
        MaHS = ""
        If Not rs.EOF Then
            MaHS = rs.Fields(0).Value
          sftest.SourceObject = ????
        End If
        rs.Close

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  Cuong Servenet > 14-08-19, 12:17 PM

  (14-08-19, 11:20 AM)AnNguyen Đã viết: Em sử dụng kết nối ADO và lấy ra các bảng ghi, vậy em muốn trả bản ghi đó về subform thì như thế nào ạ.
  Vì hiện tại em đang lấy thuộc tính .SourceObject để đổ tất cả dữ liệu vào nhưng không được ạ.
  
  
  

  Mã:

  Dim conn As ADODB.connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
        strConnString = "Provider=SQLOLEDB;Data Source=" & stServer & ";Initial Catalog=" & stDatabase & ";UID=steame;PWD=Nguyenan00;"
        Set conn = New ADODB.connection
        conn.Open strConnString
        Set rs = conn.Execute("Seclect * from tbHocSinh")
        MaHS = ""
        If Not rs.EOF Then
            MaHS = rs.Fields(0).Value
          sftest.SourceObject = ????
        End If
        rs.Close

  
  ko ro he thong cua ban the nao?
  
  chứ như mình thì sẽ viết stored procedure trong SQL cho main form và sub form ,
   rồi  viết hàm gọi cái stored procedure . o su kien open cua tung form goi cái store đó ra là xong

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  AnNguyen > 14-08-19, 12:44 PM

  (14-08-19, 12:17 PM)Cuong Servenet Đã viết: ko ro he thong cua ban the nao?
  
  chứ như mình thì sẽ viết stored procedure trong SQL cho main form và sub form ,
   rồi  viết hàm gọi cái stored procedure . o su kien open cua tung form goi cái store đó ra là xong

  
  Nhưng em không biết gọi nó ra như thế nào ạ. Em có thể viết stored procedure với tham số truyền vào. Nhưng làm sao để gọi nó ra và đổ thẳng vào cái subform được ạ?

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  Cuong Servenet > 14-08-19, 02:34 PM

  (14-08-19, 12:44 PM)AnNguyen Đã viết:

  (14-08-19, 12:17 PM)Cuong Servenet Đã viết: ko ro he thong cua ban the nao?
  
  chứ như mình thì sẽ viết stored procedure trong SQL cho main form và sub form ,
   rồi  viết hàm gọi cái stored procedure . o su kien open cua tung form goi cái store đó ra là xong

  
  Nhưng em không biết gọi nó ra như thế nào ạ. Em có thể viết stored procedure với tham số truyền vào. Nhưng làm sao để gọi nó ra và đổ thẳng vào cái subform được ạ?

  
  ham thi no hoi dài mình sẽ upfile sau.
  
  ở sự kiện open main form bạn gọi cái stored của sub form là xong.
  
  đại loại nó sẽ có dạng như sau
  
  Main form có stored Main : main_requery
  Sub form có strored sub : sub_requery
  
  ①code trong main form
  Private Sub Form_Open(Cancel As Integer)
       call  main_requery
  end sub 
  
  Private Sub main_requery()
         tham số@1  = me.text1
  
         tham số@2 = me.text2
  
       call hàmgọistrored(main)
  
       call  sub_requery
  end sub 
  
  ②code trong sub from viết câu lệnh dạng như sau 
  Public Sub sub_requery()
       tham số @1  = Forms_main.text1
  
       call hàmgọistrored(sub)
  end sub

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  Cuong Servenet > 14-08-19, 02:39 PM

  ma ban dang lam tren adp hay accdb vay nhi?
  
  adp thi truyen tham so rat don gian thoi

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  AnNguyen > 14-08-19, 07:08 PM

  (14-08-19, 02:39 PM)Cuong Servenet Đã viết: ma ban dang lam tren adp hay accdb vay nhi?
  
  adp thi truyen tham so rat don gian thoi

  Em đang làm trên Accdb anh ạ.
  a có thể hướng dẫn e kỹ hơn được k ạ, tại thật sự em vẫn chưa rõ cái gọi được stored proc trong sql kia lắm ạ

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  ongke0711 > 14-08-19, 10:29 PM

  Có mấy ý trao đổi về thiết kế form xử lý có Source Object.
  
  Trong code anh có thấy dòng MaHS="" rồi  MaHS = .... --> ý em muốn lấy mã này làm gì? Vì anh thấy đoạn code sẽ lấy MaHS của dòng đầu tiên trong Recordset trả về --> vậy dùng làm gì?
  
  Em dùng Source Object động cho Subform thì OK nhưng cách dùng thì có vấn đề. Đối với một số kiểu Form người thiết kế muốn tích hợp trong một Main Form có thể hiển thị được nhiều SubForm có nội dung khác nhau, chỉ cần clịck chọn một button nào đó sẽ hiển thị nội dùng form cần xem. Chú ý đã gọi là SubForm thì Source Object của nó phải là Form con chứ không phải Table hay Query như em đang gán.
  - Dùng Form thì mới đảm bảo việc thiết kế đúng chuẩn, dễ thao tác, dễ nhìn dễ hiểu đối với người dùng. Vd: người dùng nuốn có nút lệnh xoá sửa luôn bên trong SubForm thì đối với table, Query làm sao làm được.
  - Table và Query chỉ làm RecordSource và chạy ngầm bên dưới Form chứ không đưa lên Form giao diện.
  
  Từ việc sửa những vấn đề trên sẽ dẫn đến việc em dễ dàng gán RecordSource form Subform từ ADODB Recordset lấy về từ SQL Server.
  - Thiết kế một Form cố định, hoàn chỉnh để làm Subform. Khi có truy vấn, Filter từ Main Form sẽ trả về Recordset theo yêu cầu, khi đó chỉ cần gán cho SForm, requery là xong.
  
  VD: Me.sfmDSHocSinh.Form.Recordset = adoRS

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  Cuong Servenet > 15-08-19, 08:30 AM

  (14-08-19, 12:17 PM)Cuong Servenet Đã viết:

  (14-08-19, 11:20 AM)AnNguyen Đã viết: Em sử dụng kết nối ADO và lấy ra các bảng ghi, vậy em muốn trả bản ghi đó về subform thì như thế nào ạ.
  Vì hiện tại em đang lấy thuộc tính .SourceObject để đổ tất cả dữ liệu vào nhưng không được ạ.
  
  
  

  Mã:

  Dim conn As ADODB.connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
        strConnString = "Provider=SQLOLEDB;Data Source=" & stServer & ";Initial Catalog=" & stDatabase & ";UID=steame;PWD=Nguyenan00;"
        Set conn = New ADODB.connection
        conn.Open strConnString
        Set rs = conn.Execute("Seclect * from tbHocSinh")
        MaHS = ""
        If Not rs.EOF Then
            MaHS = rs.Fields(0).Value
          sftest.SourceObject = ????
        End If
        rs.Close

  
  ko ro he thong cua ban the nao?
  
  chứ như mình thì sẽ viết stored procedure trong SQL cho main form và sub form ,
   rồi  viết hàm gọi cái stored procedure . o su kien open cua tung form goi cái store đó ra là xong

  aaa

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  AnNguyen > 15-08-19, 09:20 AM

  (14-08-19, 10:29 PM)ongke0711 Đã viết: Có mấy ý trao đổi về thiết kế form xử lý có Source Object.
  
  Trong code anh có thấy dòng MaHS="" rồi  MaHS = .... --> ý em muốn lấy mã này làm gì? Vì anh thấy đoạn code sẽ lấy MaHS của dòng đầu tiên trong Recordset trả về --> vậy dùng làm gì?
  

  
  Chỗ này là em định gán từng trường vào trong subform ạ, vd: mahs, tenHocSinh.... bởi vì nó k trả về cả thuộc tính Source Object nên em lấy từng bản ghi nó duyệt qua để add vào subform ạ.
  

  (14-08-19, 10:29 PM)ongke0711 Đã viết:
  - Dùng Form thì mới đảm bảo việc thiết kế đúng chuẩn, dễ thao tác, dễ nhìn dễ hiểu đối với người dùng. Vd: người dùng nuốn có nút lệnh xoá sửa luôn bên trong SubForm thì đối với table, Query làm sao làm được.
  - Table và Query chỉ làm RecordSource và chạy ngầm bên dưới Form chứ không đưa lên Form giao diện.
  

  
  sửa xóa e chỉ lấy ID trên subform về để xóa bằng câu lệnh, còn thêm mới em k cho thêm trực tiếp trên subform mà qua 1 giao diện nhập liệu ạ.
  

  (14-08-19, 10:29 PM)ongke0711 Đã viết:
  Từ việc sửa những vấn đề trên sẽ dẫn đến việc em dễ dàng gán RecordSource form Subform từ ADODB Recordset lấy về từ SQL Server.
  - Thiết kế một Form cố định, hoàn chỉnh để làm Subform. Khi có truy vấn, Filter từ Main Form sẽ trả về Recordset theo yêu cầu, khi đó chỉ cần gán cho SForm, requery là xong.
  
  VD: Me.sfmDSHocSinh.Form.Recordset = adoRS

  Em đã làm theo như chỗ này nhưng nó không ra anh ạ. Vì thực sự kiểu gán qua mainform xong vào subform như a nói em chưa biết phải làm sao ạ.
  Anh có thể test giúp em 1 form được không ạ? có cả tham số truyền vào để tìm kiếm ạ.
  Em cảm ơn anh.

• RE: Đổ dữ liệu nhận được từ SQL vào subform

  AnNguyen > 15-08-19, 10:15 AM

  Đây ạ, sau 1 hồi loay hoay và kết hợp nhiều nơi thì em đổ được dữ liệu vào main form như anh nói rồi ạ.
  

  Mã:

  Private Sub Form_Load()
    Dim strConnString As String
    strConnString = "Provider=SQLOLEDB;Data Source=" & stServer & ";Initial Catalog=" & stDatabase & ";UID=steame;PWD=Nguyenan00;"
    Set rstSuppliers = New ADODB.Recordset
    rstSuppliers.CursorLocation = adUseClient
    rstSuppliers.Open "Select * From tbHocSinh", strConnString, adOpenKeyset, adLockOptimistic
    Set Form_Form1.Recordset = rstSuppliers
End Sub

  
  Nhưng bây giờ làm sao để em có thể tìm kiếm 1 mã học sinh ạ? khi mà đang ở form 2 có chưa subform chứa dữ liệu form1 đã đổ data vào ạ.
• Bài trước Bài tiếp