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
----
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
