Программное изменение параметров ХП и представлений

Ukraina

Дата: 04.09.2005 21:42:54

Господа!
В МДБ для программного изменения параметров запросов использовал следующий код:

CurrentDb.QueryDefs![ZapRoz].Sql = "SELECT  [Pole].* FROM [Tably] where " & z

Где Z формируется программно…

Как можно программно изменять параметры ХП и представлений в зависимости от Z?
В частности Z должен принимать различные значения типа

Z=Like “*jgfjh*” and Like “*khgkh*” ….

Т.е. в приложении раньше я делал так: в некой форме в конроле записывался параметр поиска типа

ася*етро*александрови

Программно формируется строка

Z=Like “*ася*” and Like “*етро*” and Like “*александрови*”

Далее формировался новый запрос и выводились данные на базе этого запроса. Какой аналог в Проекте? Подскажите нужное направление?

(c)VIG

Дата: 04.09.2005 21:59:02

Да, про Америку трындеть легче, чем в хелп заглянуть... :)
Command object

Ukraina

Дата: 04.09.2005 23:40:36

Виг!
1. Ну не в ладах я с ангельским...
2. С такого рода ответами или без таковых, я все равно добьюсь знаний в данном направлении, только вот зачем топик то засорять...

Зайди на лестницу и скажи Украина такой дурак, а про америку так трындит

Alexander G

Дата: 05.09.2005 01:18:22

Попробуем по-другому:)
Имеем формочку для задания параметров - f1 на ней контрол txt1 и на ней кнопочка открытия формы f2.
Имеем форму f2 для вывода данных
у нее в источнике хранимка следующего содержания:

@FamP nvarchar(20) 
as
SELECT     IdPers, FamPers
FROM          dbo.t1
WHERE      FamPers like @FamP

в свойстве Входные параметры этой формы f2 пишем
@FamP=[forms]![f1]![txt1] & '%'

Ukraina

Дата: 05.09.2005 02:15:02

Александер! Спасибо!
В принципе пошел по такому же пути, но тогда доп.вопрос:

Можно ли сделать така:

WHERE      FamPers @FamP

а в свойстве Входные параметры этой формы f2 пишем
@FamP=NekayaFunktion([forms]![f1]![txt1])

Результатом NekayaFunktion будет нечто таго:

Like %ggg% and Like %jjj%

(сейчас строго не судите за синтаксис: все в подвешанном состоянии)
Т.е. программно задать InputParameters, где будет сформирована строка с конструктором Like: можно ли в Входных параметрах использовать Like?

Alexander G

Дата: 05.09.2005 02:46:52

Если хочется управлять содержимым запроса полностью, другой вариант
f2:

Private Sub Form_Load()
Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM dbo.t1 WHERE FamPers like '%" & Forms!f1!txt1 & "%'"
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
End Sub

Alexander G

Дата: 05.09.2005 03:51:04

Или вообще без затей:

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM dbo.t1 WHERE FamPers like '%" & Forms!f1!txt1 & "%'"
Me.RecordSource = strSQL
End Sub