Пример 18.3. Выполнение статического sql-запроса к учебной базе данных из vbScript-сценария.

Пример 18.4. Выполнение динамического SQL-запроса к учебной базе данных из VBScript-сценария.

Для создания динамического запроса изменения данных на сервере воспользуемся объектом Command с параметрами.

Dim cn

Dim rst

Dim cmd

Set cn=Server.CreateObject("ADODB.Connection")

Set rst=Server.CreateObject("ADODB.Recordset")

Set cmd=Server.CreateObject("ADODB.Command")

cn.open "uid=user1;pwd=123;

driver={SQL Server};

server=its;database=basa_user1"

Set cmd.ActiveConnection=cn

Dim prm1, prm2

' создание параметров

prm1=Server.CreateObject("ADODB.Parameter")

prm2=Server.CreateObject("ADODB.Parameter")

' определение динамического запроса

cmd.CommandText="update товар set цена=?

where название=?"

cmd.CommandType=adCmdText

cmd.Prepared=True

' определение параметра, соответствующего

' первому знаку ? в SQL-запросе

Set prm1=сmd.CreateParameter("par1",

adInteger, adParamInput, , 160)

' определение параметра, соответствующего

' второму знаку ? в SQL-запросе

Set prm2=сmd.CreateParameter("par2", adChar,

adParamInput,20 , "Трюфели" )

' добавление параметров в коллекцию параметров

cmd.Parameters.Append prm1

cmd.Parameters.Append prm2

' выполнение SQL-запроса

cmd.Execute

Пример 18.4. Выполнение динамического sql-запроса к учебной базе данных из vbScript-сценария.