Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic 5.0/6.0 - Базы данных

Все примеры / Базы данных

ADODB

Автор: Неизвестно | добавлено: 06.03.2010, 11:06 | просмотров: 3492 (3+) | комментариев: 0 | рейтинг: *x1
Пример выводит список записей из базы данных через ADO в ListBox.

Код

Option Explicit

Private Sub Form_Load()
Dim db_file As String

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

  db_file = App.Path
  If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
  db_file = db_file & "books.mdb"

  Set conn = New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";"
  conn.Open

  Set rs = conn.Execute("SELECT * FROM Books", , adCmdText)
  
  Do While Not rs.EOF
    List1.AddItem rs!Title
    rs.MoveNext
  Loop
  
  rs.Close
  conn.Close
End Sub
Файлы dblist.rar (7,78 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики