Создание dbf файла из ексель - VBA
Формулировка задачи:
как создать dbf файл из ексель из использованием ADO
в ADO я запуталсь......именно в конретной информации....
1. подключение к dbf(и к чему еще можно с помощю ado подключится и как);
2.создание файла dbf (другие варианты);
3.запись;
4.сохранение;
5.закрытие.
спасибо за любое инфо
прошу любую информацию ADO книги, ссылки, любые примеры..... я ни к чему толковому не прышел
интересует:
1.Как подключится к dbf;
2.создание dbf;
3.запись в dbf;
что искать по даной теме или полный игнор.....на тему ADO может лутше создать тему.....обшырное использование ADO
скупо как то получается
Решение задачи: «Создание dbf файла из ексель»
textual
Листинг программы
'::: Этап 1 - Определяем, откуда мы запущены
homeDir=Wscript.ScriptFullName '::: Это - полный путь нашего файла
k=Instrrev(homeDir,"\") '::: Ищем "\" с конца
homeDir=left(homeDir,(k-1)) '::: Это - чистое имя директории
'::: Этап 2 - Создаем ADO-соединение и пустой набор записей
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
DSNName = "DRIVER=Microsoft dBase Driver (*.dbf);DBQ="
DSNName = DSNName & HomeDir
'::: Этап 3 - Открываем соединение
Conn.Open DSNName
'::: Этап 4 - готовим SQL-оператор для создания таблицы
SQL="create table Testtable (N1 Float, N2 Float)"
'::: Этап 5 - выполняем его
RS.Open sql,Conn,3,3
'::: Этап 6 - Добавляем в таблицу 100 записей
For i=1 to 100
SQL="insert into testtable values (" & cstr(i) & "," & Cstr(2*i-1) & ")"
RS.Open sql,Conn,3,3
Next
'::: Этап 7 - суммируем...
SQL="Select sum(N1),sum(N2) from Testtable"
RS.Open SQL,Conn,3,3
SS1=RS(0)
SS2=RS(1)
MsgBox SS1
MsgBox SS2
Rs.Close
SQL="Drop table Testtable"
RS.Open sql,Conn,3,3
MsgBox "Таблица удалена!"