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

Không import được hết dữ liệu từ Excel và Access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Lỗi] Không import được hết dữ liệu từ Excel và Access
• Không import được hết dữ liệu từ Excel và Access

• Không import được hết dữ liệu từ Excel và Access

  huedhcs > 03-07-16, 03:51 PM

  Xin chào các bạn!
  Mong các bạn xem giúp cho vấn đề sau đây:
  Do công việc yêu cầu nên mình đang làm một chương trình nhỏ quản lý dữ liệu sinh viên. Mình tạo một bảng thông tin sinh viên bằng Excel để từ đó Import vào Access (cùng các trường và kiểu dữ liệu). Nhưng khi Import thì hầu như lúc nào Access cũng chỉ nhập được một ít record thôi chứ không nhập được toàn bộ. Mình đã thử bằng cách copy dữ liệu bên Excel rồi dán vào Form nhập dữ liệu bên Access thì lại được. Thực ra, file Excel này là mình Export từ access ra, sau đó nhập bổ sung thêm một số record.
  Còn nữa, khi Export dữ liệu Access ra Excel thì bên Excel thiếu mất 02 Field, trong khi mình đều để kiểu dữ liệu là short text như các field khác.
  Lỗi này có thể do những nguyên nhân nào ạ?
  Mong cao nhân giúp đỡ.

• RE: Không import được hết dữ liệu từ Excel và Access

  zinzin8x > 03-07-16, 11:20 PM

  Bạn tham khảo code này cho button update có dùng kèm commondialog nhé.
  Dim sTenTable, strSql As String
   With CommonDialog1
     On Error GoTo loi
          .DialogTitle = "Select Excel file"
          .FileName = ""
          .Filter = "Excel Files (*.xls)" + Chr$(124) + "*.xls" + Chr$(124)
          .ShowOpen
         If .FileName = "" Or IsNull(.FileName) Then
               MsgBox "You did not select your Excel file !", vbCritical
  
            Else
              DoCmd.SetWarnings (False)
                                   sTenTable = "t_update"
                      strSql = "INSERT INTO " & sTenTable & " SELECT ID1, ID2, ID3, ID4, ID5 FROM [EXCEL 8.0;Database=" & .FileName & ";HDR=Yes].[sheet1$] 
                      DoCmd.RunSQL strSql
                      End If
                      If MsgBox("Ban co chac muon update ???", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
                      sSQL = "INSERT INTO t_tabelDich ( ID1, ID2, ID3, ID4, ID5 )  SELECT t_update.ID1, t_update.ID2, t_update.ID3, t_update.ID4, t_update.ID5 FROM t_update;"
     
      DoCmd.RunSQL sSQL
    DoCmd.OpenQuery "delete"    ' xóa bảng tạm : là bảng t_update đó nhé.
    MsgBox "    Da Thuc Hien Xong !!!!", , "Thong bao"
    End If
                                  
                .FileName = ""
               DoCmd.SetWarnings (True)
                     Exit Sub
       
         End If
  loi:
          MsgBox Err.Description
    End With

• RE: Không import được hết dữ liệu từ Excel và Access

  zinzin8x > 03-07-16, 11:27 PM

  Còn xuất table ra exel mà không cần file tempe thì bạn dùng macro là đơn giản nhất bạn nhé. hoặc có thể tham khảo link này: 
  http://thuthuataccess.com/forum/thread-8301.html
• Bài trước Bài tiếp