VB6 + .accbd. Как получить в переменную значение поля из БД?
Формулировка задачи:
Добрый день. Тема не нова, однако ответа толком не увидел.
Ранее реализовывал работу с access-базой данных .accdb посредством sql-запросов (помогла вот эта тема)
А нынче появился вопрос, казалось бы, и простой: получить в переменные значения нужной записи из БД и сравнить их с введенными пользователем в текстовых полях. И тут я чето загрустил...
1)приложение написано на VB 6, не могу пока разобраться как реализовать изложенный выше метод на VB6.
2)наверняка же есть попроще способы работать с таблицей, чем изложенный выше? Можно ли как-то подключить и работать базу данных с помощью, например, контрола Data? Верней подключить то может и можно, а как потом из подключенной таблицы получать значения?
Если можно пример кода - как получить из подключенной таблицы в переменную значение поля "RefNo" где "User=4" и "№Rec=12345"?
Спасибо.
Решение задачи: «VB6 + .accbd. Как получить в переменную значение поля из БД?»
textual
Листинг программы
Function accdbADO(path, tblName, fldName, strFilter) 'Функция получает значение поля fldName для заданных фильтров 'path - путь к БД 'tblName- имя таблицы 'fldName - имя поля, значение которого надо получить 'strFilter - строка фильтра Dim con As Object, rst As Object, s Set con = CreateObject("adodb.connection") con.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & path s="select [" & fldName & "] from [" & tblName & "] where " & strFilter accdbADO = con.Execute(s).Fields(0) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д