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

Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Hướng Dẫn Lấy dữ liệu từ file .mdb của máy chấm công ra Excel
• Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

• Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  minhkhai > 06-05-20, 12:35 AM

  Xin chào các anh chị
  
  Em là very newbie, cũng là up bài đầu tiên, mong được thứ lỗi nếu sai sót
  
  Em có file database Access từ phần mềm chấm công Attendance Management. 
  Nay em muốn lấy dữ liệu từ database của phần mềm trên ra file Excel thông qua VBA thì viết code như thế nào ?
  
  Mong anh chị giúp đỡ
  
  Các thông tin trong file đính kèm ạ
  
  https://jxjjxy-my.sharepoint.com/:x:/g/p...g?e=Ho0YAA

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  ongke0711 > 06-05-20, 09:43 PM

  Vụ này giống làm toán hình học lớp 7 quá: nhìn hình ta thấy....
  
  Bạn thay chuỗi SQL như bên dưới: viết chay nên nếu chạy báo lỗi gì thì bạn post hình lên đây.
  
  

  Mã PHP:

  SQL = "SELECT CHECKINOUT.USERID, USERINFO.NAME, Date(CHECKINOUT.CHECKTIME) AS NGAY, Weekday(CHECKINOUT.CHECKTIME) AS THU, " & _
          "IIF(CHECKINOUT.CHECKTYPE='I',Format(CHECKINOUT.CHECKTIME,'hh:nn'),'') AS GioVao, IIF(CHECKINOUT.CHECKTYPE='O',Format(CHECKINOUT.CHECKTIME,'hh:nn'),'') AS GioRa, DEPARTMENTS.DEPTNAME " & _
          "FROM USERINFO INNER JOIN (CHECKINOUT INNER JOIN DEPARTMENTS ON CHECKINOUT.DEPTID = DEPARTMENTS.DEPTID) ON USERINFO.USERID = CHECKINOUT.USERID " & _
          "WHERE CHECKINOUT.CHECKTIME BETWEEN #" & Format([E3], "yyyy/mm/dd") & "# AND #" & Format([F3], "yyyy/mm/dd") & "# " & _
          "ORDER BY CHECKINOUT.USERID, CHECKINOUT.CHECKTIME " 


• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  minhkhai > 10-05-20, 09:28 AM

  (06-05-20, 09:43 PM)ongke0711 Đã viết: Vụ này giống làm toán hình học lớp 7 quá: nhìn hình ta thấy....
  
  Bạn thay chuỗi SQL như bên dưới: viết chay nên nếu chạy báo lỗi gì thì bạn post hình lên đây.
  
  

  Mã PHP:

  SQL = "SELECT CHECKINOUT.USERID, USERINFO.NAME, Date(CHECKINOUT.CHECKTIME) AS NGAY, Weekday(CHECKINOUT.CHECKTIME) AS THU, " & _
          "IIF(CHECKINOUT.CHECKTYPE='I',Format(CHECKINOUT.CHECKTIME,'hh:nn'),'') AS GioVao, IIF(CHECKINOUT.CHECKTYPE='O',Format(CHECKINOUT.CHECKTIME,'hh:nn'),'') AS GioRa, DEPARTMENTS.DEPTNAME " & _
          "FROM USERINFO INNER JOIN (CHECKINOUT INNER JOIN DEPARTMENTS ON CHECKINOUT.DEPTID = DEPARTMENTS.DEPTID) ON USERINFO.USERID = CHECKINOUT.USERID " & _
          "WHERE CHECKINOUT.CHECKTIME BETWEEN #" & Format([E3], "yyyy/mm/dd") & "# AND #" & Format([F3], "yyyy/mm/dd") & "# " & _
          "ORDER BY CHECKINOUT.USERID, CHECKINOUT.CHECKTIME " 


  
  Cảm ơn ongke0711 rất nhiều.
  Chuỗi SQL của bạn với sự kết hợp Google Search và mình đã làm được.
  Bạn cho hỏi mình qua Google mình thấy kết nối từ Excel sang Access hay dùng ADODB nhưng file đính kèm của mình có vẻ không phải vậy? Bạn có thể cho mình biết sự khác nhau giữa 2 connection là như thế nào không 
  (Code trong file của mình là đi copy trên mạng)

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  Xuân Thanh > 10-05-20, 10:24 AM

  Đưa file lên mà chỉ cho xem thì sao biết đâu mà giúp

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  ongke0711 > 10-05-20, 07:38 PM

  (10-05-20, 09:28 AM)minhkhai Đã viết: Bạn cho hỏi mình qua Google mình thấy kết nối từ Excel sang Access hay dùng ADODB nhưng file đính kèm của mình có vẻ không phải vậy? Bạn có thể cho mình biết sự khác nhau giữa 2 connection là như thế nào không 
  (Code trong file của mình là đi copy trên mạng)

  
  @XuanThanh: code trong file Excel của bạn minhkhai đính kèm ở trên như thế này: (chỉ copy vài dòng liên quan đến Access)
  
  

  Mã PHP:

  Const DbLoc As String = "E:\May2019.mdb"
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim recCount As Long
    Dim SQL As String

    'Setup references to workbook and sheet
    Set xlBook = ActiveWorkbook
    Set xlSheet = xlBook.Worksheets(1)

    xlSheet.Range("A5:H150000").ClearContents

    Set db = OpenDatabase(DbLoc)

    SQL = "SELECT USERID, CHECKTIME, CHECKTYPE FROM CHECKINOUT "
    SQL = SQL & "WHERE CHECKTIME >= #" & Format([E3], "yyyy/mm/dd") & "# " & _
        " AND CHECKTIME < #" & Format([F3], "yyyy/mm/dd") & "# "
    SQL = SQL & "ORDER BY USERID, CHECKTIME "

    'Execute our query and populate the recordset
    Set rs = db.OpenRecordset(SQL, dbOpenSnapshot) 


  
  
  @minhkhai:
  - File này người ta dùng đối tượng DAO của Access để làm tương tác với CSDL Access. DAO là viết riêng cho bộ máy CSDL của Access, nó có thể dùng được trong một số môi trường như VBA, Visual Basic... Đối với Access 2003 trờ về trước thì dùng thư viện của DAO3.60.dll, Access 2007 trở lên thì Access đổi sang ACEDAO.dll và Office 64bit sẽ không còn hỗ trợ thư viện DAO nữa, chỉ có ACEDAO.
  - Đối với việc Excel kết nối CSDL Access thì bạn có thể dùng thư viện DAO hay ADO đều được, không có gì khác biệt, chỉ khác nhau là câu lệnh của ADO sẽ phức tạp hơn của DAO.
  - Cái khác nhau cơ bản nhất của DAO vs ADO là: DAO chỉ làm việc với CSDL Access, còn ADO có thể kết nối tới mọi kiểu dữ liệu như: Text, CSV, XML, SQL Server, Access, Excel,...

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  thuyyeu99 > 10-05-20, 11:10 PM

  Chỉ lấy từ access ra excel thôi hả.
  dùng copyrecordset là nhanh nhất.

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  Xuân Thanh > 11-05-20, 07:14 AM

  Nếu chỉ là lấy dữ liệu không thôi thì dùng bộ lọc ngay trên file Excel, không cần mở file Access làm chi nữa cho mệt. Chẳng cần viết code tốn thời gian. Sau khi lấy được dữ liệu rồi thì muốn xủ lý trên Excel thế nào là tùy biến của người sử dụng
  Trong MeNu DaTa của Excel, chọn From Access rồi làm theo chỉ dẫn của Excel

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  minhkhai > 12-05-20, 02:46 PM

  (10-05-20, 07:38 PM)ongke0711 Đã viết:

  (10-05-20, 09:28 AM)minhkhai Đã viết: Bạn cho hỏi mình qua Google mình thấy kết nối từ Excel sang Access hay dùng ADODB nhưng file đính kèm của mình có vẻ không phải vậy? Bạn có thể cho mình biết sự khác nhau giữa 2 connection là như thế nào không 
  (Code trong file của mình là đi copy trên mạng)

  
  @XuanThanh: code trong file Excel của bạn minhkhai đính kèm ở trên như thế này: (chỉ copy vài dòng liên quan đến Access)
  
  

  Mã PHP:

  Const DbLoc As String = "E:\May2019.mdb"
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim recCount As Long
    Dim SQL As String

    'Setup references to workbook and sheet
    Set xlBook = ActiveWorkbook
    Set xlSheet = xlBook.Worksheets(1)

    xlSheet.Range("A5:H150000").ClearContents

    Set db = OpenDatabase(DbLoc)

    SQL = "SELECT USERID, CHECKTIME, CHECKTYPE FROM CHECKINOUT "
    SQL = SQL & "WHERE CHECKTIME >= #" & Format([E3], "yyyy/mm/dd") & "# " & _
        " AND CHECKTIME < #" & Format([F3], "yyyy/mm/dd") & "# "
    SQL = SQL & "ORDER BY USERID, CHECKTIME "

    'Execute our query and populate the recordset
    Set rs = db.OpenRecordset(SQL, dbOpenSnapshot) 


  
  
  @minhkhai:
  - File này người ta dùng đối tượng DAO của Access để làm tương tác với CSDL Access. DAO là viết riêng cho bộ máy CSDL của Access, nó có thể dùng được trong một số môi trường như VBA, Visual Basic... Đối với Access 2003 trờ về trước thì dùng thư viện của DAO3.60.dll, Access 2007 trở lên thì Access đổi sang ACEDAO.dll và Office 64bit sẽ không còn hỗ trợ thư viện DAO nữa, chỉ có ACEDAO.
  - Đối với việc Excel kết nối CSDL Access thì bạn có thể dùng thư viện DAO hay ADO đều được, không có gì khác biệt, chỉ khác nhau là câu lệnh của ADO sẽ phức tạp hơn của DAO.
  - Cái khác nhau cơ bản nhất của DAO vs ADO là: DAO chỉ làm việc với CSDL Access, còn ADO có thể kết nối tới mọi kiểu dữ liệu như: Text, CSV, XML, SQL Server, Access, Excel,...

  
  Cảm ơn bạn đã giải thích cặn kẽ. 
  Vậy giờ từ giờ mình học cách kết nối ADO cho đa năng, bạn có link nào có file kết nối vậy cho mình xin để học hỏi nhé.

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  minhkhai > 12-05-20, 02:49 PM

  (10-05-20, 11:10 PM)thuyyeu99 Đã viết: Chỉ lấy từ access ra excel thôi hả.
  dùng copyrecordset là nhanh nhất.

  
  Cô giáo có file hoặc link share không, cho mình xin với. Mình đang học tiểu học ở trường Access đây nên thuật ngữ đơn giản nhất cũng bỡ ngỡ

• RE: Lấy dữ liệu từ file .mdb của máy chấm công ra Excel

  tranthanhan1962 > 12-05-20, 06:01 PM

  Với xlsx có thể dùng Get Data của excel để láy dữ liệu table truyền qua excel.
  Hướng dẫn ở đây:
  https://www.microsoft.com/en-us/microsof...-database/
  Nếu office 2003 thì xem cái này.
  https://viettuts.vn/vi-du-excel-vba/conn...s-database
• Bài trước Bài tiếp