ник: KrukVN
нужно из текстового файла перенести данные в dbf
поля разделены символом |
В видеофокспро пишу так:
create table mytable(f1 c(200), f2 c(200) и т.д. ...)
use mytable
APPEND FROM 'e:\Valera\ARMs_ForSAP\Оборотка\Convert.txt' DELIMITED WITH CHARACTER |
|
проходит нормально. формируется dbf и заполняется данными
при попытке запуска через ado и Microsoft OLE DB Provider for Visual FoxPro
примерно так:
Sub werfgqwefwe()
Dim con As ADODB.Connection
Dim cmd As ADODB.Connection
Set con = New ADODB.Connection
Dim LocalPath As String
LocalPath = CurrentProject.Path
con.Open "Provider=Microsoft OLE DB Provider for Visual FoxPro;Data Source=" & LocalPath
Dim i As Integer
Dim strFlds As String
For i = 1 To 20
strFlds = strFlds & "," & "f" & i & " c(200)"
Next
strFlds = "create table mytable(" & Mid(strFlds, 2) & ")"
con.Execute strFlds
con.Execute "EXECSCRIPT(" & _
"[USE mytable EXCLUSIVE] + chr(13) + " & _
"[APPEND FROM 'e:\Valera\ARMs_ForSAP\Оборотка\Convert.txt' DELIMITED WITH CHARACTER |])"
'con.Execute "use mytable"
'con.Execute "APPEND FROM 'e:\Valera\ARMs_ForSAP\Оборотка\Convert.txt' DELIMITED WITH CHARACTER |"
'con.Execute "CLOSE ALL"
con.Close
Set con = Nothing
End Sub
|
это номер не проходит :/
как быть?
(тектовый файл прилагаю)