Уважаемые коллеги!!!
Прошу прощения, за чайниковский вопрос но возможно ли написать пользовательскую функцию для Excell 2010 на основе ADODB, чтобы делался запрос к файлу базы данных DBF? Я написал и долго пользовался подобной функцией на основе класса BPDBF в Excell 2003, но при переходе на 2010 этот класс перестал работать. :-(
Может быть у кого-то есть ссылки на учебники по ADODB, примеры, собственные наработки? Задача проста- в функции задается аргумент А, этот аргумент ищется в файле базы данных DBF в определенном поле -Поле1. Из Поля2 записи содержащей аргумент А в Поле1 результат выдается в ячейку. Начал писать но не могу отладить и нет понимания.
Если нужно могу выложить функцию на основе класса BPDBF, но думаю здесь аналогии неуместны.
Заранее всем спасибо!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Function СТРАНА(N) As String
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
' connect to the Access database
FirstRowHasNames = 1
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\ADODB\;Extended Properties=""DBASE IV;"";"
ds = cn.Execute("SELECT * FROM COUNTRS.dbf")
For i = 0 To N
rs.MoveNext
Next i
СТРАНА = rs.Fields(4)
rs.Close
cn.Close
End Function
Учимся использовать тэги оформления кода -
FAQ
