Xin giúp đỡ lỗi ghi đè khi nhiều máy nhập cùng lúc.

Liên hệ QC

nghiapv084

Thành viên mới
Tham gia
24/7/14
Bài viết
46
Được thích
2
Nhờ Các A/c giúp dùm , vì khi em insert từ nhiều máy cùng 1 thời điểm thì dữ liệu sau nó sẽ ghi đè lên dữ liệu trước , trong Data em có set ID = autonumber . em xử dụng excell sang acess. rất mong nhận được hổ trợ từ các Anh chị
----
Sub Insertdatatketoan()
'Range("A6").NumberFormat = "MM/DD/YYYY"

Dim cnn, rst As Object, lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=\\192.168.1.5\dieuvan\Data_dieuvan\DATA\DATA_Model.accdb"
.Open
End With


' Range("C6:C1000").NumberFormat = "dd/mm/yyyy"
lsSQL = " INSERT INTO tb_dataketoan SELECT NgayNhanHDNCC , SoHDNCC ,Invoice_Date , Total_Amount , VAT , Total_Amount_VAT , To_Location_Code , Total_Carton , Supplier_Code , Name_Vendor , TenCOOP FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes].[Nhap_KETOAN$A5:T11000] where SoHDNCC IS NOT NULL;"


rst.Open lsSQL, cnn, 1, 3

Sheets("Nhap_KETOAN").[B6:I1000].ClearContents


Set rst = Nothing: cnn.Close: Set cnn = Nothing

End Sub
 
Web KT
Back
Top Bottom