[решено] dbList и dbcombo как подключиться [Версия для КПК]

Показать полную графическую версию : [решено] dbList и dbcombo как подключиться

artemu88

13-09-2018, 12:20

как подключиться напрямую к бд, чтобы был только один элемент управления dbList или dbcombo без файла бд (Data 1, Data2 со стрелочками).
Можно ли как то это написать в коде? Есть какие-нибудь книги или сайты по этой теме? Буду благодарен за помощь!

Iska

13-09-2018, 13:27

Не очень понятен Ваш вопрос.

artemu88

13-09-2018, 13:49

я имел ввиду, чтобы значения из бд были dbList или dbcombo без значка на форме, который используется для работы с данными бд (Data 1, Data2 со стрелочками) - он на скриншоте

Iska

13-09-2018, 14:10

artemu88, я не знаю, что Вы имеете в виду под:
были dbList или dbcombo »
но ничто не мешает работать с базой данных без каких-либо документов ActiveX, размещённых в контейнере формы, будь то DAO, будь ADO.

Можете начать с простого:
13. Применение ADO и работа с базами данных (http://www.askit.ru/custom/progr_admin/m13/13_01_ado_basics.htm)
9. Работа с базами данных и применение объектной модели ADO (http://www.askit.ru/custom/vba_office/m9/09_01_db_office_basics.htm).

artemu88

13-09-2018, 16:04

я хотел бы узнать как реализовать это в visual basic 6 а не в vba, прошу прощения если не так выразился

Iska

13-09-2018, 16:17

artemu88, точно так же.

artemu88

20-09-2018, 14:00

вот создал проект подключения к бд BIBLIO.mdb с кнопкой для добавления значений в dbList, но к сожалению ничего не отображает. Что я делаю не так?

Iska

20-09-2018, 18:32

artemu88, всё не так в двух последних строчках:
cn = DBList1.DataSource
rs = DBList1.ListField

artemu88

21-09-2018, 08:30

если по-другому
DBList1.DataSource = cn
DBList1.ListField = rs
то тоже ничего не дает, в чем ошибка, подскажите по возможности. Спасибо!

artemu88

21-09-2018, 11:11

Вот подправил, но без последних строчек, ставлю DBList1.DataSource = rs, пишет method or data member not found

artemu88

21-09-2018, 12:59

Немного доработал код, но все равно ничего нет в листе

Set rs = New adodb.Recordset
rs.Open "SELECT Au_id FROM Authors ", cn
Set DataList1.RowSource = rs
DataList1.ListField = "Au_id"

Iska

21-09-2018, 16:24

ставлю DBList1.DataSource = rs, пишет method or data member not found »
DBList binding... - Xtreme Visual Basic Talk (http://www.xtremevbtalk.com/database-and-reporting/181946-dblist-binding.html)

artemu88

21-09-2018, 16:38

Option Explicit
Dim cn As adodb.Connection, rs As adodb.Recordset, SQL As String
..................
Set rs = New adodb.Recordset
SQL = "SELECT Author FROM Authors "
rs.Open SQL, cn, adOpenStatic, adLockReadOnly
Set DataList1.RowSource = rs
DataList1.ListField = "Author"
End Sub
И ВСЕ ПОЛУЧИЛОСЬ! СПАСИБО!!