Đánh giá chủ đề:
  • 4 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo file Access mới và xuất dữ liệu ra đó
#1
Đoạn code sau cho phép bạn tạo 1 file MDB mới trong cùng 1 thư mục với chương trình



Mã:
Sub CreateDatabaseX(DBname as String)

       Dim wrkDefault As Workspace
       Dim Bomtemp As Database
       'Dim prpLoop As Property

       ' Get default Workspace.
       Set wrkDefault = DBEngine.Workspaces(0)

       ' Make sure there isn't already a file with the name of
       ' the new database.
       If Dir(CurrentProject.Path & "\" & "DBName") <> "" Then Kill CurrentProject.Path & "\"& DBName  

    ' Create a new encrypted database with the specified
       ' collating order.
       Set Bomtemp = wrkDefault.CreateDatabase(CurrentProject.Path & "\" & "DBname", dbLangGeneral, dbEncrypt)

       Bomtemp.Close

    End Sub
Đoạn Code sau cho phép bạn Export 1 table ra 1 file MDB khác cùng mục với chương trình

Mã:
Sub ExportTable(T As String, DBname)
    On Error GoTo err
    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\" & "DBname", acTable, T, T
    Exit Sub
    err:
    If err.Number = 3024 Then

    CreateDatabaseX DBname
    ExportTable T
    End If
    End Sub


Ứng dụng: bạn có thể có nhu cầu mỗi tháng tạo 1 file chứa dữ liệu riêng 1 cách tự động!...
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , autokiss , hoanglonglangtu , thuc1605
#2
Noname cho mình hỏi đoạn code trên viết ở Module hay ở đâu vậy bạn? Mình cũng có phần mềm họ xuất dữ liệu ra file khác và file đấy tự động được đặt Password (123 chẳng hạn) luôn. Nhưng vì phần mềm đó nhiều thứ quá nên không tìm ra được họ viết ở đâu cả.
Chữ ký của autokiss Xin chào, mình là autokiss, Tham gia http://thuthuataccess.com/forum từ ngày 19-01 -12.
Reply
Những người đã cảm ơn
#3
Cuối cùng mình cũng tìm ra, chỉ là trước đây thiếu bài mẫu thôi. Thanks
Chữ ký của autokiss Xin chào, mình là autokiss, Tham gia http://thuthuataccess.com/forum từ ngày 19-01 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cập nhật dữ liệu Access từ dữ liệu nguồn trong Excel subasatran 1 93 11-10-18, 02:53 PM
Bài mới nhất: ongke0711
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 72 10,635 02-10-18, 10:49 AM
Bài mới nhất: hoabattu3387
  [Hỏi] Import nhiều file Excel vào Table Access vuthaiha90 32 2,272 27-08-18, 11:06 AM
Bài mới nhất: vuthaiha90
  Demo Access định dạng adp kết nối với SQL Server dangh5 5 387 08-08-18, 01:35 AM
Bài mới nhất: dangh5
  [Hỏi] Nhiều phần mềm Access dùng chung CSDL ?? vkaccess 10 1,160 05-08-18, 11:20 AM
Bài mới nhất: zebnguyen

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line