Доброе время суток
В принципе, можно и "движком" Access воспользоваться. ADO Ext конечно удобнее, но можно же и обычным DDL пользоваться
Код |
---|
Public Sub CreateDBF()
Dim pConn As Object, pRSet As Object
Set pConn = CreateObject("ADODB.Connection")
pConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Mode=16;Data Source=d:\Path;Extended Properties=dBASE IV;User ID=Admin;"
pConn.Execute "Create Table my_dbf (IdxField Integer, TextField Char (64), DateField Date, NumField Numeric (16,3))"
'так удобнее манипулировать записями
Set pRSet = CreateObject("ADODB.Recordset")
pRSet.Open "Select * From my_dbf", pConn, 3, 2
pRSet.AddNew
pRSet("IdxField").Value = 123: pRSet("TextField").Value = "через Recorset"
pRSet("DateField").Value = Now: pRSet("NumField").Value = 1000# * Math.Sin(1.1)
pRSet.Update
'но можно и просто одной строкой
pConn.Execute "Insert Into my_dbf (IdxField,TextField,NumField) Values (125,'обычный Insert',3567.12)"
pRSet.Close: pConn.Close
End Sub
|
Успехов.