Cám ơn Phúc nhiều lắm. Bên a dùng ct viết trên fox nhưng mấy bước cập nhật mã HH ... nó phải qua nhiều bước nhiêu khê quá. Từ Fox thì anh cũng học hỏi từ em lấy data từ Ex rồi.
Tạm thời bỏ dòng đó.
Dim cnEx As ADODB.Connection
Dim recEx As ADODB.Recordset
Dim cnFox As New ADODB.Connection
Dim rsFox As New ADODB.Recordset
Dim tb As String, myPath As String
Dim i As Long
Sub ConvertExToFox()
'Screen.MousePointer = vbHourglass
'Screen.MousePointer = 11
Set cnEx = New ADODB.Connection
Set cnFox = New ADODB.Connection
tb = ThisWorkbook.FullName
myPath = ThisWorkbook.Path
cnEx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tb & ";Persist Security Info=False; Extended Properties=Excel 8.0;"
cnEx.Open
Set recEx = New ADODB.Recordset
'recEx.Open "select * from [Data$] where matkco like 'GTGT01-3LL'and KHHD like 'DN/00B'", cnEx, adOpenKeyset, adLockOptimistic
recEx.Open "select * from [Data$] where matkco like '1111'", cnEx, adOpenKeyset, adLockOptimistic
cnFox.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & myPath & "\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
cnFox.Open
Set rsFox = New ADODB.Recordset
rsFox.CursorLocation = adUseClient
'rsFox.Open "select * from chtuct where idsector = ''", cnFox, adOpenKeyset, adLockOptimistic
rsFox.Open "select * from chtuct ", cnFox, adOpenKeyset, adLockOptimistic
While Not recEx.EOF
'appen
rsFox.AddNew
For i = 0 To recEx.Fields.Count - 1
rsFox(recEx(i).Name) = recEx(i)
Next i
rsFox.Update
recEx.MoveNext
Wend
recEx.Close
Set recEx = Nothing
rsFox.Close
Set rsFox = Nothing
cnEx.Close
Set cnEx = Nothing
cnFox.Close
Set cnFox = Nothing
'Screen.MousePointer = vbDefault
'Screen.MousePointer = 0
End Sub
Nhờ các bạn hướng dẫn tại sao.
Dim cnEx As ADODB.Connection
Dim recEx As ADODB.Recordset
Dim cnFox As New ADODB.Connection
Dim recFox As New ADODB.Recordset
Dim wbName As String, foxName As String, myPath As String
Dim iC As Long, iR As Long, endR As Long, endC As Long
Dim ArrData()
Sub ConvertExToFoxArr()
'Khai bao ten file
wbName = ThisWorkbook.FullName
myPath = ThisWorkbook.Path
With Sheets("Data")
endR = .Cells(65000, 1).End(xlUp).Row
endC = .Cells(1, 256).End(xlToLeft).Column
ArrData = .Range("A1").Resize(endR, endC).Value
' .Range("A1").Resize(endR, endC).Select
End With
KetNoiFox
cnFox.Open
'Khai Bao ten file DBF
foxName = "chtuct.dbf"
'foxName = myPath & "\" & foxName
'xoa toan bo dbf con appen thi bo dong Execute sau
cnFox.Execute "delete from " & foxName
recFox.Open "select * from " & foxName & Chr(10), cnFox, adOpenKeyset, adLockOptimistic
For iR = 2 To UBound(ArrData, 1)
recFox.AddNew
For iC = 1 To UBound(ArrData, 2)
recFox(ArrData(1, iC)) = ArrData(iR, iC)
Next iC
recFox.Update
Next iR
BoKetNoiFox
Erase ArrData
End Sub
Sub KetNoiFox()
Set cnFox = New ADODB.Connection
cnFox.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & myPath & "\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Set recFox = New ADODB.Recordset
recFox.CursorLocation = adUseClient
End Sub
Sub BoKetNoiFox()
recFox.Close
Set recFox = Nothing
cnFox.Close
Set cnFox = Nothing
End SubĐôi với file .dbf, khi dùng lệnh trên thì xóa các record nhưng còn một vấn đề là, các record trên chỉ mới đánh dấu thôi, chưa xóa hẳn hoàn toàn, phải vào fox mở file .dbf và dùng lệnh pack mới xóa hoàn toàn.
Nội dung topic này là đưa dữ liệu từ ex vào fox mà. Có những dbf mà trường maHH là key nên không thể trùng mã được. Thay vì thủ công trước khi xử lý mình mở dbf và dùng lệnh Zap, nhưng như vậy chưa pro nên muốn viết dòng lệnh từ VBA luôn. Những trường hợp xảy ra là đưa lần 1 sai nên mới update lại mà mahh cũ chưa bị xóa hẳn nên lệnh recordupdate kg thực hiện.
Các bạn giúp mình phần pack hay zap file dbf bằng VB với.
Convert cả sh vào data còn được vậy convert chỉ 1 field sẽ dễ hơn. Mình sẽ chọn phần cần convert hay là mình làm thêm 1 sh chỉ có tên lấy từ sh trước và convert sh đó.
