Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Запрос по VB для БД (: Работает тока 2 из 3

70K
22 мая 2011 года
Masredis
2 / / 22.05.2011
Здравствуйте, щас занимаюсь с VB 6.0 и решил сделать следующее -
1) Кнопка открытия БД ( через комон диалог бокс) - работает
2) Кнопка формирования в листе всех издательств моей БД - работает
3) При нажатии в листе1 на издательство , все авторы что печатаются в этом издательстве переходят в лист2. - не работает

Сама бд прилагается ( перевёл её в 2003 формат )=)
Код:
Private Sub List1_Click()
'Exit Sub na klik reagirovat ne budet
avtori$ = List1.List(List1.ListIndex)
avtori$ = Replace(avtori$, "'", "''")
    sSQL = "SELECT *FROM Izdatelstvo AS Iz, Knigi As K, Avtors As At " + _
          "Where Iz.Izdat_ID = K.Izdatel and K.Avtor_Knigi = At.Av_ID" + _
          "AND Izdatelstvo ='" + avtori$ + "'"
Label1.Caption = sSQL
Set MyRs = MyDB.OpenRecordset(sSQL, dbOpenDynaset)
List2.Clear
Do Until MyRs.EOF
List2.AddItem MyRs!Author
MyRs.MoveNext
Loop
End Sub
[ATTACH]5150[/ATTACH]

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог