Дан фрагмент сценария VBScript для выборки данных из таблицы Блюдо, расположенной в базе данных basa_user1 на SQL Server с именем its.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open "pwd=user1;driver={SQL Server}; server=its; database = basa_user1"rst.open "SELECT Название_блюда, Время_приготовления, Калорийность FROM Блюдо"do until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"loop

Указать правильные ответы.

Дан фрагмент сценария VBScript для выборки данных из таблицы Автор, расположенной в базе данных basa_user1 на SQL Server с именем its.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open "pwd=user1;driver={SQL Server};  server=its; database = basa_user1"rst.open "SELECT Фамилия, Телефон FROM Автор", cndo until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"   rst.movenextloop

Указать правильные ответы.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open uid=user1;pwd=user1;driver={SQL Server}; server=its; database = basa_user1rst.open "SELECT Конечный_пункт, Дата_вылета, Продолжительность_маршрута FROM Рейс"do until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"   rst.movenextloop

Дан фрагмент сценария VBScript для изменения и выборки данных из таблицы Рейс, расположенной в базе данных basa_user1 на SQL Server с именем its.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open " uid=user1;pwd=user1;driver={SQL Server}; server=its; database = basa_user1"cn.execute "UPDATE Рейс SET Дата_вылета=3.09.2003 WHERE номер_рейса=123”rst.open "SELECT Конечный_пункт, Дата_вылета, Продолжительность_маршрута FROM Рейс", cndo until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"   rst.movenextloop

Указать правильные ответы.

Дан фрагмент сценария VBScript для изменения и выборки данных из таблицы Автор, расположенной в базе данных basa_user1 на SQL Server с именем its.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open "pwd=user1;driver={SQL Server}; server=its; database = basa_user1"cn.execute "UPDATE Автор SET Телефон='23-45-67' WHERE Фамилия='Иванов'"rst.open "SELECT Фамилия, Телефон FROM Автор", cndo until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"   rst.movenextloop

Указать правильные ответы.

Дан фрагмент сценария VBScript для удаления и выборки данных из таблицы Город в базе данных basa_user1 на SQL Server с именем its.

Set cn=Server.CreateObject("ADODB.Connection")Set rst=Server.CreateObject("ADODB.Recordset")cn.open "pwd=user1;driver={SQL Server}; server=its; database = basa_user1"rst.execute "DELETE FROM Город WHERE Код_Города=2134"rst.open "SELECT Код_Города, Название, Тариф FROM Город", cndo until rst.eof   response.write rst.fields(0)    response.write rst.fields(1)    response.write rst.fields(2)&"<br>"   rst.movenextloop

Указать правильные ответы.

Дан фрагмент сценария VBScript для изменения данных в таблице Блюдо.

prm1=Server.CreateObject("ADODB.Parameter")prm2=Server.CreateObject("ADODB.Parameter")cmd.CommandText = "update Блюдо set Калорийность=? where Тип_блюда=?"cmd.CommandType = adCmdTextcmd.Prepared = TrueSet prm1 = сmd.CreateParameter("p1", adVarChar, adParamInput,8 ,'200')Set prm2 = сmd.CreateParameter("p2", adVarChar, adParamInput,20 ,'Десерт')cmd.Parameters.Append prm1cmd.Parameters.Append prm2cmd.Execute

Указать правильные ответы.

Дан фрагмент сценария VBScript для изменения данных в таблице Город.

prm1=Server.CreateObject("ADODB.Parameter")prm2=Server.CreateObject("ADODB.Parameter")cmd.CommandText = "update Город set Тариф=? where Название=?"cmd.CommandType = adCmdTextcmd.Prepared = TrueSet prm2 = сmd.CreateParameter("p1", adSingle, adParamInput,8 ,12.50)Set prm1 = сmd.CreateParameter("p2", adVarChar, adParamInput,20 ,'Самара')cmd.Parameters.Append prm2cmd.Parameters.Append prm1cmd.Execute

Указать правильные ответы.

Дан фрагмент сценария VBScript для изменения данных в таблице Рейс.

prm1=Server.CreateObject("ADODB.Parameter")prm2=Server.CreateObject("ADODB.Parameter")cmd.CommandText = "update Рейс set Стоимость=? where Конечный_пункт=?"cmd.CommandType = adCmdTextcmd.Prepared = TrueSet prm1 = сmd.CreateParameter("p1", adVarChar, adParamInput,20 ,'Москва')Set prm2 = сmd.CreateParameter("p2", adInteger, adParamInput, ,231290.50)cmd.Parameters.Append prm1cmd.Parameters.Append prm2cmd.Execute

Указать правильные ответы.

Дан фрагмент сценария VBScript для изменения данных в таблице Автор.

prm1=Server.CreateObject("ADODB.Parameter")prm2=Server.CreateObject("ADODB.Parameter")cmd.CommandText = "update Автор set Телефон=? where Фамилия=?"cmd.CommandType = adCmdTextcmd.Prepared = TrueSet prm1 = сmd.CreateParameter("p1", adVarChar, adParamInput,8 ,'12-34-56')Set prm2 = сmd.CreateParameter("p2", adVarChar, adParamInput,20 ,'Иванов')cmd.Parameters.Append prm1cmd.Parameters.Append prm2cmd.Execute

Указать правильные ответы.

Дан фрагмент Java-программы для выборки данных из таблицы Блюдо, расположенной в источнике данных с именем DSN=mystud.

Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");Connection myCon= DriverManager.getConnection("jdbc:odbc:mystud","user1","user1");Statement mySt=myCon.createStatement();ResultSet rs=mySt.executeQuery("SELECT Название_блюда,    Калорийность FROM Блюдо ");while (rs.next())  {       String var1=rs.getString(1);       String var2=rs.getString(2);       String var3=rs.getString(3);...}

Указать правильные ответы.