Помогите оптимизировать алгоритм

31.12.2007, 23:14. **Показов** 912. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, оптимизировать алгоритм. Задача следующая.
Есть 5 форм, например, с 10 текстбоксами в каждой форме. Необходимо построить динамически SQL запрос на выборку данных из базы из полей, соответствующих содержимому непустых текстбоксов форм.

я реализовал это через множество условий if и на середине задачи появилась ошибка procedure too long.

Visual Basic
1
2
3
4
String = 'SELECT * FROM Base WHERE '
if form1.text1.text <> '' and ...and form3.text5.text = '' and ... and form5.text10.text = '' then String = String & 'Pole1 = ' ''' & form1.text1.text & '''
else if form1.text1.text <> '' then String = String & ' and Pole1=' ''' & form1.text1.text & '''
end if

с добавлением следующего if конструкция разрастается с огромной скоростью. Может есть более компактный алгоритм?

31.12.2007, 23:17

Ошибся в программе

Visual Basic
1
2
3
4
5
if form5.text10.text <> '' and ...and form3.text5.text = '' and ... and form1.text1.text = '' then String = String & 'Pole10 = ' ''' & form5.text10.text & '''
 
else if form5.text10.text <> '' then String = String & ' and Pole1=' ''' & form5.text10.text & '''
 
end if

@Said007 · 31.12.2007, 23:30

Для таких задач лучше создать одну общую функцию, которая будет формировать строку WHERE для запроса. И вызывай эту функцию из каждого поля в событии AfterUpdate, или непосредственно перед вызовом самого запроса. Тогда в функции можно использовать For ... Each ...
Таким образом, ты оградишь себя от возможных ошибок, программа будет более читабельной и ее будет легче модифицировать.

31.12.2007, 23:54

Смысл алгоритма в следующем. По нажатию кнопки поиск на одной из форм, алгоритм просматривает все текстбоксы всех форм, и если, текущий текстбокс не пустой и все предыдущие пустые, то form5.text10.text <> '' and ...and form3.text5.text = '' and ... and form1.text1.text = '' then String = String & 'Pole10 = ' ''' & form5.text10.text & '''

и если, соответственно, предыдущие текстбоксы были непустыми, то if form5.text10.text <> '' then String = String & ' and Pole1=' ''' & form5.text10.text & '''

события AfterUpdate применительно к тестбоксу я не нашел. Можно простенький примерчик?

Я попытался разбить все if по функциям или процедурам, соответственно для каждой формы своя функция или процедура с проверками if для каждого текстбока текущей формы. Но переменная, хранящая запрос String = 'SELECT * FROM Base WHERE ' нормально передается в функцию или процедуру, далее добавляются еще несколько параметров запроса, но возвращается в переменной только те изменения, которые были сделаны внутри функции или процедуры, т.е. теряется 'SELECT * FROM Base WHERE '.

@Said007 · 01.01.2008, 00:33

Поместите етот код в форму на каторой нашодится кнопка с которой вы запускаете запрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Temp As String
 
Private Function WHEREstrind() As String
    Dim Temp As String
    CheckTextBox Form1
    CheckTextBox Form2
    CheckTextBox Form3
    'И так для каждой формы
    'Или организуйте цикл используя Screen.ActiveForm
    [code]
    WHEREstrind = Temp
    Temp = ''
End Function
 
Private Sub CheckTextBox(FsNm As Form)
    Dim TB As TextBox, Value As String
    For Each TB In FsNm
        Value = TB.Value
        If Value > '' Then
            If Temp > '' Then Temp = Temp & ' AND '
            'Предполагается что имена TextBox-ов совпадают 
            'с именами  соответствующих полей
            Temp = TB.Name & ' = '' & Value & '''
        End If
    Next
End Sub

Если хотя бы одно TextBox будет заполнено то функция WHEREstrind возвратит строку для WHERE. Иначе возвратит пустую строку и WHERE использовать нельзя.

Надеюсь помог.
Успехов.

06.01.2008, 10:22

Как for each TB берет текстбоксы. У меня 39 текстбоксов, перебор их такой 39, 26, 18, 17, 8, 4 - ошибка 13. Как заставить цикл перебирать все текстбоксы поледовательно с первого.

Добавились чекбоксы и комбобоксы, будет ли для них работать этот же алгоритм?

кстати вот тут надо писать так Temp = Temp & TB.Name & ' = '' & Value & '''

06.01.2008, 12:43

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Прредлагаю такой вариант
Dim ctr As Control
Dim strWhere$
 
strWhere=''
For Each ctr In Me.Controls
    If TypeName(ctr)='TextBox' Then
      If Len(Trim(ctr.Text))>0 Then
         strWhere=strWhere & ' AND ...'
      End If
    End If
Next

24.01.2008, 01:08

Все отлично работает, большое спасибо!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Прредлагаю такой вариант
Dim ctr As Control
Dim strWhere$
 
strWhere=''
For Each ctr In Me.Controls
If TypeName(ctr)='TextBox' Then
If Len(Trim(ctr.Text))>0 Then
strWhere=strWhere & ' AND ...'
End If
End If
Next

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Said007 0 / 0 / 0 Регистрация: 02.09.2007 Сообщений: 209
	31.12.2007, 23:30
	Для таких задач лучше создать одну общую функцию, которая будет формировать строку WHERE для запроса. И вызывай эту функцию из каждого поля в событии AfterUpdate, или непосредственно перед вызовом самого запроса. Тогда в функции можно использовать For ... Each ... Таким образом, ты оградишь себя от возможных ошибок, программа будет более читабельной и ее будет легче модифицировать. 0

Marx
	31.12.2007, 23:54
	Смысл алгоритма в следующем. По нажатию кнопки поиск на одной из форм, алгоритм просматривает все текстбоксы всех форм, и если, текущий текстбокс не пустой и все предыдущие пустые, то form5.text10.text <> '' and ...and form3.text5.text = '' and ... and form1.text1.text = '' then String = String & 'Pole10 = ' ''' & form5.text10.text & ''' и если, соответственно, предыдущие текстбоксы были непустыми, то if form5.text10.text <> '' then String = String & ' and Pole1=' ''' & form5.text10.text & ''' события AfterUpdate применительно к тестбоксу я не нашел. Можно простенький примерчик? Я попытался разбить все if по функциям или процедурам, соответственно для каждой формы своя функция или процедура с проверками if для каждого текстбока текущей формы. Но переменная, хранящая запрос String = 'SELECT * FROM Base WHERE ' нормально передается в функцию или процедуру, далее добавляются еще несколько параметров запроса, но возвращается в переменной только те изменения, которые были сделаны внутри функции или процедуры, т.е. теряется 'SELECT * FROM Base WHERE '.

Marx
	06.01.2008, 10:22
	Как for each TB берет текстбоксы. У меня 39 текстбоксов, перебор их такой 39, 26, 18, 17, 8, 4 - ошибка 13. Как заставить цикл перебирать все текстбоксы поледовательно с первого. Добавились чекбоксы и комбобоксы, будет ли для них работать этот же алгоритм? кстати вот тут надо писать так Temp = Temp & TB.Name & ' = '' & Value & '''