Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Редактирование структуры dbf-файла  [new]
Lamazoid
Member

Откуда: Оттуда
Сообщений: 433
Может кто подскажет - какой либо код (идею) как можно осуществить редактирование структуры dbf-файла конкретно надо изменить длину и тип поля ? - есть ли стандарные средства.
31 янв 07, 19:48    [3722046]     Ответить | Цитировать Сообщить модератору
 Re: Редактирование структуры dbf-файла  [new]
Karfaqen
Member

Откуда:
Сообщений: 7010
Помнится, была такая утилитка DBU.EXE
Не знаю, чем она закончила, но с форматом dBase IV работала точно.
31 янв 07, 19:57    [3722067]     Ответить | Цитировать Сообщить модератору
 Re: Редактирование структуры dbf-файла  [new]
Lamazoid
Member

Откуда: Оттуда
Сообщений: 433
Забыл сказать - я это хочу программно чтобы как раз и уйти от сторонних программ). А то мои любимые пользователи-юзвери - и так с трудом понимают что они делают а тут еще целых 4 клавиши приходится изучать. Вот и думаю как уменьшить нагрузку на их кипящий разум
1 фев 07, 06:13    [3722913]     Ответить | Цитировать Сообщить модератору
 Re: Редактирование структуры dbf-файла  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
ничего не понимаю в дбф
ALTER TABLE через коннект не работает?
1 фев 07, 06:31    [3722919]     Ответить | Цитировать Сообщить модератору
 Re: Редактирование структуры dbf-файла  [new]
klen_
Member

Откуда:
Сообщений: 2404
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim TB As DAO.TableDef
Dim FD As DAO.Field

Dim basa As String: basa = "trpr"
Dim PUTH As String: PUTH = "C:\ZADACHA"

Dim DBF As String:  DBF = PUTH & "\" & basa & ".dbf"
Dim sSQL As String:  sSQL = "SELECT * From  " & basa

Set DB = OpenDatabase(PUTH, True, False, "dBASE III")

Dim fl As FileSystemObject                ' (объект) MicroSoft Scripting Runtime
Set fl = New FileSystemObject
If Not fl.FileExists(DBF) Then
    Set TB = DB.CreateTableDef(basa)
    Set FD = TB.CreateField("GOD", dbText, 4):          TB.Fields.Append FD
    Set FD = TB.CreateField("MES", dbText, 2):          TB.Fields.Append FD
    Set FD = TB.CreateField("KOLVO", dbDouble, 2):         TB.Fields.Append FD
    Set FD = TB.CreateField("VyxDen", dbBoolean, 1):      TB.Fields.Append FD
    DB.TableDefs.Append TB
    Set TB = Nothing
    Set FD = Nothing
End If

Set RS = DB.OpenRecordset(sSQL, dbOpenDynaset)
Ни ADO, и ни DAO, не позволят тебе создать структуру какую надо.
1 фев 07, 07:59    [3723016]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить