Вот простой пример апплета VB, но он содержит следующие ключевые слова: VB6.0, ADO, Access.
Среда: Visual Basic 6.0 Enterprise Edition (не оптимизированная версия, иначе в ней не будет необходимых элементов управления)
База данных: база данных Access, база данных — xs.mbd, встроенная таблица — xj.
Результат: VB использует ADO для подключения к базе данных доступа, запрашивает все данные в таблице xj, а затем в цикле выводит результаты запроса в окно.
Код:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'Объект подключения ADO и набор записей Dim strSQL As String 'Строка SQL db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Источник данных =" & App.Path & "/xs.mdb" 'Подключение к базе данных db.Open 'Открыть базу данных strSQL = "select * from xj" 'SQL string RS.Open strSQL, db, 3, 1 'Запросить таблицу данных Do While Not RS.EOF 'Цикл для вывода результатов запроса Print RS! Пол Класс! Распечатайте результаты вывода в окне RS.MoveNext 'Переместить запись вниз LoopRS.Close 'Закрыть набор записей Set RS = NothingEnd Sub
Выше приведено все содержание этой статьи, надеюсь, она вам всем понравится.