Đánh giá chủ đề:
  • 1 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] [Hàm] Lấy dữ liệu giữa 2 file Access có cùng cấu trúc table
#21
Tiên Post Code lên được rồi, Dân chỉ cài Access 2003.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#22
(07-10-16, 07:43 PM)maidinhdan Đã viết: Tiên Post Code lên được rồi, Dân chỉ cài Access 2003.

Đợi Tiên Post lên lâu quá, em gởi file đã chuyển về 2003. 
Anh Dân xem thử
https://drive.google.com/file/d/0Bz23-2t...sp=sharing
Chữ ký của huuduy.duy Xin chào, mình là huuduy.duy, Tham gia http://thuthuataccess.com/forum từ ngày 24-06 -13.
ღღღღღTài sản của huuduy.duy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Minh Tiên
#23
(05-10-16, 11:11 AM)Minh Tiên Đã viết: Chào Dân !
Tiên đang Import dữ liệu bằng cách dùng SQL ( theo bài viết của pausteigel thì phải) như sau:

1. Tạo link table từ CSQL đích vào CSDL hiện tại - Nguồn.
2. Dùng code CurrentDb.Execute "INSERT INTO tableDich(Field1, Field2,...) SELECT  Field1, Field2, ... FROM tableNguon;"
3. Xóa link table.

Tiên đã test thử với table hơn 200.000 record tốc độ chỉ 10 giây (Theo code của Dân mất 26 giây ).
'- ưu điểm của SQL là:
   + Nhanh;
   + Cấu trúc table nguồn và đích ko cần giống nhau ( Chỉ cần các Field có cùng kiểu dữ liệu ).
- Nhượt:
   + Code hơi dài (Code Link, Xóa Link, SQL)

Dân cùng các Pro test lại thử có đúng ko nhé !
Thân./.

(07-10-16, 10:49 PM)huuduy.duy Đã viết:
(07-10-16, 07:43 PM)maidinhdan Đã viết: Tiên Post Code lên được rồi, Dân chỉ cài Access 2003.

Đợi Tiên Post lên lâu quá, em gởi file đã chuyển về 2003. 
Anh Dân xem thử
https://drive.google.com/file/d/0Bz23-2t...sp=sharing

Qua kiểm chứng thực tế, tôi thấy đoạn Code của Minh tiên là hay nhất.

Xin Post code của Tiên để anh em tham khảo
1. Code Link table
Mã PHP:
Function CreateLinkTable(strPathFile As StringstrPass As StringstrTable As StringstrBaseTable As String) As Boolean
    On Error 
GoTo CreateAttachedError
    
    Dim tdf 
As TableDef
    Dim strConnect 
As String
    Dim fRetval 
As Boolean
    Dim myDB 
As Database
    
' Kiem tra xem bang co ton tai khong?
    If TableExists(strTable) Then
        '
MsgBox "Co table dang Link"
        CurrentDb.TableDefs.Delete strTable
    End 
If
    Set myDB CurrentDb
    Set tdf 
myDB.CreateTableDef(strTable)
    
    With tdf
        
.Connect "Ms Access;UID=Admin;PWD=" strPass ";DATABASE=" strPathFile
        
'.Connect = ";PWD=" & PwdString & ";DATABASE=" & strPath
        .SourceTableName = strBaseTable
    End With
    myDB.TableDefs.Append tdf
    fRetval = True
    
CreateAttachedExit:
    CreateLinkTable = fRetval
    Exit Function
    
CreateAttachedError:
    If Err = 3110 Then
        Resume CreateAttachedExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function

Function TableExists(tblName As String) As Boolean
    On Error GoTo ErrHandler
    Dim tdf As TableDef
    Set tdf = CurrentDb.TableDefs(tblName)
    Set tdf = Nothing
    TableExists = True
ErrHandler:
End Function 

2. Nap du lieu vao Table va Xoa link table
Mã PHP:
        CreateLinkTable(strPathstrPass"tblB1_Link""tblB1")
        sql "INSERT INTO tblB1 SELECT * FROM tblB1_Link;"
        CurrentDb.Execute sql
        
If TableExists("tblB1_Link"Then CurrentDb.TableDefs.Delete "tblB1_Link" 


Đoạn code này là rất ngắn và ok rồi.

Gợi ý : Nên viết thêm code So sánh dữ liệu rồi hãy nạp vào Data.

Nhờ ý tưởng này, mình viết cho mình thêm 01 code khác rất hay. Vài hôm nửa Post Demo lên cho anh em tham khảo

Cảm ơn bác Tiên.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy , Minh Tiên


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  copy dữ liệu excel vào access có kí tự xuống dòng babyrock2009 2 71 01-12-16, 11:16 AM
Bài mới nhất: babyrock2009
  [Hỏi] Chữ IN HOA trong table diepvien1989 5 304 08-09-16, 10:16 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] So sánh 2 Table Lấy ra dữ liệu trùng nhau sang 1 table có sẳn khác thdanh 21 1,676 19-07-16, 04:21 PM
Bài mới nhất: maidinhdan
  [Help] ràng buộc dữ liệu giữa 2 field trong 2 bảng khác nhau hoangtiep 5 277 08-07-16, 05:07 PM
Bài mới nhất: maidinhdan
  Chuyển dữ liệu từ bảng A qua bảng B có chọn lọc bdbqn2007 5 372 08-06-16, 11:36 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ