Practica Nº6.docx

Ludeña Sanchez Luis

CI-VI-17

PRACTICA Nº6 <% @ Import Namespace="system.Data"%> <% @ Import Namespace="system.Data.SqlClient"%> <script language="VB" runat=server> Sub SubmitBtm_click(Sender As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyCommand As SqlDataAdapter MyConnection = New SqlConnection("server=.;Integrated Security=SSPI;database=clavo") MyCommand = New SqlDataAdapter("select * from Titulos where tipo='" + Category.SelectedItem.Value + "'", MyConnection) DS = New DataSet() MyCommand.Fill(DS, "Titulos") MyList.DataSource = DS.Tables("Titulos").DefaultView MyList.DataBind() End Sub

Selección: Psychology business popular_comp

Ludeña Sanchez Luis

CI-VI-17

SQL use master create database clavo use clavo CREATE TABLE Titulos(Titulo_id VARCHAR(40)not null primary key, Titulo VARCHAR (50),tipo VARCHAR (50), stand VARCHAR (50)) insert Titulos (Titulo_id,Titulo,tipo,stand) values ('101A','Cerebro Humano','Psychology','10'), ('102A','Cabeza','Psychology','11'), ('103A','ComercioElectronico','business','12')

RESULTADO

Ludeña Sanchez Luis

CI-VI-17

PRACTICA Nº7

A continuacion se muestra como declarar el control de servidor <asp:label > y manipular las propiedades en una pagina.

---

---

Editorial San Marcos
Editorial Megabyte
Editorial Arsam

Ludeña Sanchez Luis

CI-VI-17

TAREA Nº7 <% @ Import Namespace="system.Data"%> <% @ Import Namespace="system.Data.SqlClient"%> <script language="VB" runat=server> Sub SubmitBtm_click(Sender As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyCommand As SqlDataAdapter MyConnection = New SqlConnection("server=.;Integrated Security=SSPI;database=PRUEBA") MyCommand = New SqlDataAdapter("select * from Alumno where cod_alumno='" + lista.SelectedItem.Value + "'", MyConnection) DS = New DataSet() MyCommand.Fill(DS, "Alumno") MyList.DataSource = DS.Tables("Alumno").DefaultView MyList.DataBind() End Sub Sub SubmitBtm1_click(Sender As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection1 As SqlConnection Dim MyCommand1 As SqlDataAdapter MyConnection1 = New SqlConnection("server=.;Integrated Security=SSPI;database=PRUEBA") MyCommand1 = New SqlDataAdapter("select * from Alumno where monb_alumno='" + lista2.SelectedItem.Value + "'", MyConnection1) DS = New DataSet() MyCommand1.Fill(DS, "Alumno") MyList.DataSource = DS.Tables("Alumno").DefaultView MyList.DataBind() End Sub

Selección por codigo: 001 002 003 004 005

Selección por nombre: LUIS ALBERTH ALBERTH JOSE JOSE MARCOS KEVIN GERARDO

Ludeña Sanchez Luis

CI-VI-17

---

Inicio de calse 05 de Octubre
Matricula Abierta

SQL use master create database Prueba use Prueba CREATE TABLE Alumno(cod_alumno VARCHAR(4)not null primary key, monb_alumno VARCHAR (50), edad VARCHAR (3), sexo VARCHAR (20), dni VARCHAR (50), direccion VARCHAR (50), telf VARCHAR (9)) insert INTO Alumno (cod_alumno,monb_alumno,edad,sexo,dni,direccion,telf)values ('001','LUIS ALBERTH','15','M','73240782','AV.PROCERES','2753831'), ('002','ALBERTH JOSE','25','M','65540782','AV.LOS TUBOS','4501001'), ('003','JOSE MARCOS','23','M','75555697','AV.JUAN MARCOS','4444578'), ('004','KEVIN','19','M','05577788','AV.JUANA','71464412'), ('005','GERARDO','M','22','7559874','AV.AGUSTINO','2789641')

RESULTADO

Ludeña Sanchez Luis

CI-VI-17

PRACTICA Nº8 <script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) Message.Text = "Fecha y Hora:" & DateTime.Now End Sub

PRACTICA Nº9 <script language="VB" runat="server"> Sub EnterBtn_click(Sender As Object, E As EventArgs) Message.Text = "Hola, me llamo " & Name.Text & " y estudio en el Instituto de Educación Superior Tecnológico Público Arturo Sabroso Montoya." End Sub

Ingrese su nombre: