| Вопрос: Помогите новичку с DBF | Добавлено: 05.07.02 11:58 |
Автор вопроса:  sergey skripkin
|
|
Господа хорошие! Ругается что объект не поддерживает такого. |
| Ответы | Всего ответов: 0 |
Страница:
Страница:
Господа хорошие! Ругается что объект не поддерживает такого.
Страница:
Вопрос: Помогите новичку с DBF
Добавлено: 05.07.02 11:58
Автор вопроса:
sergey skripkin
Помогите новичку разобраться с вопросом создания Dbf файлами.
В процессе разбирательства с VisData получилось вот такое:
Sub Create_base()
Dim Ws As DAO.Workspace
Dim TDF As DAO.TableDef
Dim Db As DAO.Database
Dim CurrDb As Database
Dim CurrFld As Field
Dim fld As DAO.Field
Dim StrConn As String
sPath = App.Path
StrConn = "ODBC;DSN=FoxPro files;DBQ=" + sPath
Set Ws = DBEngine.CreateWorkspace("MyWs", "admin", "", dbUseODBC)
Workspaces.Append Ws
sPath = sPath + "\"
Set Db = Ws.OpenDatabase(sPath, False, 0, StrConn)
Set CurrDb = Db
Set TDF = CurrDb.CreateTableDef()<< ВОТ ТУТ ПРОИСХОДИТ 
РУГАНЬ
TDF.Name = "v_000"
Set fld = TDF.CreateField()
With fld
.Name = "datev"
.Type = "D"
End With
TDF.Fields.Append fld
Set CurrFld = TDF.Fields("datev")
Db.TableDefs.Append TDF
End Sub
Помогите разобраться.
Заранее спасибо.
Ответы
Всего ответов: 0