Nota.En vez de un aria Lisa también se puede emplear un arreglo dinámico Dim values() as string={“Visual Net”,” Power Builder”,” Macromedia Mx”,”sql server”}

I.S.T.”Idat”

20

ASP.NET

Aplicaciones Web Dropdown1.datasource=values 1.- Lo primero y más importante a recordar es que en este modelo de programación el codigo en vbNet estará embebido o empotrado junto con codigo html. 2.- Este codigo mezcla instrucciones y objetos de dos lenguajes de programación diferentes, ellos son HTML y vbNet. 3.- El problema es que los objetos HTML no tienen suficientes propiedades y métodos para resolver  muchos problemas de programación, por esta razón Microsoft.Net crea unas cubiertas?

(WRAPPERS) para cada uno de ellos, en su librería System.Web.UI.Control, o colección HTMLCONTROL, estos nuevos objetos o controles son: HtmlInputButton, HtmlInputCheckBox, HtmlInputFile, HtmlInputHiden, HtmlputImage, HtmlInputRaddioButton, HtmlInputText, HtmlAnchor, HtmlButton, HtmlForm, HtmlGenericControl, HtmlSelect, HtmlTable, HtmlTableCell, HtmlTableRow, HtmlTextArea, HtmlImage. Estos controles aceptan o pueden usar todas las propiedades originales de los objetos HTML y algunas nuevas propiedades y métodos como se observa en el programa ejemplo. La única propiedad que no se menciona y se usa en todos estos objetos htmlcontrol es runat="server" que se utiliza para indicarle al servidor de paginas que debe compilar y ejecutar el programa.aspx usando el lenguaje apropiado y solo mandarle el resultado de esta compilación a la maquina cliente que lo pidió. 4.- El script o miniprograma empieza con <SCRIPT y termina con . 5.- Recordar respetar todas las ID de los objetos y las variables que se hayan declarado. 6.- La primera sopresa agradable comparada con los otros modelos de programación es que de los objetos htmlcontrols se pueden manipular directamente sus propiedades y métodos, es decir ya no hay necesidad ( aunque se puede) de usar los objetos tradicionales de ASP. 7.- Como se observa en el programa, se pueden manipular directamente los objetos HTML, y con un solo renglón de instrucción en vbnet se puede resolver el problema completo.

Empleando Web Form con códigos en Visual VB Comienza con una directiva o instrucción PAGE que en principio es el compilador de paginas de  ASP.NET y su atributo INHERITS le indica a dicho compilador que use ejemplo.aspx y el codigo fuente o SouRCe que esta en el archivo llamado ejemplo.aspx.VB  Aparte de la directiva PAGE, existen las siguientes:

ASP.NET PAG-LEVEL DIRECTIVES:

I.S.T.”Idat”

21

ASP.NET

Aplicaciones Web

DIRECTIVE

DESCRIPCION

@ Page

Define atributos usados para compilar paginas ASP.NET

@ Control

Define atributos usados para compilar controles de usuarios

@ Import

Importa NAMESPACES desde la librería de clases de .NET

@ Register

Define alias, tais, y otros parámetros para controles de usuarios y normales

@ Assembly

Identifica otros archivos ( assemblies) para enlazar a esta pagina

Aplicación.- Ingresando un radio muestra su area en una etiqueta e ingresando una cadena o párrafo lo ordena de forma ascendente Ejemplos:

Códigos

Public Class SystemClass Inherits System.Web.UI.Page Protected WithEvents txtRadius As System.Web.UI.WebControls.TextBox Protected WithEvents butCalculate As System.Web.UI.WebControls.Button Protected WithEvents txtSort As System.Web.UI.WebControls.TextBox Protected WithEvents butSort As System.Web.UI.WebControls.Button Protected WithEvents litResult As System.Web.UI.WebControls.Literal + codigo Generado Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load I.S.T.”Idat”

22

ASP.NET

Aplicaciones Web

'Put user code to initialize the page here End Sub Private Sub butCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCalculate.Click ' Declare variables. Dim dblCircArea, dblRadius As Double ' Convert text input to a double (optional). If txtRadius.Text <> "" Then _ dblRadius = System.Convert.ToDouble(txtRadius.Text) ' Calculate area. dblCircArea = System.Math.PI * System.Math.Pow(dblRadius, 2) ' Display result. ShowResult(dblCircArea) End Sub Private Sub butSort_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSort.Click ' Declare an array. Dim arrSort As String() ' Place each word in an array element arrSort = txtSort.Text.Split(" ") ' Sort the array. System.Array.Sort(arrSort) ' Display result. ShowResult(String.Join(" ", arrSort)) End Sub Sub ShowResult(ByVal Result As String) litResult.Text = "

Results

Sorted string: " + Result + "" End Sub Sub ShowResult(ByVal Result As Double) litResult.Text = "

Results

The circle's area is: " + Result.ToString() + "" End Sub End Class FUNCIONES CON NUMEROS Funcion  Abs Int

I.S.T.”Idat”

Devuelve Valor absoluto de un numero real Parte entera de un real

23

ASP.NET

Aplicaciones Web Rnd Exp

Un numero al azr entre 0 y 1 Exponecial de un numero real es decir e = 2.71828

El objeto Math.funciones Math. Reunid (nov. - Redondea, con ciertos números de decimal Math. Round (3.45, 1) 'Returns 3.4. Math.Round(3.46, 1) 'Returns 3.5. Math.PI .- El valor de este campo es 3,14159265358979323846 Math.acos.- Devuelve el ángulo cuyo coseno es el número especificado Math.ceiling.- Devuelve el número entero más pequeño mayor o igual que el número especificado. Math.ceiling(3.1)



4

Math.Floor.- Devuelve el número entero más grande menor o igual que el número especificado Math.Floor(3.1)

3

Math.sqrt(n).- Devuelve la raíz cuadrada de un número especificado. Math.pow(n).- Devuelve un número especificado elevado a la potencia especificada

Funciones Fechas. Las fechas son cadenas especiales. Visual Basic sabe obtener y tratar la información relativa a la fecha y la hora. Dispone para ello de una declaración de variable: Date. Una variable declarada como date puede contener una fecha, una fecha y una hora o una hora solamente.

Dim MyDate As Date Dim MyMonth As Integer  MyDate = #2/12/1969# ' Assign a date. MyMonth = Month( MyDate) ' MyMonth contains 2. Now Devuelve la fecha y hora actual. Devuelve el día de la semana (En número, 1=Domingo, 2=Lunes,...) WeekDay Dim MyDate As Date Dim MyWeekDay As Integer  MyDate = #2/12/1969# ' asigna una fecha MyWeekDay = Weekday(MyDate ) ' MyWeekDay contains 4 Obtiene el día, a partir de una fecha Day Dim MyDate As Date Dim MyDay As Integer  MyDate = #2/12/1969# . MyDay = Microsoft.VisualBasic. Day(MyDate) ' MyDay contains 12.

Month Obtiene el mes a partir de una fecha. MyMonth = Month(MyDate) ' MyMonth contains 2. Obtiene el año a partir de una fecha.  Year  MyYear

= Year(MyDate) ' MyYear contains 1969.

Hour 

Obtiene la hora a partir de una hora

Minute

Obtiene el minuto a partir de una hora.

I.S.T.”Idat”

24

ASP.NET

Aplicaciones Web

Second

Obtiene el segundo a partir de una hora.

DateAdd

 Añade un intervalo de tiempo a una fecha

Interval  Requerido. Valor de enumeración DateInterval o expresión String que representa el intervalo de tiempo que se desea agregar. Number  Requerido. Double. Expresión de punto flotante que representa el número de intervalos que se desea agregar. Number puede ser un valor positivo (para obtener fechas u horas futuras) o negativo (para obtener fechas u horas pasadas). Puede contener una parte decimal cuando Interval especifica horas, minutos o segundos. Para otros valores de Interval , se omite cualquier parte decimal de Number . DateValue Requerido. Date. Expresión que representa la fecha y la hora a la que debe agregarse el intervalo. El propio DateValue no se modifica en el programa que realiza la llamada.

Valores

El argumento Interval puede tener uno de los siguientes valores: Valor de enumeración DateInterval.Day DateInterval.DayOfYear DateInterval.Hour DateInterval.Minute DateInterval.Month DateInterval.Quarter DateInterval.Second DateInterval.Weekday DateInterval.WeekOfYear DateInterval.Year

Cadena Unidad de intervalo de tiempo agregada d Día; truncado al valor integral y Día; truncado al valor integral h Hora; redondeada al milisegundo más cercano n Minuto; redondeado al milisegundo más cercano m Mes; truncado al valor integral q Trimestre; truncado al valor integral s Segundo; redondeado al milisegundo más cercano w Día; truncado al valor integral ww Semana; truncada al valor integral yyyy Año; truncado al valor integral

Dim NextTime As Date = Now ' Current date and time. NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. En este ejemplo se toma una fecha y mediante la función DateAdd, se muestra la fecha correspondiente un número especificado de meses en el futuro.

Dim Msg, Number, StartDate As String 'Declare variables. Dim Months As Double Dim SecondDate As Date Dim IntervalType As DateInterval IntervalType = DateInterval.Month ' Especifica intervalos en meses. StartDate = InputBox("Ingrese fecha ") SecondDate = CDate(StartDate)

I.S.T.”Idat”

25

ASP.NET

Aplicaciones Web Number = InputBox("Ingrsa el numero de meses a adicionar") Months = Val(Number) Msg = "New date: " & DateAdd( IntervalType, Months, SecondDate )

Aplicación con Datgrid pero sin conexión a BDD

RequieredFieldValidator.-(valida2) Errormensage Campo oblugatorio ControlTovalidate:Txtmon

RangeValidator (Valida1) ErrorMessage.- Mes entre 6- 18 ControlTovalidate.- Txtmes ValidationSummary .- Resumen de errores

Public Class WebForm3 Inherits System.Web.UI.Page +codigo Generado Dim dt As DataTable Dim dr As DataRow Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub BtnCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcula.Click Dim m, mes As Integer Dim interes, monto, mactual As Double Dim fecha As Date = Date.Now mes = Val(txtmes.Text) monto = Val(txtmon.Text) dt = New DataTable() dt.Columns.Add(New DataColumn("Mes")) dt.Columns.Add(New DataColumn("Interes"))

I.S.T.”Idat”

26

ASP.NET

Aplicaciones Web dt.Columns.Add(New DataColumn("Monto")) For m = 1 To mes interes = monto * 0.01 * m mactual = interes + monto fecha = DateAdd("m", 1, fecha) dr = dt.NewRow() dr(0) = Format(fecha, "dd/MM/yy") ' si escribe la m con minuscula asumira como m en minutos dr(1) = interes.ToString() dr(2) = mactual.ToString 'Adiciona una fila al datatable dt.Rows.Add(dr) Next DataGrid1.DataSource = New DataView(dt) DataGrid1.DataBind() End Sub End Class

Aplicacion empleando Hipervínculos en un formulario Se ingresa el código del cliente, si existe muestra su orden y al hacer un clic en ver detalle muestra el detalle de ese pedido

º

En el datagrid1 en generador de proiedades:

I.S.T.”Idat”

27

ASP.NET

Aplicaciones Web

Dar el encabezado  para cada columna en columna enlzada Y en columna Hipervínculo llamar al formulario Frmdetalle.aspx  pasando el numero de orden={0}

I.S.T.”Idat”

28

ASP.NET

Aplicaciones Web

Formulario FRMDETALLE.ASPX

Codificación en el formulario FRMOrden.aspx Imports System.Data.SqlClient Public Class weborden Inherits System.Web.UI.Page Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox Protected WithEvents BtnBusca As System.Web.UI.WebControls.Button Protected WithEvents Lbmensaje As System.Web.UI.WebControls.Label Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid + Código generado por el Diseñador de Web Forms " Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub BtnBusca_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles BtnBusca.Click Dim cn As New SqlConnection("uid=sa;database=northwind;server=(local)") Dim objda As New SqlDataAdapter("select OrderId,OrderDate,Freight from orders where customerid='" + TextBox1.Text + "'", cn) Dim objds As New DataSet() Dim NRO As Integer  objda.Fill(objds) DataGrid1.DataSource = objds DataGrid1.DataBind() NRO = DataGrid1.Items.Count If NRO > 0 Then

I.S.T.”Idat”

29

ASP.NET

Aplicaciones Web Lbmensaje.Text = NRO Else Lbmensaje.Text = "NO EXISTE CLIENTE" End If  End Sub End Class Codificación FRMDETALLE.ASPX pasando el numero de pedido (orden)

Codificación Imports System.Data.SqlClient Public Class FrmDetalle Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Lbtot As System.Web.UI.WebControls.Label Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink Protected WithEvents LBNRO As System.Web.UI.WebControls.Label +Region " Código generado por el Diseñador de Web Forms " Dim cn As New SqlConnection("uid=sa;database=northwind;server=(local)") Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Introducir aquí el código de usuario para inicializar la página Dim SQL As String SQL = "SELECT ProductName,Quantity,p.UnitPrice,Total=Quantity*P.UnitPrice " SQL += " from [order Details] D Inner Join Products P on P.Productid=D.ProductId " SQL += " where OrderId=" + Request.QueryString("orden") Dim objda As New SqlDataAdapter(SQL, cn) Dim objds As New DataSet() Dim NRO, F As Integer  Dim sm As Double objda.Fill(objds) DataGrid1.DataSource = objds DataGrid1.DataBind() LBNRO.Text = Request.QueryString("orden") NRO = DataGrid1.Items.Count ‘ determina cuantas filas hay en el grid If NRO > 0 Then Dim dr  As DataTable ‘ variable tipo tabla dr = objds.Tables(0) ‘ asigna la tabla del dataset sm = 0 For F = 0 To NRO – 1 ‘recorre la tabla pero de la columna total (3) sm += dr.Rows(F).Item(3) Next Lbtot.Text = sm End If  End Sub

I.S.T.”Idat”

30

ASP.NET

Aplicaciones Web End Class

Aplicación Consulta en cascada .- en un DropDownList1 colocar los nombres de los clientes (CompanyName) pero cuando se elige un cliente que acceda a su código CustomerId , mostrando en DropDownList2 todos sus pedidos y al elegir un pedido que muestre el detalle de ese pedido

Controles empleados

DropDwonList2 (para Clientes) DropDownList1 Para pedidos Ambos colocar en la  propiedad: AutoPostBack=True Para que pueda seleccionarse Un Datagrid1 y una etiquita LBtot

Imports System.Data.SqlClient Public Class webpedidos Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Lbtot As System.Web.UI.WebControls.Label Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label5 As System.Web.UI.WebControls.Label + " Código generado por el Diseñador de Web Forms " Dim cadcon = "uid=sa; database=northwind;server=(local)" Dim cn As New SqlConnection(cadcon) Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Introducir aquí el código de usuario para inicializar la página

I.S.T.”Idat”

31

ASP.NET

Aplicaciones Web If Not IsPostBack Then clientes() ‘ Si la pagina no ha sido cargada End If  End Sub Sub clientes() Dim ds As New DataSet() Dim da As New SqlDataAdapter("select Customerid, Companyname from Customers", cn) da.Fill(ds, "Cliente") DropDownList2.DataSource = ds DropDownList2.DataTextField = "Companyname" ' Muestra el Nombre DropDownList2.DataValueField = "Customerid" 'Para acceder a su codigo DropDownList2.DataBind() da.Dispose() cn.Dispose() End Sub Sub verpedidos() Dim ds As New DataSet() Dim da As New SqlDataAdapter("select * from orders where customerid='" + DropDownList2.SelectedItem.Value + "'", cn) da.Fill(ds, "orden") DropDownList1.DataSource = ds DropDownList1.DataTextField = "orderid" 'DropDownList1.DataValueField = "orderid" DropDownList1.DataBind() da.Dispose() cn.Dispose() End Sub Sub VerDetalle() Dim da As SqlDataAdapter  Dim sql As String Dim ds As New DataSet() sql = "SELECT ProductName,Quantity,p.UnitPrice,Total=Quantity*P.UnitPrice " sql += " from [order Details] D Inner Join Products P on P.Productid=D.ProductId " sql += " where OrderId=" + Me.DropDownList1.SelectedItem.Text da = New SqlDataAdapter(sql, cn) da.Fill(ds) DataGrid1.DataSource = ds DataGrid1.DataBind() Dim sm As Single Dim f  As Integer  Dim dt As DataTable sm = 0 dt = ds.Tables(0) For f = 0 To dt.DefaultView.Count - 1 sm = sm + dt.Rows(f).Item(3) Next Lbtot.Text = sm.ToString End Sub

I.S.T.”Idat”

32

ASP.NET

Aplicaciones Web Private Sub DropDownList1_SelectedIndexChanged( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged VerDetalle() End Sub

Private Sub DropDownList2_SelectedIndexChanged( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged verpedidos() End Sub End Class

Aplicacion.Empleando el espacio de trabajo system.data.oledb el cual se puede aplicar a cualquier BBD como oracle, sysbase, Access , etc. Porque la conexión es a traves de un proveedor, la aplicación consiste en seleccionador un cliente desde un DropDwonList , ademas buscar el detalle pedido del mayor monto.

Aspnet

I.S.T.”Idat”

33

ASP.NET

Aplicaciones Web

Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Text Public Class Clientes Inherits System.Web.UI.Page Protected WithEvents CboCustomer As System.Web.UI.WebControls.DropDownList Protected WithEvents BtnBuscar As System.Web.UI.WebControls.Button Protected WithEvents BtnRegresar As System.Web.UI.WebControls.Button Protected WithEvents BtnMayor As System.Web.UI.WebControls.Button Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents DgdOrdenes As System.Web.UI.WebControls.DataGrid Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents DgdDetalle As System.Web.UI.WebControls.DataGrid Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Label1 As System.Web.UI.WebControls.Label + codigo Generado Código generado por el Diseñador de Web Forms " Dim OCon As OleDb.OleDbConnection Dim SCon As String Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Introducir aquí el código de usuario para inicializar la página Dim Sql As String SCon = "Provider=SqlOleDb;uid=sa;pwd=;database=northwind;server=(local)" OCon = New OleDb.OleDbConnection(SCon) Sql = "Select * From Customers" Dim Cmd As OleDb.OleDbCommand Cmd = New OleDb.OleDbCommand(Sql, OCon) Cmd.Connection.Open() Dim OReader As OleDb.OleDbDataReader OReader = Cmd.ExecuteReader While OReader.Read CboCustomer.Items.Add(OReader.GetString(1)) CboCustomer.Items(CboCustomer.Items.Count - 1).Value = OReader.GetString(0) End While OReader.Close() End Sub Private Sub BtnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscar.Click Dim SSql As StringBuilder Dim XCustomerId As String SSql = New StringBuilder("Select O.OrderId, O.ShipCountry, O.OrderDate, Sum(D.UnitPrice * D.Quantity) As Monto From Orders O, [Order Details] D Where O.OrderId = D.OrderId And CustomerId = '")

I.S.T.”Idat”

34

ASP.NET

Aplicaciones Web XCustomerId = Me.CboCustomer.SelectedItem.Value SSql.Append(XCustomerId) SSql.Append("' Group By O.CustomerId, O.OrderId, O.ShipCountry, O.OrderDate") Dim Cmd As New OleDb.OleDbCommand(SSql.ToString, OCon) Dim OReader = Cmd.ExecuteReader DgdOrdenes.DataSource = OReader DgdOrdenes.DataBind() DgdDetalle.DataSource = "" DgdDetalle.DataBind() End Sub Private Sub BtnMayor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMayor.Click Dim WSql As String Dim WCustomerId As String Dim WOrderId As String WCustomerId = Me.CboCustomer.SelectedItem.Value WSql = "Select Top 1 O.OrderId, Sum(D.UnitPrice * D.Quantity) As Monto From Orders O, [Order Details] D Where O.OrderId = D.OrderId And CustomerId = '" + WCustomerId + "' Group By O.CustomerId, O.OrderId Order By Monto Desc" Dim WCmd As New OleDb.OleDbCommand(WSql, OCon) Dim WReader As OleDb.OleDbDataReader WReader = WCmd.ExecuteReader While WReader.Read() WOrderId = WReader(0) End While WReader.Close() 'Llenar el Detalle del Grid de Mayor Monto Dim YSql As StringBuilder Dim YCustomerId As String YSql = New StringBuilder("Select D.OrderId, D.ProductId, P.ProductName, D.UnitPrice, D.Quantity, D.UnitPrice * D.Quantity As SubTotal From [Order Details] D, Products P Where D.ProductId = P.ProductId And OrderId = '") YSql.Append(WOrderId) YSql.Append("' Order By P.ProductId") Dim YCmd As New OleDb.OleDbCommand(YSql.ToString, OCon) Dim YReader = YCmd.ExecuteReader DgdDetalle.DataSource = YReader DgdDetalle.DataBind() End Sub Private Sub BtnRegresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRegresar.Click

I.S.T.”Idat”

35

ASP.NET

Aplicaciones Web Response.Redirect("Menu.aspx") End Sub End Class

Aplicación con Web Form Empleando la BDD Universidad Adición y eliminación e datos sin emplear Store Procedure

Codificación.‘Autor : A. Moreno Imports System.Data.SqlClient Public Class WebForm1 Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Dim cadcon = "uid=sa; database=Universidad;server=(local)" Dim cn As New SqlConnection(cadcon) Protected WithEvents Button3 As System.Web.UI.WebControls.Button Dim ds As DataSet + Código generado por el Diseñador de Web Forms " Dim da As SqlDataAdapter  Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

I.S.T.”Idat”

36

ASP.NET

Aplicaciones Web 'Introducir aquí el código de usuario para inicializar la página Button1.Enabled = False llena() End Sub Sub llena() ds = New DataSet() ´ Para mostrar la lista de curso da = New SqlDataAdapter("select * from curso", cn) da.Fill(ds) DataGrid1.DataSource = ds DataGrid1.DataBind() End Sub Private Sub BtNuevo_Click(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim nf, nro As Integer  Dim cad As String nf = ds.Tables(0).DefaultView.Count - 1 nro = CInt(Right(ds.Tables(0).Rows(nf).Item(0), 3)) + 1 cad = "C" & Format(nro, "000") TextBox1.Text = cad Button1.Enabled = True End Sub Private Sub BtnGraba_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cmd As SqlCommand Dim prm As SqlParameter  Dim sql As String sql = "insert into curso values(@codc,@nomc,@nhr)" cn.Open() cmd = New SqlCommand(sql, cn) 'Primera forma 'prm = cmd.Parameters.Add("@codc", SqlDbType.Char, 4) 'prm.Direction = ParameterDirection.Input 'prm.Value = TextBox1.Text 'prm = cmd.Parameters.Add("@nomc", SqlDbType.VarChar, 35) 'prm.Direction = ParameterDirection.Input 'prm.Value = TextBox2.Text 'prm = cmd.Parameters.Add("@nhr", SqlDbType.Int) 'prm.Direction = ParameterDirection.Input 'prm.Value = TextBox3.Text 'Segunda forma cmd.Parameters.Add("@codc", TextBox1.Text) cmd.Parameters.Add("@nomc", TextBox2.Text) cmd.Parameters.Add("@nhr", CInt(TextBox3.Text)) cmd.ExecuteNonQuery() cmd.Dispose() cn.Close() llena()

I.S.T.”Idat”

37

ASP.NET

Aplicaciones Web Button1.Enabled = False End Sub Private Sub BTnAnula_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim sql As String Dim prm As SqlParameter  cn.Open() sql = "delete from curso where idcurso=@cod" Dim cmd As New SqlCommand(sql, cn) cmd.Parameters.Add("@codc", TextBox1.Text) cmd.ExecuteNonQuery() cmd.Dispose() cn.Close() llena() End Sub End Class

Aplicación mantenimiento a una tabla.Mantenimento a la tabla alumno empleando Store Procedure Para insertar o adicionar nuevos alumnos

create Procedure sP_ADIaLU @COD CHAR(5),@APE VARCHAR(30),@Nom varchar(30), @idesp char(3), @pro as char(1) as insert into alumno values(@cod,@ape,@nom,@idesp,@pro) return Para anular  create Procedure SP_DELALU @COD CHAR(5) as delete from alumno where idalumno=@cod return

I.S.T.”Idat”

38

ASP.NET

Aplicaciones Web

‘Autor: A. Moreno Imports System.Data.OleDb Imports System.Text Public Class wegadiciona Inherits System.Web.UI.Page Protected WithEvents BtnAnula As System.Web.UI.WebControls.Button Dim CN As New OleDbConnection("PROVIDER=SQLOLEDB;UID=SA;DATABASE=UNIVERSIDAD;SER VER=(LOCAL)") + Código generado por el Diseñador de Web Forms " Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Introducir aquí el código de usuario para inicializar la página Dim CMD As New OleDbCommand() If Page.IsPostBack = False Then CN.Open() With CMD .Connection = CN .CommandType = CommandType.Text .CommandText = "SELECT * FROM ESPECIALIDAD" End With Dim DA As New OleDbDataAdapter(CMD) Dim DS As New DataSet()

I.S.T.”Idat”

39

ASP.NET

Aplicaciones Web DA.Fill(DS) cbe.DataSource = DS cbe.DataTextField = "NOMESP" cbe.DataValueField = "IDESP" cbe.DataBind() DA.Dispose() CMD.Dispose() CN.Close() DGD() End If  End Sub Public Function DGD() Dim cmd As New OleDb.OleDbCommand() CN.Open() cmd.Connection = CN cmd.CommandType = CommandType.Text cmd.CommandText = "select * from alumno" Dim da As New OleDbDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds) Me.DataGrid1.DataSource = ds.Tables(0).DefaultView Me.DataGrid1.DataBind() cmd.Dispose() CN.Close() End Function Private Sub btnuevo_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles btnuevo.Click Dim CMD As New OleDbCommand() CN.Open() With CMD .Connection = CN .CommandType = CommandType.Text .CommandText = "SELECT ISNULL(MAX(IDALUMNO),'A0000') FROM  ALUMNO" End With Dim CAD As String = CMD.ExecuteScalar  Dim NRO As Integer  NRO = Val(CAD.Substring(1, 4)) + 1 TextBox1.Text = "A" + Format(NRO, "0000") CN.Close() End Sub Private Sub btngraba_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles btngraba.Click Dim cmd As New OleDbCommand() Dim prm As OleDbParameter  CN.Open() With cmd .Connection = CN

I.S.T.”Idat”

40

ASP.NET

Aplicaciones Web .CommandType = CommandType.StoredProcedure .CommandText = "sp_adialu" End With prm = cmd.Parameters.Add("@cod", OleDbType.Char, 5) prm.Direction = ParameterDirection.Input prm.Value = TextBox1.Text prm = cmd.Parameters.Add("@ape", OleDbType.VarChar, 30) prm.Direction = ParameterDirection.Input prm.Value = txtape.Text prm = cmd.Parameters.Add("@nom", OleDbType.VarChar, 30) prm.Direction = ParameterDirection.Input prm.Value = txtnom.Text prm = cmd.Parameters.Add("@idesp", OleDbType.Char, 3) prm.Direction = ParameterDirection.Input prm.Value = cbe.SelectedItem.Value prm = cmd.Parameters.Add("@pro", OleDbType.Char, 1) prm.Direction = ParameterDirection.Input prm.Value = rbp.SelectedItem.Value cmd.ExecuteNonQuery() cmd.Dispose() CN.Close() DGD() End Sub Private Sub BtnAnula_Click( ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles BtnAnula.Click Dim sql As String Dim cmd As New OleDbCommand() Dim prm As OleDbParameter  CN.Open() With cmd .Connection = CN .CommandType = CommandType.StoredProcedure .CommandText = "sp_delalu" End With prm = cmd.Parameters.Add("@cod", OleDbType.Char, 5) prm.Direction = ParameterDirection.Input prm.Value = TextBox1.Text CN.Open() cmd.ExecuteNonQuery() cmd.Dispose() CN.Close() DGD() 'Llama al listado End Sub End Class

I.S.T.”Idat”

41

ASP.NET

Aplicaciones Web

Paginacion en un listado Cuando la lista de datos es muy grande es necesario hacer la paginación del listado

Imports System.Data Imports System.Data.SqlClient Public Class PAGINACION Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents DGDPRODUCTO As System.Web.UI.WebControls.DataGrid + Código generado por el Diseñador de Web Forms " Public Sub CARGAR_DATO() Dim CN As New SqlConnection("UID=SA;PWD=;DATABASE=NORTHWIND;SERVER=.") Dim DA As New SqlDataAdapter("SELECT Codigo=ProductId,Descripcion =Productname, Precio=UnitPrice ,Stock=UnitsinStock FROM PRODUCTS", CN) Dim DS As New DataSet() DA.Fill(DS) DGDPRODUCTO.DataSource = DS.Tables(0).DefaultView DGDPRODUCTO.DataBind() End Sub Private Sub Page_Load(ByVal sender  As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If(not Page.ispostBack) then CARGAR_DATO() End if  End Sub Public Sub PAGINAR(ByVal MIOBJETO As Object, ByVal MIEVENTO As DataGridPageChangedEventArgs) DGDPRODUCTO.CurrentPageIndex = MIEVENTO.NewPageIndex CARGAR_DATO() End Sub

I.S.T.”Idat”

42

ASP.NET

Aplicaciones Web End Class

I.S.T.”Idat”

43

ASP.NET

Aplicaciones Web

Edición, y Eliminación de Registros en Línea Editar registros significa cambiar el contenido de algunos de los campos o columnas por nueva información o para corregir algún error de captura original o para agregar alguna columna que no existía por modificación de la tabla o la base de datos. En general se tiene otro problema de SQL UPDATE, sin embargo ahora se aprovechan algunos elementos nuevos del objeto datagrid, como son la capacidad que tiene de crearle columnas de edición a los renglones que muestra el dataset, estas columnas de edición traen sus propios métodos, mismos que se pueden cargar con codigo para procesar  Instrucciones empleadas.-

Itemcommand Se produce cuando se hace clic en cualquier botón del control DataGrid. El controlador de eventos recibe un argumento de tipo DataGridCommandEventArgs que contiene datos relacionados con el evento. Las siguientes propiedades de

DataGridCommandEventArgs proporcionan información específica para el evento Propiedad Descripción CommandArgument (se hereda de CommandEventArgs) CommandName (se hereda de CommandEventArgs) CommandSource Item

Obtiene el argumento del comando. Obtiene el nombre del comando. Obtiene el origen del comando. Obtiene el elemento que contiene el origen del comando en el control DataGrid.

Este evento suele utilizarse para controlar los controles de botones con un valor  CommandName personalizado en el control DataGrid Utilice en Propiedades del datagrid la colección DataKeys para obtener acceso a los valores clave de cada registro (que se muestra en forma de fila) de un control de lista de datos. Esto permite almacenar el campo clave con un control de lista de datos, sin mostrarlo en el propio control. La colección se llena automáticamente con los valores del campo especificado por la propiedad DataKeyField. El campo clave se suele utilizar en un controlador de evento, como por ejemplo ItemCommand o

DeleteCommand, como parte de una cadena de consulta de actualización para la revisión de un registro específico del origen de datos. El campo clave ayuda a la cadena de consulta de actualización a identificar el registro apropiado que se debe modificar. Para obtener más información sobre cómo obtener acceso a datos con ASP.NET, vea Acceso a datos con ASP.NET.

DatakeyField I.S.T.”Idat”

44

ASP.NET

Aplicaciones Web Obtiene o establece el campo clave del origen de datos especificado por la propiedad DataSource. Valor de la propiedad Nombre del campo clave del origen de datos especificado por la propiedad DataSource. Comentarios Utilice la propiedad DataKeyField para especificar el campo clave del origen de datos indicado por  la propiedad DataSource. El campo especificado se utiliza para rellenar la colección DataKeys. Esto permite almacenar el campo clave con un control de lista de datos, sin mostrarlo en el propio control. El campo clave se suele utilizar en un controlador de evento, como por ejemplo

ItemCommand o DeleteCommand, como parte de una cadena de consulta de actualización para la revisión de un registro específico del origen de datos. El campo clave ayuda a la cadena de consulta de actualización a identificar el registro apropiado que se debe modificar  La propiedad CommandArgument puede contener cualquier cadena establecida por el programador. La propiedad CommandArgument complementa la propiedad CommandName ya que permite facilitar información adicional para el comando. Por ejemplo, se puede establecer la propiedad CommandName en Sort y la propiedad CommandArgument en Ascending para especificar un comando con el fin de organizar en orden ascendente. Utilice la propiedad CommandName para determinar el comando que se va a ejecutar. La propiedad CommandName puede contener cualquier cadena establecida por el programador. Posteriormente, el programador podrá identificar el nombre de comando en el código y llevar a cabo las tareas pertinentes. La propiedad Item se utiliza para obtener acceso a las propiedades del elemento seleccionado en el control DataGrid. Ejemplo [Visual Basic, C#] En el siguiente ejemplo se muestra cómo recuperar la descripción y el precio de un elemento del control DataGrid mediante la propiedad Item. [Visual Basic]

Sub Grid_CartCommand(sender As Object, e As DataGridCommandEventArgs) ' e.Item Es una fila de la tabla que es seleccionada. ' Para las columnas enlazadas, Los valores almacenados con la propiedad TableCell. Dim itemCell As TableCell = e.Item.Cells(2) Dim priceCell As TableCell = e.Item.Cells(3) Dim item As String = itemCell.Text Dim price As String = priceCell.Text If CType(e.CommandSource, Button).CommandName = "AddToCart" Then

I.S.T.”Idat”

45

ASP.NET

Aplicaciones Web

' Insert code to add an item to the cart. Else ' Insert code to remove an item from the cart. End If  ShoppingCart.DataBind() End Sub 'Grid_CartCommand

Edición y Modificación DataGrid.- con el nombre Grid DataKeyField: Cli_codigo, colocar en las cajas de textos : Txtncod, Txtnom, txtdireccion y txtruc

Pasos : a) En el datagrid hacer Clic derecho: utilizar generador de propiedades:

I.S.T.”Idat”

46

ASP.NET

Aplicaciones Web

Enlazar en cada columna con los nombres de los campos en forma a priori, estos campos tienen que ser seleccionados en la instrucción select Codifiacion:

<%@Import Namespace="System.Data.SqlClient"%> <%@Import Namespace="System.Data"%> <%@Import Namespace="Microsoft.VisualBasic"%> <SCRIPT language="vb" runat="server"> Dim Cn as SqlConnection Dim Cmd as SqlCommand Dim StrSql as String Sub Page_Load Cn=New SqlConnection("Server=(Local);Uid=Sa;Database=Bdfactura") if Not Page.Ispostback then EnlaceGrid End if  End Sub Sub EnlaceGrid Cmd= new SqlCommand("Select cli_codigo,Cli_nombre,cli_direccion,Cli_Ruc From Clientes",Cn) Cn.Open()

I.S.T.”Idat”

47

ASP.NET

Aplicaciones Web Grid.datasource=Cmd.executeReader() Grid.databind() Cn.close() End Sub Sub Grid_Editar(s as Object,e as DatagridCommandEventArgs) Grid.EditItemIndex=e.Item.ItemIndex EnlaceGrid End Sub Sub Grid_Update(s as Object,e as DatagridCommandEventArgs) Dim vCod_Cli as String Dim txtNombre as Textbox Dim txtDireccion as Textbox Dim txtRuc as Textbox Dim vNombre as String Dim vDireccion as String Dim vRuc as String vCod_Cli=Grid.DataKeys(e.Item.ItemIndex) txtNombre=e.Item.Cells(1).Controls(0) txtDireccion=e.Item.Cells(2).Controls(0) txRuc=e.Item.Cells(3).Controls(0) vNombre=txtNombre.text vDireccion=txtDireccion.text vRuc=txtRuc.text StrSql="Update clientes set cli_nombre=@Nombre,Cli_direccion=@direccion,Cli_ruc=@Ruc where Cli_codigo=@codigo" cmd=new SqlCommand(StrSql,Cn) cmd.parameters.add("@Nombre",vNombre) cmd.parameters.add("@direccion",vDireccion) cmd.parameters.add("@ruc",Cdbl(vRuc)) cmd.Parameters.add("@codigo",vCod_Cli) Cn.open() Cmd.executeNonQuery() Cn.Close() Cmd.Dispose() Grid.EditItemIndex=-1 EnlaceGrid End Sub Sub Grid_Cancel(s as Object,e as DatagridCommandEventArgs) Grid.EditItemIndex=-1 EnlaceGrid End Sub Sub Grid_Delete(s as Object,e as DatagridCommandEventArgs) Dim vCodigo as String vCodigo=Grid.DataKeys(e.item.ItemIndex)

I.S.T.”Idat”

48

ASP.NET

Aplicaciones Web cmd=new SqlCommand("Delete From Clientes Where cli_Codigo=@codigo",Cn) cmd.parameters.add("@codigo",vCodigo) Cn.open() Cmd.executeNonQuery() Cn.close() Grid.EditItemIndex=-1 EnlaceGrid End Sub  public Sub MNuevo(sender As Object, e As System.EventArgs) Cmd=New SqlCommand("Select Count(*) From Clientes",Cn) Cn.Open() Dim xValor as Integer  xValor=Cmd.ExecuteScalar() Cn.Close() txtCod.text="":txtNom.text="":txtFec.text="":txtdir.text="" txtCod.text="C"+Right("0000"+ Trim(Str(xValor+1)),4) End Sub  public Sub MGrabar(sender As Object, e As System.EventArgs) StrSql="Insert Into Clientes (cli_codigo,cli_nombre,cli_direccion,cli_ruc) values(@cod_cli,@nom_cli,@direccion,@ruc)" cmd=New SqlCommand(StrSql,Cn) cmd.parameters.add("@cod_cli",txtCod.text) cmd.parameters.add("@nom_cli",txtNom.text) cmd.parameters.add("@direccion",txtDir.text) cmd.parameters.add("@ruc",txtFec.text) cn.open() cmd.executeNonQuery() cn.close() txtCod.text="":txtNom.text="":txtFec.text="":txtdir.text="" EnlaceGrid End Sub