powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите советом
2 сообщений из 2, страница 1 из 1
Помогите советом
    #32267024
23a77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все что научился, так это создавать пустую таблицу DBF:

Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_to & ";User ID=Admin;Password=;Extended Properties=dBase IV")
Conn.Execute "create table " + file_to + " (RN char(4), SNAME char(12), DATE_DOC date, SUMMA float, SUMMA_DOC float, SUMMA_NDS float, TXT123 char(210))"
Conn.Add
Conn.Close
Set Conn = Nothing

Как делать операции select, insert, update из таблиц dBASE ?
Где вообще можно найти хоть какие примеры ?
...
Рейтинг: 0 / 0
Помогите советом
    #32267052
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И что, созданная пустая таблица открывается, например, в фоксе? Я тоже пробовал создавать, но у меня не получалось, например, указать длину дробной части, если поле десятичное. Кроме этого, если удалять записи из dbf-файла, то возникают проблемы с последующей его упаковкой. Поэтому у меня есть просто пустые заготовки нужного формата, я их заполняю, редактирую, а когда не нужны, на их место пишу пустые. Что до того, как редактировать, удалять, добавлять - то все стандартно, если через ADO, то открывваешь соединение и вперед. В мсдн примеров навалом. У меня
примерно так:

' Открываем соединение с dbf-файлом
cnnB.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & strPath & ";UseProcForPrepare=No;Collating Sequence=MACHINE"
' Можно открыть набор, а можно работать через запрос:
rstA.Open "SELECT * FROM EXTERN.DBF", cnnB
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите советом
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]