Tips de Programación y Base de Datos

Amigos les envio algunos tips…cuando era estudiante de Computo..
Hace Años…uff… del Instituto Superior Tecnologico Publico “Argentina”
Lima – Perú

———————————-
[b]ERROR AL INSTALAR SQL 2000[/b]

Entrar al registro ( regedit )

HLM\System\CurrenControlSet\control\SessionManager   Archivo- Exportar – Guardar

Buscar y Eliminar

PendingfileRenameOperation

[b]Clave SQL 2000[/b]

H6TWQ – TQQM8 – HXJYG – D69F7 – R84VM

R7MPM – R36DT – F38FC – RPRx – XTG7M

———————————————————————————-

[b]Codigo para Visual .Net[/b]

Mostrar la fecha añadiendole los meses ingresados

Dim Msg, Number, StartDate As String
Dim Months As Double
Dim SecondDate As Date
Dim IntervalType As DateInterval
IntervalType = DateInterval.Month
StartDate = InputBox(“Enter a fecha dd/mm”)
SecondDate = CDate(StartDate)
Number = InputBox(“Ingrese Numero de Meses para Añadir”)
Months = Val(Number)
Msg = “New date: ” & DateAdd(IntervalType, Months, SecondDate)
MsgBox(Msg)

*************************
Muestra los Dias ya sea antes o Despues de la Fecha

Dim FirstDate, Msg As String   ‘ Declare variables.
Dim SecondDate As Date
FirstDate = InputBox(“Enter a date”)
SecondDate = CDate(FirstDate)
Msg = “Days from today: ” & DateDiff(DateInterval.Day, Now, SecondDate)
MsgBox (Msg)

En el siguiente ejemplo se utiliza la función Shell para iniciar la aplicación calculadora y multiplicar dos números; para ello, se envían pulsaciones de teclas mediante el método SendWait de la clase SendKeys.

Ejemplo:

Dim ProcID As Integer
‘ Start the Calculator application, and store the process id.
ProcID = Shell(“CALC.EXE”, AppWinStyle.NormalFocus)
‘ Activate the Calculator application.
AppActivate(ProcID)
SendKeys.SendWait(“22”)
SendKeys.SendWait(“*”)
SendKeys.SendWait(“44”)
SendKeys.SendWait(“=”)

[b]Visualizar Tooltip en una Imagen[/b]

Private Sub Piclove_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Piclove.MouseMove

Me.ToolTip1.SetToolTip(Me.Piclove, “BByGarita”)

End Sub

[b]Codigo de Desplazamiento de letras en el Titulo[/b]

Public Shared Sub main()
Try
Application.EnableVisualStyles()
Application.DoEvents()
Application.Run(New Form2)
Catch ex As Exception
End Try
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New Form1
a.ShowDialog()
StatusBarPanel1.Text = ” BByGarita Peliculas / Animes / Mangas/ Videos / Juegos…y mas”
StatusBarPanel4.Text = “Usuario :” & ” ” & Environment.UserName
StatusBarPanel5.Text = “PC :” & ” ” & Environment.MachineName
End Sub

Function timer()
Dim tit As String = Me.Text

Dim cad1 As String
Dim cad2 As String

cad1 = tit.Substring(0, 1)
cad2 = tit.Substring(1)
Me.Text = cad2 & cad1

StatusBarPanel3.Text = “Hora :” & TimeOfDay
StatusBarPanel2.Text = “Fecha :” & Today
End Function

function rotulo_izquierda()
{
window.status=txt2;
txt2=txt2.substring(1,txt2.length)+txt2.charAt(0);
refresco=setTimeout(“rotulo_izquierda()”,wait);
}

[b]Y por ultimo les dejo todo el codigo de una Base de datos en sql con su trigger y consultas[/b]

/*CREANDO BASE DA DATOS*/
create database POSTULANTES
go
/*ACTIVA BASE DE DATOS*/
use POSTULANTES
go

CREATE TABLE CONDICION (
Ingreso             CHAR NULL,
Carrera              CHAR NULL,
Puntaje              DECIMAL(15,5) NULL,
CODIGO_POST          VARCHAR(10) NOT NULL,
No_ingreso          CHAR NULL );

CREATE UNIQUE INDEX XAK1CONDICION ON CONDICION
(
CODIGO_POST                    ASC,
Carrera                        ASC
);

CREATE IN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             CHAR(18) NULL,
distrito             CHAR(18) NULL,
fecha_nac            INTEGER NULL
);

CREATE UNIQUE INDEX XAK1DATOS_POSTULANTE ON DATOS_POSTULANTE
(
CODIGO_POST                    ASC,
nombre                         ASC,
apellido_pat                   ASC,
apellido_mat                   ASC
);

CREATE INDEX XIE1DATOS_POSTULANTE ON DATOS_POSTULANTE
(
nombre                         ASC,
apellido_pat                   ASC,
apellido_mat                   ASC,
carrera                        ASC,
direcion                       ASC
);

ALTER TABLE DATOS_POSTULANTE
ADD   PRIMARY KEY (CODIGO_POST)

CREATE TABLE EXAMEN (
CODIGO_POST          VARCHAR(10) NOT NULL,
Carrera              CHAR NULL,
Rpt_corect           CHAR(18) NULL,
Rpt_incorrt          CHAR(18) NULL,
Puntaje              CHAR(18) NULL,
Punto_contra         CHAR(18) NULL
);

CREATE UNIQUE INDEX XAK1EXAMEN ON EXAMEN
(
CODIGO_POST                    ASC,
Puntaje                        ASC
);

CREATE INDEX XIE1EXAMEN ON EXAMEN
(
Carrera                        ASC,
Puntaje                        ASC
);

ALTER TABLE EXAMEN
ADD   PRIMARY KEY (CODIGO_POST)  ;

CREATE TABLE MATRICULA (
CODIGO_POST          VARCHAR(10) NOT NULL,
Nombre              CHAR NULL,
apellido_pat         CHAR NULL,
Apellido_mat        CHAR NULL,
Carrera              CHAR NULL,
turno               CHAR NULL,
Puntaje              DECIMAL(15,5) NULL,
Monto_pago           DECIMAL(15,5) NULL
);

CREATE UNIQUE INDEX XAK1MATRICULA ON MATRICULA
(
CODIGO_POST                    ASC,
Nombre                         ASC,
apellido_pat                   ASC,
Apellido_mat                   ASC,
Carrera                        ASC
);

CREATE INDEX XIE1MATRICULA ON MATRICULA
(
Nombre                         ASC,
Carrera                        ASC,
Puntaje                        ASC
);

ALTER TABLE MATRICULA
ADD  PRIMARY KEY (CODIGO_POST)

CREATE TABLE PAGOS (
nro_recibo           CHAR(18) NOT NULL,
monto_pago           DECIMAL(15,5) NULL,
fecha_pago           DATETIME NULL,
carrera              INTEGER NULL,
turno                INTEGER NULL,
CODIGO_POST          VARCHAR(10) NOT NULL
);

CREATE UNIQUE INDEX XAK1PAGOS ON PAGOS
(
nro_recibo                     ASC
);

CREATE INDEX XIE1PAGOS ON PAGOS
(
monto_pago                     ASC,
fecha_pago                     ASC,
carrera                        ASC
);

ALTER TABLE PAGOS
ADD  PRIMARY KEY (nro_recibo, CODIGO_POST)

ALTER TABLE CONDICION
ADD   FOREIGN KEY (CODIGO_POST)
REFERENCES EXAMEN

ALTER TABLE DATOS_POSTULANTE
ADD   FOREIGN KEY (CODIGO_POST)
REFERENCES EXAMEN
ON DELETE CASCADE  ;

ALTER TABLE PAGOS
ADD   FOREIGN KEY (CODIGO_POST)
REFERENCES DATOS_POSTULANTE ;

create trigger tD_CONDICION after DELETE on CONDICION for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— DELETE trigger on CONDICION
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN tiene resultado CONDICION ON CHILD DELETE RESTRICT */
select count(*) into numrows from EXAMEN
where
/* :old.CODIGO_POST = EXAMEN.CODIGO_POST */
old.CODIGO_POST = EXAMEN.CODIGO_POST;
if (numrows > 0) then
raise_application_error(
-20010,
‘Cannot DELETE CONDICION because EXAMEN exists.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tI_CONDICION after INSERT on CONDICION for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— INSERT trigger on CONDICION
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN tiene resultado CONDICION ON CHILD INSERT RESTRICT */
select count(*) into numrows
from EXAMEN
where
/* :new.CODIGO_POST = EXAMEN.CODIGO_POST */
:new.CODIGO_POST = EXAMEN.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20002,
‘Cannot INSERT CONDICION because EXAMEN does not exist.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tU_CONDICION after UPDATE on CONDICION for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— UPDATE trigger on CONDICION
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN tiene resultado CONDICION ON CHILD UPDATE RESTRICT */
select count(*) into numrows
from EXAMEN
where
/* :new.CODIGO_POST = EXAMEN.CODIGO_POST */
:new.CODIGO_POST = EXAMEN.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20007,
‘Cannot UPDATE CONDICION because EXAMEN does not exist.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tD_DATOS_POSTULANTE after DELETE on DATOS_POSTULANTE for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— DELETE trigger on DATOS_POSTULANTE
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* DATOS_POSTULANTE tiene PAGOS ON PARENT DELETE RESTRICT */
select count(*) into numrows
from PAGOS
where
/*  PAGOS.CODIGO_POST = :old.CODIGO_POST */
PAGOS.CODIGO_POST = :old.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20001,
‘Cannot DELETE DATOS_POSTULANTE because PAGOS exists.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tI_DATOS_POSTULANTE after INSERT on DATOS_POSTULANTE for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— INSERT trigger on DATOS_POSTULANTE
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN corresponde DATOS_POSTULANTE ON CHILD INSERT RESTRICT */
select count(*) into numrows
from EXAMEN
where
/* :new.CODIGO_POST = EXAMEN.CODIGO_POST */
:new.CODIGO_POST = EXAMEN.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20002,
‘Cannot INSERT DATOS_POSTULANTE because EXAMEN does not exist.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tU_DATOS_POSTULANTE after UPDATE on DATOS_POSTULANTE for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— UPDATE trigger on DATOS_POSTULANTE
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* DATOS_POSTULANTE tiene PAGOS ON PARENT UPDATE RESTRICT */
if
/* :old.CODIGO_POST <> :new.CODIGO_POST */
:old.CODIGO_POST <> :new.CODIGO_POST
then
select count(*) into numrows
from PAGOS
where
/*  PAGOS.CODIGO_POST = :old.CODIGO_POST */
PAGOS.CODIGO_POST = :old.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20005,
‘Cannot UPDATE DATOS_POSTULANTE because PAGOS exists.’
);
end if;
end if;

/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN corresponde DATOS_POSTULANTE ON CHILD UPDATE RESTRICT */
select count(*) into numrows
from EXAMEN
where
/* :new.CODIGO_POST = EXAMEN.CODIGO_POST */
:new.CODIGO_POST = EXAMEN.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20007,
‘Cannot UPDATE DATOS_POSTULANTE because EXAMEN does not exist.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tD_EXAMEN after DELETE on EXAMEN for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— DELETE trigger on EXAMEN
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN tiene resultado CONDICION ON PARENT DELETE RESTRICT */
select count(*) into numrows
from CONDICION
where
/*  CONDICION.CODIGO_POST = :old.CODIGO_POST */
CONDICION.CODIGO_POST = :old.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20001,
‘Cannot DELETE EXAMEN because CONDICION exists.’
);
end if;

/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN corresponde DATOS_POSTULANTE ON PARENT DELETE CASCADE */
delete from DATOS_POSTULANTE
where
/*  DATOS_POSTULANTE.CODIGO_POST = :old.CODIGO_POST */
DATOS_POSTULANTE.CODIGO_POST = :old.CODIGO_POST;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tU_EXAMEN after UPDATE on EXAMEN for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— UPDATE trigger on EXAMEN
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN tiene resultado CONDICION ON PARENT UPDATE RESTRICT */
if
/* :old.CODIGO_POST <> :new.CODIGO_POST */
:old.CODIGO_POST <> :new.CODIGO_POST
then
select count(*) into numrows
from CONDICION
where
/*  CONDICION.CODIGO_POST = :old.CODIGO_POST */
CONDICION.CODIGO_POST = :old.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20005,
‘Cannot UPDATE EXAMEN because CONDICION exists.’
);
end if;
end if;

/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* EXAMEN corresponde DATOS_POSTULANTE ON PARENT UPDATE RESTRICT */
if
/* :old.CODIGO_POST <> :new.CODIGO_POST */
:old.CODIGO_POST <> :new.CODIGO_POST
then
select count(*) into numrows
from DATOS_POSTULANTE
where
/*  DATOS_POSTULANTE.CODIGO_POST = :old.CODIGO_POST */
DATOS_POSTULANTE.CODIGO_POST = :old.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20005,
‘Cannot UPDATE EXAMEN because DATOS_POSTULANTE exists.’
);
end if;
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tD_PAGOS after DELETE on PAGOS for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— DELETE trigger on PAGOS
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* DATOS_POSTULANTE tiene PAGOS ON CHILD DELETE RESTRICT */
select count(*) into numrows from DATOS_POSTULANTE
where
/* :old.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST */
:old.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST;
if (numrows > 0)
then
raise_application_error(
-20010,
‘Cannot DELETE PAGOS because DATOS_POSTULANTE exists.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tI_PAGOS after INSERT on PAGOS for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— INSERT trigger on PAGOS
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* DATOS_POSTULANTE tiene PAGOS ON CHILD INSERT RESTRICT */
select count(*) into numrows
from DATOS_POSTULANTE
where
/* :new.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST */
:new.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20002,
‘Cannot INSERT PAGOS because DATOS_POSTULANTE does not exist.’
);
end if;

— ERwin Builtin Tue May 23 13:31:24 2006
end;
/

create trigger tU_PAGOS after UPDATE on PAGOS for each row
— ERwin Builtin Tue May 23 13:31:24 2006
— UPDATE trigger on PAGOS
declare numrows INTEGER;
begin
/* ERwin Builtin Tue May 23 13:31:24 2006 */
/* DATOS_POSTULANTE tiene PAGOS ON CHILD UPDATE RESTRICT */
select count(*) into numrows
from DATOS_POSTULANTE
where
/* :new.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST */
:new.CODIGO_POST = DATOS_POSTULANTE.CODIGO_POST;
if (
/*  */

numrows = 0
)
then
raise_application_error(
-20007,
‘Cannot UPDATE PAGOS because DATOS_POSTULANTE does not exist.’
);
end if;

———————————————————–

Acerca de BByGarita

Webmaster... Escritor de Blog y paginas Web: http://www.accesorioymas.tk
Esta entrada fue publicada en Peliculas en 1 link y etiquetada . Guarda el enlace permanente.

Deja tu comentario.....

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s