16. Ввод информации в базу данных средствами asp.Net

<%

set conn = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.RecordSet")

strDBPath = Server.MapPath("../films.mdb")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath

rs.Open "tbl_pokaz", conn,3,3

pfilm = Request.Form("film")

pkino = Request.Form("kinoteatr")

pdat = Request.Form("dat")

pprice = Request.Form("price")

rs.AddNew

rs.Fields(1) = pfilm

rs.Fields(2) = pkino

rs.Fields(3) = pdat

rs.Fields(4) = pprice

rs.Update

rs.MoveFirst

%>

17. Вывод информации из базы данных средствами asp.Net

<%

set conn = Server.CreateObject ("ADODB.Connection")

set rs1 = Server.CreateObject("ADODB.RecordSet")

strDBPath = Server.MapPath("../films.mdb")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath

rs1.Open "tbl_pokaz", conn,3,3

%>

< while rs1.EOF <> true %>

Создаем таблицу и пишем где какое поле выводить следующим макаром <% response.write(rs1.Fields(n))%> , где n – номер столбца в таблице БД. (Нумерация начинается с 0 !!)

18. Работа с хранимыми процедурами с параметрами средствами asp.Net

<%

b=request("b")

'response.write(b)

if b=1 then

sel=Request("fmer")

volid=Request("fmer")

set coon=Server.CreateObject("ADODB.Connection")

set rez=Server.CreateObject("ADODB.RecordSet")

set rezul=Server.CreateObject("ADODB.RecordSet")

strDBPath = Server.MapPath("../bd.mdb")

coon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath

strSQL="SELECT tbl_meropriyatiya.id_meropriyatiya, tbl_meropriyatiya.mrp_name, tbl_meropriyatiya.mrp_purpose, tbl_meropriyatiya.mrp_organizator, tbl_meropriyatiya.mrp_info, tbl_provedenie.prv_place, tbl_provedenie.prv_time, tbl_provedenie.prv_date, Int(IIf((CDate([prv_date])-Now())=0,(CDate([prv_date])-Now())+1,CDate([prv_date])-Now())) AS ostday, CDate([tbl_provedenie]![prv_datekonec])-CDate([tbl_provedenie]![prv_date]) AS prod, tbl_provedenie.prv_datekonec FROM tbl_meropriyatiya INNER JOIN tbl_provedenie ON tbl_meropriyatiya.id_meropriyatiya = tbl_provedenie.prv_meropriyatie WHERE tbl_meropriyatiya.id_meropriyatiya=" & sel & " AND (Int(IIf((CDate([prv_date])-Now())=0,(CDate([prv_date])-Now())+1,CDate([prv_date])-Now())))>0"

spvol="SELECT tbl_meropriyatiya.id_meropriyatiya, tbl_meropriyatiya.mrp_name, tbl_meropriyatiya.mrp_purpose, tbl_meropriyatiya.mrp_organizator, tbl_meropriyatiya.mrp_info, tbl_provedenie.prv_place, tbl_provedenie.prv_time, tbl_provedenie.prv_date, Int(IIf((CDate([prv_date])-Now())=0,(CDate([prv_date])-Now())+1,CDate([prv_date])-Now())) AS ostday, CDate([tbl_provedenie]![prv_datekonec])-CDate([tbl_provedenie]![prv_date]) AS prod, tbl_provedenie.prv_datekonec, tbl_volonter.vlt_fio FROM tbl_volonter INNER JOIN ((tbl_meropriyatiya INNER JOIN tbl_provedenie ON tbl_meropriyatiya.id_meropriyatiya=tbl_provedenie.prv_meropriyatie) INNER JOIN tbl_uchastie ON tbl_meropriyatiya.id_meropriyatiya=tbl_uchastie.uch_meropriyatie) ON tbl_volonter.id_volonter=tbl_uchastie.uch_volonter WHERE tbl_meropriyatiya.id_meropriyatiya=" & volid & " AND (Int(IIf((CDate([prv_date])-Now())=0,(CDate([prv_date])-Now())+1,CDate([prv_date])-Now())))>0"

rez.Open strSQL,coon,3,3

rezul.Open spvol,coon,3,3

%>

Потом выводим результат как описано в 17 вопросе