|
Visual Basic 5.0/6.0 - Базы данныхВсе примеры / Базы данныхADODB
Автор: Неизвестно | добавлено: 06.03.2010, 11:06 | просмотров: 3697 (1+) | комментариев: 0 | рейтинг:
Пример выводит список записей из базы данных через 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
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 45)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 19)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|