Создаю DBF из Vb.
Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "dBase IV"
.Properties("Data Source") = "D:\data\"
.Open
End With
DoEvents
Set dbfCmd = New ADODB.Command
With dbfCmd
.ActiveConnection = Conn
.CommandTimeout = 10

.CommandText = "CREATE TABLE 130903_1 " & "(COD number ,CDPR numeric(12),NCARD numeric(10)," & _
"IDCODE char(10),PASP char(14),FIO char(50),IDPIL char(10),PASSPIL char(14)," & _
"FIOPIL char(50),INDEk numeric(6),CDUL numeric(5),HOUSE char(7),BLILD char(2),APT char(4)," & _
"LGCODE numeric(4),KAT numeric(4),YRARIN numeric(4),MONTHIN numeric(2)," & _
"YEAROUT numeric(4),MONTHOUT numeric(2),RAH char(25),RIZN numeric(6),TARIF numeric(10));"
' ,
.Execute
End With
Проблема в том что поля numeric оказываются длиной в 20 ед, а нужно точно как указано в скрипте.
Помогите пожалуйста.