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
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 |
| 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: