Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Август 2019, 16:16 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Макрос для работы с DBf  (Прочитано 1522 раз)
0 Пользователей и 1 Гость смотрят эту тему.
pfantom
Участник
**
Offline Offline

Сообщений: 17


« Стартовое сообщение: 8 Апрель 2016, 11:24 »

Здравствуйте. Недавно начал только изучать написание макросов. Задача простая. Есть Dbf фаил в нем есть четыре колонки: Number, STR, NAME, IND.
Подскажите как реализовать. Делается запрос к БД по столбцу Number(все записи уникальные). Если он равен определенному значению то значения остальных колонок помещается в переменную или переменные не важно.

вот примерный код но при выполнение оператора Execute вылетает ошибка

Код:
Sub dbf_Example()
 
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Const cstrBase As String = "C:\1"
 
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
    .Open
     rs = .Execute("SELECT * FROM Adr  WHERE Number = '123'; ")
 
    .Close
End With
End Sub


подскажите как до делать=(((

хотя были и другие варианты кода но тоже не работало.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!