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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Kỹ thuật dùng DAO để nhập liệu và xuất dũ liệu
  

  Viết bởi: Xuân Thanh 03-04-13, 04:19 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (10)

• Hôm nay hướng dẫn câc bạn kỹ thuật dung DAO để nhập liệu từ một Database này vào một Database khác. Các bạn download file đính kèm về nghiên cứu. Chú ý cách chọn các DDL đi kèm theo(Trong cửa sổ VBA, vào menu Tools/References...). Tặng kèm cách xuất dũ liệu từ Database ra file Excel
  File chưa dũ liệu là file Data.mdb, file dùng để cập nhật là file NhapLieu.mdb, file Danh sach.xls là file Excel để xuất dữ liệu
  Chủ yếu nghiên cứu cái này
  1/ Cập nhật dữ liệu từ Database Nhaplieu vào Database Data
  
  Mã PHP:

  Private Sub cmdCapNhat_Click()
    If Me.txtMaHang = "" Or Me.txtTenHang = "" Or Me.txtDVT = "" Then
        MsgBox "Phai ghi du du lieu", , "Thong Bao"
        Exit Sub
    End If
    Dim Data As Database
    Dim rs As Recordset
    Set Data = DBEngine.Workspaces(0).OpenDatabase(CurrentProject.Path & "\Data.mdb")
    Set rs = Data.OpenRecordset("tblHangHoa", dbOpenTable)
    rs.AddNew
    rs.Fields(0) = Me.txtMaHang
    rs.Fields(1) = Me.txtTenHang
    rs.Fields(2) = Me.txtDVT
    rs.Update
    rs.Close
    Set Data = Nothing
    MsgBox "Da cap nhat xong", , "Thong Bao"
    Me.txtMaHang = "": Me.txtTenHang = ""
    Me.txtDVT = "": Me.txtMaHang.SetFocus
End Sub 

  
  2/ Xuất ra Excel
  
  Mã PHP:

  Private Sub XuatEx_Click()
    Dim Ex As Excel.Application
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim rs As Recordset
    Set Ex = New Excel.Application
    Set Wb = Ex.Workbooks.Open(CurrentProject.Path & "\Danh sach.xls")
    Set Ws = Wb.Worksheets("Danh Sach")
    Set rs = CurrentDb.OpenRecordset("tblHangHoa", dbOpenTable)
    
    Dim j As Integer
    j = Ws.Range("A65000").End(xlUp).Row
    Ws.Range("A" & j + 1).CopyFromRecordset rs
'hoac lam nhu sau
    'Dim i As Integer, j As Integer
    'If rs.RecordCount > 0 Then
        'rs.MoveFirst
        'Do Until rs.EOF
            'j = Ws.Range("A65000").End(xlUp).Row
            'Ws.Range("A" & j + 1) = rs.Fields(0)
            'Ws.Range("B" & j + 1) = rs.Fields(1)
            'Ws.Range("C" & j + 1) = rs.Fields(2)
            'rs.MoveNext
        'Loop
    'End If

    
    rs.Close: Ex.Visible = True
    Set Ex = Nothing
End Sub 

  
  Tư ví dụ này, các bạn có thể chế biến ra nhiều cách khác nhau tùy theo nhu cầu sủ dụng
  Chúc các bạn vui
  Thân mến
  
  
  File đính kèm

  
    Dung DAO nhap lieu.zip (Kích cỡ: 30.6 KB / Tải về: 205)
  
  


•   Chỉnh lại cho mình mấy cái liên kết
  

  Viết bởi: namvipprodh1 02-04-13, 11:15 PM Chuyên mục: Table - Bài trả lời (2)

• http://www.mediafire.com/?1l341uhlajdtm11
  


•   chèn ảnh vào nút.
  

  Viết bởi: nguyensen1992 02-04-13, 01:04 AM Chuyên mục: Forms - Bài trả lời (3)

• mình đang làm đồ án quản lý về thư viện. ai chỉ giúp mình cách chèn ảnh vào các nút , hoặc ảnh nằm phía trên các nút cũng được . mà khi mình coppy từ máy này sang máy khác không bị báo lỗi .
  


•   minh muốn làm table ntn có được ko
  

  Viết bởi: namvipprodh1 01-04-13, 06:24 PM Chuyên mục: Table - Bài trả lời (7)

• mình đang làm csdl có bảng toa thuốc...nhưng ko biết làm sao để trong 1 mã đơn thuốc có thể nhập nhiều loại thuốc vào đó..tương tự như thế nàyko biết acces có làm được (hay tương tự như thế này đưuọc ko))
  
  


•   Xin chỉ giùm cách chống import table
  

  Viết bởi: thanhnd 30-03-13, 05:27 PM Chuyên mục: Table - Bài trả lời (4)

• Em có một cơ sở dữ liệu muốn chia sẻ cho nhiều người dùng nhưng khổ nỗi lại sợ bị copy mất dữ liệu em chứa ở table. Cái này rất quan trọng vì nếu ko chống import được thì chắc chắn sẽ ko chia sẻ cho bất kỳ ai dùng. Bác nào biết cách thì chỉ cho em với. Vô cùng hậu tạ.
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,341

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 138

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 156

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,059

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 176

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 647

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 180

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 617

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,608

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 281




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ