• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Поиск В Company Media

  • Автор темы HelenHelen
  • Дата начала
H

HelenHelen

Всем доброго дня!

Одна из баз CompanyMedia у нас должна использоваться для регистрации доверенностей, в связи с чем был доработан состав полей в ней. Теперь мне нужно доработать Поиск по форме так, чтобы он искал и по тем полям, которые я создала или изменила. Если кто знает, подскажите, как это сделать, пожалуйста! В библиотеке, которая отвечает за поиск, есть некая переменная FieldsAndForms, содержащая, судя по всему, массив поисковых полей. Однако нигде в коде я не вижу, чтобы ей присваивались какие-либо значения. Вот процедура, которая получает, какое поле как заполнил пользователь. Никаких указаний на состав самих полей я не вижу(((

Заранее большое спасибо!!

Код:
Function GetFields(searchstr As String,FieldsAndForms As Variant) As String
Dim s As String
Dim v As Variant 
Dim result As String
Dim j As Integer
Dim i As Integer 
If (Ubound(FieldsAndForms)>=0) Then
If (FieldsAndForms(0)<>"" ) Then
For j=0 To Ubound(FieldsAndForms)
If (j<>Ubound(FieldsAndForms)) Then
s = s + Strright(FieldsAndForms(j),"%") + "%"
Else
s = s+ Strright(FieldsAndForms(j),"%")
End If
Next
v = Evaluate({@Unique(@Explode(} + {"} + s + {"} + {;"%"))})
If (Isarray(v)) Then
result = "("
For i=0 To Ubound(v)
If (i<> Ubound(v)) Then
result = result + "[" + v(i) + "]" + {=} + {"} + searchstr + {"} + " OR "
Else
result = result + "[" + v(i) + "]" + {=} + {"} + searchstr + {"}
End If
Next
result = result + ")"
End If
End If
End If
GetFields = result
End Function
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
походу поле FieldsAndForms содержит массив названий поля и формы с разделителем %
посмотрите на его работу в дебагере и вам всё станет ясно
 
H

HelenHelen

Насчет дебаггера - не могу реально извлечь ничего полезного, не могу выбрать нужный экшн (Поиск) и просмотреть значение нужной переменной. Я перехожу на нужную форму и перед нажатием кнопки поиск включаю дебаггер в дизайнере. Если так делать - переменную не вижу(((( если подскажете, почему так, буду очень признательна)
 
V

valmont

возможно что список полей по которым осуществляется поиск находится ещё в каком-либо службном поле, в виде списка.
 
N

nayke

Насчет дебаггера - не могу реально извлечь ничего полезного, не могу выбрать нужный экшн (Поиск) и просмотреть значение нужной переменной. Я перехожу на нужную форму и перед нажатием кнопки поиск включаю дебаггер в дизайнере. Если так делать - переменную не вижу(((( если подскажете, почему так, буду очень признательна)

Почему не вывести значение переменной в сообщении? Сразу многое станет понятней
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!