Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ASP .NET Database Programming Weekend Crash Course - J. Butler, T. Caudill.pdf
Скачиваний:
31
Добавлен:
24.05.2014
Размер:
3.32 Mб
Скачать

A P P E N D I X

D

Coding Differences in ASP and ASP.NET

Retrieving a Table from a Database

How you did it with VBScript in ASP

Function GetStores(stor_id)

Dim oRS, oConn, oCmd, oParam

OConn = “provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”

Set oCmd = Server.CreateObject(“ADODB.Command”) OCmd.CommandText = “SELECT * FROM Stores WHERE [stor_id]=?” OCmd.ActiveConnection = oConn

Set oParam = oCmd.CreateParameter(“stor_id”,3,1,,stor_id) OCmd.Parameters.Append oParam

Set oRS = Server.CreateObject(“ADODB.Recordset”) ORS.Open oCmd

Set GetStores = oRS End Function

How you do it with VB .NET in ASP.NET

Function GetStores(stor_id As Integer) As DataSet

Dim oConn as New OLEDBConnection(“provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”)

Dim oCmd as New OLEDBDataAdapter(“SELECT * FROM Stores WHERE [stor_id]=?”, oConn) Dim oParam as New OLEDBParameter(“stor_id”,OLEDBType.Integer)

oParam.Value = stor_id oCmd.SelectCommand.Parameters.Add(oParam) Dim oDS As New DataSet()

oCmd.Fill(oDS, “stores”) Return oDS

End Function

356

Appendix D

How you do it with C# in ASP.NET

DataSet GetStores(int stor_id) {

OleDbConnection oConn = new OleDbConnection(“provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”);

OleDbDataAdapter oCmd = new OleDbDataAdapter(“SELECT * FROM Stores WHERE [stor_id]=?”, oConn);

OleDbParameter oParam = new OleDbParameter(“stor_id”, OleDbType.Integer); oParam.Value = stor_id;

oCmd.SelectCommand.Parameters.Add(oParam); DataSet oDS = new DataSet(); oCmd.Fill(oDS, “stores”);

return oDS;

}

Displaying a Table from a Database

How you did it with VBScript in ASP

<%@ LANGUAGE=”VBScript” %> <%

Dim oRS

Function CreateTable(stor_id) Set oRS = GetStores(stor_id) Do While Not oRS.EOF

Response.Write(“<TABLE>”)

Response.Write(“<TR>”)

For Each oField in oRS.Fields Response.Write(“<TD Align = Center>”) If isNull(oField) Then

Response.Write(“ ”)

Else

Response.Write(oField.value) End If

Response.Write(“</TD>”)

Next oRS.moveNext

Response.Write(“</TR>”)

Loop Response.Write(“</TABLE>”) ORS.close

Set oRS = Nothing End Function

Function GetStores(stor_id)

Dim oRS, oConn, oCmd, oParam

OConn = “provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”

Set oCmd = Server.CreateObject(“ADODB.Command”) OCmd.CommandText = “SELECT * FROM Stores WHERE [stor_id]=?” OCmd.ActiveConnection = oConn

Coding Differences in ASP and ASP.NET

357

Set oParam = oCmd.CreateParameter(“stor_id”,3,1,,stor_id) OCmd.Parameters.Append oParam

Set oRS = Server.CreateObject(“ADODB.Recordset”) ORS.Open oCmd

Set GetStores = oRS End Function

%>

<html>

<body>

<%

CreateTable(“7066”)

%>

How you do it with VB .NET in ASP.NET

<%@ Import Namespace=”System.Data” %>

<%@ Import Namespace=”System.Data.OleDB”%>

<%@ Page Language=”VB” Debug=”False” Trace=”False” %> <HTML>

<HEAD>

<SCRIPT LANGUAGE=”vb” RUNAT=”server”>

Sub Page_Load(sender as object, e as eventargs) CreateTable(7066)

End Sub

Function GetStores(stor_id As Integer) As DataSet

Dim oConn as New OLEDBConnection(“provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”)

Dim oCmd as New OLEDBDataAdapter(“SELECT * FROM Stores WHERE [stor_id]=?”,

oConn)

Dim oParam as New OLEDBParameter(“stor_id”,OLEDBType.Integer) oParam.Value = stor_id oCmd.SelectCommand.Parameters.Add(oParam)

Dim oDS As New DataSet() oCmd.Fill(oDS, “stores”) Return oDS

End Function

Sub CreateTable(stor_id as Integer)

Dim oDS As DataSet = GetStores(stor_id) grid1.DataSource = oDS.Tables(0).DefaultView grid1.DataBind()

End Sub

</SCRIPT>

</HEAD>

<BODY>

<FORM RUNAT=”server” ID=”Form1”> <ASP:DATAGRID ID=”grid1” RUNAT=”server” />

</FORM>

</BODY>

</HTML>

358

Appendix D

How you do it with C# in ASP.NET

<%@ Import Namespace=”System.Data.OleDb”%> <%@ Import Namespace=”System.Data”%>

<%@ Page Language=”C#” Debug=”False” Trace=”False” %> <HTML>

<HEAD>

<SCRIPT LANGUAGE=”C#” RUNAT=”server”>

protected void Page_Load(Object sender, EventArgs E)

{

CreateTable(7066);

}

void CreateTable(int stor_id)

{

DataSet oDS = GetStores(stor_id); grid1.DataSource = oDS.Tables[0].DefaultView; grid1.DataBind();

}

DataSet GetStores(int stor_id) {

OleDbConnection oConn = new OleDbConnection(“provider=sqloledb;Data Source=(local);Initial Catalog=pubs;User ID=sa;pwd=;”);

OleDbDataAdapter oCmd = new OleDbDataAdapter(“SELECT * FROM Stores WHERE [stor_id]=?”, oConn);

OleDbParameter oParam = new OleDbParameter(“stor_id”, OleDbType.Integer); oParam.Value = stor_id;

oCmd.SelectCommand.Parameters.Add(oParam); DataSet oDS = new DataSet(); oCmd.Fill(oDS, “stores”);

return oDS;

}

</SCRIPT>

</HEAD>

<BODY>

<FORM RUNAT=”server” ID=”Form1”> <ASP:DATAGRID ID=”grid1” RUNAT=”server” />

</FORM>

</BODY>

</HTML>

Variable Declarations

How you did it with VBScript in ASP

Dim x

Dim s

Dim s1,s2

Dim o

Set o = Server.CreateObject(“ADODB.Command”)