- Код: Выделить всё
If KeyWord1 <> "" Then
Adodc1.RecordSource = "SELECT * FROM Baza_adresov where АДРЕС like " + Chr(39) + KeyWord1 + Chr(39)
Adodc1.Refresh
End If
For Adodc1.Refresh = KeyWord2 To KeyWord5
If KeyWord2 <> "" Then
Adodc1.RecordSource = "SELECT * FROM Baza_adresov where УЛИЦА like " + Chr(39) + KeyWord2 + Chr(39)
Adodc1.Refresh
End If
Next
If KeyWord3 <> "" Then
Adodc1.RecordSource = "SELECT * FROM Baza_adresov where ДОМ like " + Chr(39) + KeyWord3 + Chr(39)
Adodc1.Refresh
End If
Next
If KeyWord4 <> "" Then
Adodc1.RecordSource = "SELECT * FROM Baza_adresov where КОРПУС like " + Chr(39) + KeyWord4 + Chr(39)
Adodc1.Refresh
End If
Next
If KeyWord5 <> "" Then
Adodc1.RecordSource = "SELECT * FROM Baza_adresov where ГОД like " + Chr(39) + KeyWord5 + Chr(39)
Adodc1.Refresh
End If
Почему этот код не работает? Требуется чтобы после нажатия кнопки «Найти», обнаруживался список адресов в DataGrid после проверки всех KeyWord’ов, при этом чтобы фильтрование Адодка происходило учитывая все параметры, заданные в KeyWord’ах, а не только по последнему,
как получается, если убрать строку с For и все Next'ы.
Я и Adodc1.Refresh и End If ставил в разные места и в конце списка. Чувствую что здесь надо цикл, но не знаю каким образом его оформить.
Я в VB-6 новичок, поэтому прошу разъясните доступно как для "особо одарёного"))