ADO без Microsoft ADO Control в Word 2003, Word XP

[CAPITALIST]

Нужно работать .dbf базой в ворде. Почему без Microsoft ADO Control?
1. Не везде этот компонент установлен, макрос будет запускаться в Word 2003 и Word XP
2. Широко известный глюк "Can't find project or library" устраняется
>alibek 28.09.2005 (Ср) 10:25
>Зайди в VBA, в нем открой References и поищи строчки, в которых будет написано MISSING. А затем переподключи их.
Вот только макрос я пишу не для себя, а для пользователей.

VBA я почти не знаю, поэтому написал dll-ку на Delphi. Но тут проблемы с BDE. Долго объяснять.. Вобщем, на VBA мне нужно:
Query:= TADOQuery.Create(nil); // Создать не привязываясь к форме. Формы нет и не будет
Query.ConnectionString:= 'Provide...'; //Подключиться к dbf
Query.Active:= True; Query.Active:= False; //Закрывать открывать таблицу
Query.Free; //Освобождать запрос
Query.SQL.Add('SELECT * ...'); //добавить строчку на SQL
Query.First; Query.Next;//Перейти к первой, следующей записи
s:= Query.Fields[n].AsString; // Прочитать значение n-го поля
Подскажите ссылку на литературу

[alibek]

Set cnn = New ADODB.Connection
cnn.Open "Provider=..."
Set rs = New ADODB.Recordset
rs.Open "SELECT ...", cnn
Do Until rs.EOF
s = CStr$(rs.Fields(<index>|<name>).Value)
rs.MoveNext
Loop

Что-то типа того. В rs.Open может по другому, точно не помню.

[CAPITALIST]

>Set cnn = New ADODB.Connection
Compile error:
User-defined type not defined
я этим путем уже шел. Надо подключать Microsoft ADO 2.X Library.
Опять нужно на другом компе переподключать в References
Опять неизвестно будет ли там Microsoft ADO 2.X Library

[Calvin]

А в место цыкла можно еще использовать метод .copyfromrecordsetю Тогда вообще ракета. Только по-моему этот метод без загодовком полей выдает значение рекодсета....но это совсем не проблема

[Денис]

Почитай спецификацию файла dbf и парси его вручную.

[CAPITALIST]

CStr$ нет такой функции, есть CStr as variant. Как rs.Fields(n) преобразовать в строку?

[alibek]

я этим путем уже шел. Надо подключать Microsoft ADO 2.X Library.
Опять нужно на другом компе переподключать в References
Опять неизвестно будет ли там Microsoft ADO 2.X Library

Если не будет, твой код работать не будет в принципе, как не объявляй.
А если хочешь избавиться от references, используй позднее связывание:
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")

[alibek]

CStr$ нет такой функции, есть CStr as variant. Как rs.Fields(n) преобразовать в строку?

Своей функцией, в зависимости от типа данных.

[CAPITALIST]

>Dim cnn As Object
>Set cnn = CreateObject("ADODB.Connection")
Спасибо!

Теперь такой вопрос:
ADO поступает так с .dbf:
Если установлен BDE работать через него (BDE записи оставляет как есть) Иначе работает сама ADO (конвертирует записи из OEM в ANSI)
Причем без разницы, или я использую делфовский TADOQuery или ВБ-шный ADODB.Connection. Значит дело не в языке а в ADO

Но ведь записи уже в ANSI! Как с этим бороться? Есть ли у объекта ADODB.Connection свойство отвечающее за это?

[alibek]

Указывай правильный провайдер.
В FoxPro-шном можно указывать локаль, если я не ошибаюсь.
Либо исправь DBF-файлы, укажи кодовую страницу.

[CAPITALIST]

Указывай правильный провайдер.

%) Ух.. мне делфовский мастер вот такую строку создал:
"Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog="
Так что хз как это самому грамотно писать. Где про это можно почитать?
Здесь на форуме мало что про dbf есть. В основном майкрософтовские форматы...

[Денис]

Где про это можно почитать?

http://www.connectionstrings.com/

[CAPITALIST]

Спасибо! то что надо!

[atom_nb]

Указывай правильный провайдер.
В FoxPro-шном можно указывать локаль, если я не ошибаюсь.
Либо исправь DBF-файлы, укажи кодовую страницу.

Был у меня некоторый опыт по работе с dbf через ADO.
Файлы приходили из разных мест и создавались как чере BDE, так и через FoxPro.
Выяснилось следующее, что в заголовках файлов есть 1-2 байта отвечающие за кодировку.
Значения, которые должны туда записываться, разные для BDE и FoxPro.
В результате приходилось корректировать заголовоки dbf-ников, чтобы VFP-провайдер их все одинаково понимал.


С Jet-провайдером, вообще, интересно: на одних машинах (XP SP2) он игнорировал кодовую страницу в заголовках,
на других, где работала служба обновления Windows, воспринимал все также, как и VFP-провайдер.

Так что надо быть очень внимательным при работе с "dbf"