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

Import Table từ file Access này sang một file Access khác

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Hàm] Import Table từ file Access này sang một file Access khác
• Import Table từ file Access này sang một file Access khác

• Import Table từ file Access này sang một file Access khác

  Xuân Thanh > 22-04-13, 05:05 PM

  Để Import một table từ file Access này qua một file Access khác ta có nhiều cách thực hiện
  1/ Dùng File/Get External Data/Import rồi chọn file ===> chọn table ===> OK
  2/ Dùng Macro với Action là TransferDatabase
  3/ Dùng câu lệnh Docmd.TransferDatabase acImport
  Đó là những cách cơ bản nhất
  Hôm nay giới thiệu với các bạn cách dùng hàm VBA để Import một table từ một Database Nguồn(DBNguon) sang một Database Đích(DBDich)
  Cách thực hiện như sau
  1/ Tạo một table trong DBDich có cấu trúc giống hệt như table trong DBNguon
  2/ Trong cửa sổ VBA, vào Tools/Reference chọn
  - Microsoft DAO 3.6 Object Libary
  - Microsoft Ofice xx Library (xx tùy vào phiên bản Office trên máy của bạn)
  3/ Trong Modul của DBDich, viết hai hàm như sau
  3.1/ Hàm GetFile dùng để duyệt đến DBNguon
  3.2/ Hàm ImportTable dùng để Import table từ DBNguon sang DBDich
  4/ Tạo một form có tên là frmImportTable. Trên form bố trí 3 textbox gồm 1 textbox txtTenFile để chứa đường dẫn của DBNguon, 2 texbox txtTableNguon và txtTableDich để ghi tên Table cần Import và 2 Command Button cmdTimFile để mở Dialog chọn file DBNguon, cmdImport để hực hiện việc Import Table đã chọn
  Các hàm viết trong Modul
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Function ImportTable(strNguon As String, strTabNguon As String, strTabDich As String)
    Dim DBNguon As Database
    Dim DBDich As Database
    Dim rsNguon As Recordset
    Dim rsDich As Recordset
    Set DBNguon = DBEngine.Workspaces(0).OpenDatabase(strNguon)
    Set DBDich = CurrentDb
    Set rsNguon = DBNguon.OpenRecordset(strTabNguon)
    Set rsDich = DBDich.OpenRecordset(strTabDich)
    Dim i As Integer
    If rsNguon.RecordCount > 0 Then
        rsNguon.MoveFirst
        Do Until rsNguon.EOF
            rsDich.AddNew
            For i = 0 To rsNguon.Fields.Count - 1
               rsDich.Fields(i) = rsNguon.Fields(i)
            Next
            rsDich.Update
            rsNguon.MoveNext
        Loop
    End If
    rsNguon.Close: rsDich.Close: Set DBNguon = Nothing: Set DBDich = Nothing
End Function
Function GetFile(Tit As String, formatName As String, formatType As String)
    Dim dlgOpen As FileDialog
    Dim result
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .Title = Tit
        .Filters.Clear
        .Filters.Add formatName, formatType
        .AllowMultiSelect = False
        result = .Show
        If (result <> 0) Then
            GetFile = Trim(dlgOpen.SelectedItems.Item(1))
        End If
    End With
End Function 


  
  Các sự kiện Click của 2 Command Button trên form
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub cmdTim_Click()
    Me.txtTenFile = GetFile("C:\", "Select File", "*.mdb,*.mde")
End Sub

Private Sub cmdImport_Click()
    Call ImportTable(Me.txtTenFile, Me.txtTableNguon, txtTableDich)
End Sub 


  
  Chúc các bạn vui
  Thân mến

• RE: Import Table từ file Access này sang một file Access khác

  ndthanh29 > 21-07-14, 06:36 PM

  Nếu file DBNguon.mdb có password = "abc123" thì mình phải làm sao mới copy được hả bác? Sẵn Bác cho hỏi là mình muốn copy một số mẫu tin từ file tblnguon của DBNguon (có password) sang file tblDich của DBDich (có password) thì phải làm như thế nào? nhờ bác chỉ giùm! Thank bác!

• RE: Import Table từ file Access này sang một file Access khác

  k2d_nh0k > 23-03-21, 05:31 PM

  mình làm như hướng dẫn nhưng bị lổi như hình
  
  Do mình mới tìm hiểu còn mù mờ lắm nên chắc làm sai.
  mong bạn giúp đỡ.
  xin cám ơn.

• RE: Import Table từ file Access này sang một file Access khác

  k2d_nh0k > 23-03-21, 05:32 PM

  
• Bài trước Bài tiếp