Convert từ xml sang mdb (Access file)

Các ví dụ nho nhỏ và những thứ linh tinh không thuộc nhóm nào
Đăng trả lời
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Convert từ xml sang mdb (Access file)

Gửi bài by truongphu »

Tên chương trình: Convert từ xml sang mdb (Access file)
Ngôn ngữ lập trình: VB6
Tác giả: truongphu
Chức năng: Convert từ xml sang mdb (Access file)
Tôi vốn không để ý file XML, tình cờ đọc bài của NoBi cùng tên: Project kèm 415.43KB và Đã tải về 34079 lần! khiếp (Mục Mã nguồn\Net\Tiện ích)
Hơi nóng mặt, tôi vội lấy các function cũ ( access qua Excel và Excel qua Access), bôi bôi xóa xóa để tặng các bạn một sub chuyển XML sang Access với code gọn vô cùng
Tặng riêng NoBi, 2 function trước NoBi đọc rồi! :D

Mã: Chọn tất cả

 Private Sub XML2Access(XMLPath As String, AccessPath As String)If Dir(AccessPath) <> Empty Then GoTo 4If Dir(XMLPath) = Empty Then GoTo 5Set ObjCon = CreateObject("ADOX.Catalog")ObjCon.Create "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & AccessPathSet ObjCon = NothingConst acAppendData = 2Set objAccess = CreateObject("Access.Application")objAccess.OpenCurrentDatabase AccessPathobjAccess.ImportXML XMLPath, acAppendDataMsgBox "Ðã Xong"Exit Sub4: MsgBox "Ðã Có file " & AccessPathExit Sub5: MsgBox "Thiê'u file " & XMLPathEnd Sub Private Sub Command1_Click()XML2Access App.Path & "\nhom.xml", App.Path & "\NewDB.MDB"End Sub
Ghi chú: Nếu các bạn phát hiện thiếu sót, xin cứ viết bổ sung thêm
Sau đây là Project, kèm file Nhom.XML để test
Tập tin đính kèm
XML to Access.rar
(2.33 KiB) Đã tải về 941 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Hình đại diện của thành viên
NoBi
Quản trị
Quản trị
Bài viết: 970
Ngày tham gia: Thứ 3 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 57 times
Been thanked: 66 times
Tiếp xúc:

Re: Convert từ xml sang mdb (Access file)

Gửi bài by NoBi »

Cám ơn bác truongphu nhiều. Bác kiên nhẫn học hỏi, nghiên cứu để giờ giỏi nhất forum rồi đấy. :)
Thật ra cái này là dựa vào thư viện có sẳn của Access, không khó nhưng hầu như ít người để ý tới. Cái này chỉ có khuyết điểm là yêu cầu máy phải có cài Access, ngoài ra thì không còn biết ý kiến gì hơn.
:>
ngocvinh
Guru
Guru
Bài viết: 703
Ngày tham gia: Thứ 4 23/04/2008 8:14 am
Đến từ: Biên Hòa Đồng Nai
Been thanked: 111 times

Re: Convert từ xml sang mdb (Access file)

Gửi bài by ngocvinh »

  1.  
  2. Mã Chọn tất cảPublic Sub XML2Access(ByVal XMLPath As String, ByVal AccessPath As String)
  3.         Try
  4.             Dim ObjCon = CreateObject("ADOX.Catalog")
  5.             ObjCon.Create("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & AccessPath)
  6.             ObjCon = Nothing
  7.             Const acAppendData = 2
  8.             Dim objAccess = CreateObject("Access.Application")
  9.             objAccess.OpenCurrentDatabase(AccessPath)
  10.             objAccess.ImportXML(XMLPath, acAppendData)
  11.             MsgBox("Data convert is complete")
  12.             Exit Sub
  13.         Catch ex As Exception
  14.             MsgBox(ex.Message)
  15.         End Try
  16.  
  17.     End Sub
  18.  

Code này không những chạy trong vb6 mà chạy luôn trong vb.net 2005 .Edit code lại còn ngắn hơn bác Trương Phú 1 tí
.NET
Đăng trả lời

Quay về