Переход с MSAccess на Visual Basic 6.0 Нужны советы... - VB

Узнай цену своей работы

Формулировка задачи:

Возникла следующая ситуация, у меня есть написаная мною база на MSAccess, учет клиентов и расхода материала. Начальство приказало создать базу как отдельное приложение, дабы не платить (в связи с проверкой на лицензионное ПО) за MSOffice по 10 тысяч... Вот теперь пришлось схватиться за голову и нырять в дебри программирования на VB. На VB потому как есть хоть какой-то опыт после аксеса, там большинство процедур я писал в ручную.
Установил я VB 6.0, и сразу же обнаружил отсутствие MSDN, (бейсик был скачан с инета), а тут еще все точки по продаже такого ПО в городе поприкрывали... ну короче без хелпа остался....
Читал форум, нашел ссылку, скачал и ознакомился с "Visual Basic - крепкий орешек".
А теперь немного более конкретно:
1. Где можно более подробно прочитать про работу с базами данных в ВБ так сказать с нуля, что как и куда... (хотелось бы узнать подробнее о DAO ADO).
2. Конкретный вопрос, в аксесе у меня на форме было много полей зависящих друг от друга, т.е. в одном поле вычислялась сумма двух других и умножалась допустим, на третье. при изменении значения любого из полей результат менялся соответственно... Как такое можно осуществить в ВБ?
3. Создание поиска. Требуется чтобы при вводи букв в поле, автоматически сразу обновлялся список с данными в которых содержится данная буква, для последующе рааботы. Какой обект нужно использовать для такого списка? и как задать ему данные из таблиц базы данных.

Решение задачи: «Переход с MSAccess на Visual Basic 6.0 Нужны советы...»

textual
Листинг программы
<font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Dim</font> DB <font color="blue">As</font> dao.Database
<font color="blue">Dim</font> RS <font color="blue">As</font> dao.Recordset

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
<font color="blue">Set</font> DB = OpenDatabase(App.Path & <font color="teal">"\db2.mdb"</font>)
<font color="blue">Set</font> RS = DB.OpenRecordset(<font color="teal">"SELECT * FROM Таблица1"</font>)
<font color="blue">Set</font> Data1.Recordset = RS
<font color="blue">End</font> <font color="blue">Sub</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы