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
Запрос по VB для БД (: Работает тока 2 из 3
Здравствуйте, щас занимаюсь с VB 6.0 и решил сделать следующее -
1) Кнопка открытия БД ( через комон диалог бокс) - работает
2) Кнопка формирования в листе всех издательств моей БД - работает
3) При нажатии в листе1 на издательство , все авторы что печатаются в этом издательстве переходят в лист2. - не работает
Сама бд прилагается ( перевёл её в 2003 формат )=)
[ATTACH]5150[/ATTACH]
1) Кнопка открытия БД ( через комон диалог бокс) - работает
2) Кнопка формирования в листе всех издательств моей БД - работает
3) При нажатии в листе1 на издательство , все авторы что печатаются в этом издательстве переходят в лист2. - не работает
Сама бд прилагается ( перевёл её в 2003 формат )=)
Код: