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

Xử lý xung đột reference

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] Xử lý xung đột reference
• Xử lý xung đột reference

• Xử lý xung đột reference

  tranthanhan1962 > 06-07-23, 12:23 PM

  Có bạn nào gặp trường hợp như tôi: Lúc trước tôi toàn làm việc với microsoft dao 3.6 object library nên thiết đặt dao 3.6 chay trên access 2019 64 bit mấy phần mềm viết trên mbd chuyển sang accbd chạy cũng Ok Vừa rồi tôi thêm microsoft office 16 access database engine object library trong reference thì mầy thằng chạy DAO bị lỗi do xung đột. Tôi bỏ check trong reference nó cũng vẫn còn bị lỗi. mở database mới thì thấy nó check sẳn  microsoft office 16 access database engine object library trong reference. bỏ check nó check microsoft dao 3.6 object library thì nó vẫn Ok, nhưng viết code DAO vẫn báo lỗi. Có cách này xử lý cho  microsoft office 16 access database engine object library không default trong reference không hoặc làm sao cho 2 thàng này khong xung đột nhau không. Tôi thử gỡ office rồ cài lại nhưng vẫn không được. Hay là nó buột phải cài lại win. Bạn nào có kinh nghiệm vụ này hỗ trợ dùm.

• RE: Xử lý xung đột reference

  ongke0711 > 06-07-23, 01:05 PM

  (06-07-23, 12:23 PM)tranthanhan1962 Đã viết: Có bạn nào gặp trường hợp như tôi: Lúc trước tôi toàn làm việc với microsoft dao 3.6 object library nên thiết đặt dao 3.6 chay trên access 2019 64 bit mấy phần mềm viết trên mbd chuyển sang accbd chạy cũng Ok Vừa rồi tôi thêm microsoft office 16 access database engine object library trong reference thì mầy thằng chạy DAO bị lỗi do xung đột. Tôi bỏ check trong reference nó cũng vẫn còn bị lỗi. mở database mới thì thấy nó check sẳn  microsoft office 16 access database engine object library trong reference. bỏ check nó check microsoft dao 3.6 object library thì nó vẫn Ok, nhưng viết code DAO vẫn báo lỗi. Có cách này xử lý cho  microsoft office 16 access database engine object library không default trong reference không hoặc làm sao cho 2 thàng này khong xung đột nhau không. Tôi thử gỡ office rồ cài lại nhưng vẫn không được. Hay là nó buột phải cài lại win. Bạn nào có kinh nghiệm vụ này hỗ trợ dùm.

  
  Không cần cài lại Windows làm gì cho mất công anh. Chủ yếu là lỗi liên quan đến thư viện DAO.dll của các phiên bản Access trước 2007.
  Từ Access 2007 trở lên Access mặc định dùng bộ engine ACEDAO.DLL, không còn dùng DAO 3.6 nữa. Nó chính là "Microsoft Office 16 Access Database Engine Object Library". Cũng có trường hợp cái ACEDAO.DLL này bị lỗi.
  - Anh click bỏ thư viện DAO 3.6 đi. Chạy Compact & Repair xem.
  - Nếu vẫn lỗi thì cài cái: Microsoft Access Database Engine 2010 Redistributable xem thử nó có sửa lỗi không. 
  - Nếu vẫn còn lỗi thì download luôn cái thư viện ACEDAO.DLL mới về Register lại vào hệ thống. Nó nằm ở đây: C:\Program Files\Common Files\Microsoft Shared\OFFICE16\ACEDAO.DLL.

• RE: Xử lý xung đột reference

  tranthanhan1962 > 06-07-23, 01:29 PM

  Nếu bỏ DAO 3.6 mấy cái code cũ chạy được không hay phải sửa code lại

• RE: Xử lý xung đột reference

  ongke0711 > 06-07-23, 01:46 PM

  (06-07-23, 01:29 PM)tranthanhan1962 Đã viết: Nếu bỏ DAO 3.6 mấy cái code cũ chạy được không hay phải sửa code lại

  
  Tốt nhất là nên sửa lại luôn để tương thích các bản Office sau này và hỗ trợ tốc độ tốt hơn.
  Em nghĩ không sửa nhiều code đâu anh. Vì ACEDAO nó cũng kế thừa từ DAO.

• RE: Xử lý xung đột reference

  tranthanhan1962 > 06-07-23, 03:01 PM

  Tôi có đoạn mã DAO:
  Frontend D:/HETHONG.accdb , backend D:/DATA.accbd.
  

  Mã:

  Sub NXT()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE NHAPXUATTONHANGHOA.* FROM NHAPXUATTONHANGHOA;"
    DoCmd.RunSQL "INSERT INTO NHAPXUATTONHANGHOA SELECT NhapXuatTon04.* FROM NhapXuatTon04;"
    DoCmd.SetWarnings True
    Dim dbs As Database
    Dim rsTable As Recordset
    Dim SLNhap, GTNhap, SLXuat, GTXuat, SLTonDau, GTTonDau, SLTonCuoi, GTTonCuoi, BQGQ As Double
    Dim HANGHOA As String
    Set dbs = CurrentDb
    Set rsTable = dbs.OpenRecordset("NHAPXUATTONHANGHOA", DB_OPEN_DYNASET)
    SLTonCuoi = 0
    GTTonCuoi = 0
    HANGHOA = ""
    rsTable.MoveFirst
        Do While Not rsTable.EOF
            rsTable.Edit
            If rsTable![TENHANG] = HANGHOA Then
                GTTonDau = GTTonCuoi
                SLTonDau = SLTonCuoi
                rsTable![GTD] = GTTonDau
                rsTable![SLD] = SLTonDau
            Else
                GTTonDau = 0
                SLTonDau = 0
                rsTable![GTD] = GTTonDau
                rsTable![SLD] = SLTonDau
            End If
                GTNhap = rsTable![GTN]
                SLNhap = rsTable![SLN]
                SLXuat = rsTable![SLX]
            If GTTonDau + SLNhap = 0 Then
                BQGQ = 0
                rsTable![BQGQ] = BQGQ
            Else
                BQGQ = (GTTonDau + GTNhap) / (SLTonDau + SLNhap)
                rsTable![BQGQ] = BQGQ
            End If
                GTXuat = rsTable![BQGQ] * rsTable![SLX]
                rsTable![GTX] = GTXuat
                GTTonCuoi = GTTonDau + GTNhap - GTXuat
                SLTonCuoi = SLTonDau + SLNhap - SLXuat
                rsTable![GTT] = GTTonCuoi
                rsTable![SLT] = SLTonCuoi
            HANGHOA = rsTable![TENHANG]
        rsTable.Update
            rsTable.MoveNext
        Loop
End Sub

  Đây là Phiên bản tôi chuyển sang ADO:
  

  Mã:

  Sub NXT()
Dim conn As Object
Dim cmd As Object
Dim rsTable As Object
Dim SLNhap, GTNhap, SLXuat, GTXuat, SLTonDau, GTTonDau, SLTonCuoi, GTTonCuoi, BQGQ As Double
Dim HANGHOA As String
'Khởi tạo kết nối với CSDL
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= HETHONG.accbd.accdb;"

'Khởi tạo đối tượng Command
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn

On Error Resume Next

'Xóa dữ liệu trong bảng NHAPXUATTONHANGHOA
cmd.CommandText = "DELETE FROM NHAPXUATTONHANGHOA;"
cmd.Execute

'Chèn dữ liệu từ bảng NhapXuatTon04 vào NHAPXUATTONHANGHOA
cmd.CommandText = "INSERT INTO NHAPXUATTONHANGHOA SELECT * FROM NhapXuatTon04;"
cmd.Execute

On Error GoTo 0

'Mở Recordset
Set rsTable = CreateObject("ADODB.Recordset")
rsTable.Open "NHAPXUATTONHANGHOA", conn, 2, 2

SLTonCuoi = 0
GTTonCuoi = 0
HANGHOA = ""

rsTable.MoveFirst

Do While Not rsTable.EOF
    rsTable.Edit
   
    If rsTable.Fields("TENHANG").Value = HANGHOA Then
        GTTonDau = GTTonCuoi
        SLTonDau = SLTonCuoi
        rsTable.Fields("GTD").Value = GTTonDau
        rsTable.Fields("SLD").Value = SLTonDau
    Else
        GTTonDau = 0
        SLTonDau = 0
        rsTable.Fields("GTD").Value = GTTonDau
        rsTable.Fields("SLD").Value = SLTonDau
    End If
   
    GTNhap = rsTable.Fields("GTN").Value
    SLNhap = rsTable.Fields("SLN").Value
    SLXuat = rsTable.Fields("SLX").Value
   
    If GTTonDau + SLNhap = 0 Then
        BQGQ = 0
        rsTable.Fields("BQGQ").Value = BQGQ
    Else
        BQGQ = (GTTonDau + GTNhap) / (SLTonDau + SLNhap)
        rsTable.Fields("BQGQ").Value = BQGQ
    End If
   
    GTXuat = rsTable.Fields("BQGQ").Value * rsTable.Fields("SLX").Value
    rsTable.Fields("GTX").Value = GTXuat
   
    GTTonCuoi = GTTonDau + GTNhap - GTXuat
    SLTonCuoi = SLTonDau + SLNhap - SLXuat
   
    rsTable.Fields("GTT").Value = GTTonCuoi
    rsTable.Fields("SLT").Value = SLTonCuoi
   
    HANGHOA = rsTable.Fields("TENHANG").Value
   
    rsTable.Update
    rsTable.MoveNext
Loop

'Đóng Recordset
rsTable.Close

'Đóng kết nối
conn.Close

'Giải phóng bộ nhớ
Set rsTable = Nothing
Set cmd = Nothing
Set conn = Nothing
End Sub

  Khi chạy nó báo lỗi tại dòng:
  conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:/HETHONG.accdb;"
  Không tìm thấy tập tin. Tôi thay thế
  conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:/DATA.accdb;"
  Thực tế 2 tập tin này vẫn đang nằm trên ổ D
  Nó vẫn báo lỗi như thế ongke0711, nhín chút thời gian kiêm tra dùm xem tôi sai cú pháp ở chổ nào.
  Trước đó tôi mở 1 file accdb trống tạo 1 module dán mã ADO vào rồi Debug thì nó không báo lỗi nhưng khi đưa trở lại code dể chạy nó báo lỗi không tìm thấy file. ongke0711 nhín chút thời gian xem nó bị lỗi gì. Cám ơn bạn nhiều

• RE: Xử lý xung đột reference

  ongke0711 > 06-07-23, 03:19 PM

  Cái code cũ DAO vẫn chạy được đó anh, chỉ là khai báo tường minh nó thôi. Anh khai báo "As Database" không Access nó sẽ nghĩ là dùng thư viện ADODB đó. DAO chạy nhanh hơn ADO nhiều. Em chỉ dùng ADO khi back end là SQL Server.
  
  

  Mã PHP:

  Dim dbs As DAO.Database
Dim rsTable As DAO.Recordset 


  
  Đoạn này nữa: DbOpenDynaset. Các hằng số kiểu cũ phải đổi lại.
  
  

  Mã PHP:

  Set rsTable = dbs.OpenRecordset("NHAPXUATTONHANGHOA", DbOpenDynaset) 


  
  Còn về code ADODB thì em thấy chuỗi kết nối là đúng rồi đó, có thể do 2 cái database của anh. Anh tạo Database mới hoàn toàn từ Access 2016 rồi import Table từ Data.accdb qua và chạy lại thử xem.
• Bài trước Bài tiếp