VBNet - Форум - Как выполнить SQL-запрос с параметрами в MS Access

Вопрос: Как выполнить SQL-запрос с параметрами в MS Access Добавлено: 01.04.03 10:58

Автор вопроса: noMADfromX

Пожайлуста, помогите!

У меня стоит ПФО 2002 FE в виде mde-файла. С помощью VB6 я пишу дополнялки к ПФО. Т.к. большое количество запросов уже зашито в сам файл mde, то хотелось бы научиться их использовать.

Собственно вопрос: есть SQL-запрос, который при запуске из ПФО запрашивает параметры (даты, например). Как эти параметры можно передать в запрос из VB6?

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Spirit

Вопросов: 1
Ответов: 4

Профиль | | #1

Добавлено: 01.04.03 13:10

Попробуй так:

sst = "PARAMETERS Дата1 DateTime, Дата2 DateTime, ЦБ Text; " & _
      "SELECT * FROM [Table] " & _
        "WHERE (Date Between [Дата1] And [Дата2]) AND (CB = [ЦБ])"
       Set qdf = Db.CreateQueryDef("По типу ЦБ", sst)
       qdf.Parameters("Дата1") = frmPeriod.Start
       qdf.Parameters("Дата2") = frmPeriod.End
       qdf.Parameters("ЦБ") = frmCB.Text1.Value

Ответить

Номер ответа: 2 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #2	Добавлено: 01.04.03 16:23
	А как тоже самое под ADO?? Ответить

Номер ответа: 3
Автор ответа:

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #3

Добавлено: 02.04.03 10:39

C ADO примерно так:

Dim Conn As ADODB.Connection

Dim Cmd As ADODB.Command

Dim Par As ADODB.Parameter

Dim Rs As ADODB.Recordset

Set Conn = New ADODB.Connection

Conn.Open ConnectionString

Set Cmd = New ADODB.Command

Set Cmd.ActiveConnection = Conn

'здесь у меня используются сохраненные процедуры

'и в данном разе просто передается имя процедуры

'но вполне можно использовать и строку SQL-запроса с параметрами

Cmd.CommandText = ProcedureName

Cmd.CommandType = adCmdStoredProc

Set Par = Cmd.CreateParameter

Par.Name = "то что стоит в запросе в качетсве названия параметра"

Par.Type = [константа типа передаваемого параметра]

Par.Direction = adParamInput

Par.Value = [значение параметра]

Cmd.Parameters.Append Par

Set Rs = New ADODB.Recordset

Rs.Open Cmd

.......

Ну и так далее, примерно так у меня успешно обрабатываются сохраненные процедуры с параметрами с помощью ADO

Ответить

Страница: 1 |