December 19th, 2010 
admin Primero creamos la tabla Empleado en MS SqlServer:
CREATE TABLE Empleado ( IdEmpleado int NOT NULL, Nombres varchar(50) NULL, Apellidos varchar(50) NULL, FechaNac date NULL, CONSTRAINT PK_Empleado PRIMARY KEY CLUSTERED (IdEmpleado) )
creamos la clase Empleado_Ent que pertenecerá a la capa Entidad:
December 18th, 2010 admin creamos la capa acceso a datos, que consta de una clase que contiene una función que nos devuelve un SqlConnection.
Imports System.Data.SqlClient Public Class CapaDatos Dim cCadena As String = "Data Source=PCServer;Initial Catalog=solocodigofuente;Integrated Security=True" Public Function Conexion() As SqlConnection Dim cn As New SqlConnection(cCadena) Return cn End Function End Class
August 12th, 2010 admin 
Nota: Esta aplicación puede ser modificada para usarlo como una especie de calendario completo, notas, agenda, recordatorio, etc. Para el mejor funcionamiento de este utilitario inicializalo con s.o.
April 29th, 2010 admin Enunciado:
“Elaborar una aplicacion mediante la cual se solicite ingresar dos valores numericos; se deberá de determinar la suma de dichos valores por tanteo aleatorio. Los valores que se irán obteniendo aleatoriamente se deberan de almacenar en una base, que representará la base de conocimientos. La búsqueda del resultado siempre se realizará primero buscando en la base el resultado, en caso hallase se mostrará dicho resultado, caso contrario se deberá de continuar con el tanteo aleatorio para encontrar el resultado.”
1 2 3 4 5 6 7 8 9 10 11 12 13 | USE dbConocimiento CREATE TABLE [dbo].[Conocimiento]( [Id] [int] IDENTITY(1,1) NOT NULL, [num1] [int] NULL, [num2] [int] NULL, [suma] [int] NULL, [estado] [bit] NULL, CONSTRAINT [PK_Conocimiento] PRIMARY KEY CLUSTERED ( [Id] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO |
March 25th, 2010 admin 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Asignar temperatura aleatoria Dim tr As New Random Dim t As Short t = tr.Next(0, 100) pbTermometro.Value = t Label2.Text = t & "°C" End Sub
| M | T | W | T | F | S | S |
|---|---|---|---|---|---|---|
| « Feb | ||||||
| 1 | 2 | 3 | 4 | 5 | 6 | |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | 31 | |||
Publicidad
Tags: