libro

CONEXIÓN SQL SERVER 2005 CON VISUAL BASIC 2010

Inmocasaf I’casaf

SQL SERVER 2005

El código de SQL Server es realmente muy sencillo, este esta con diccionario de datos para poderse abreviar.

1. Comenzaremos por crear una base de datos para ello debemos ir a SQL Server 2005 ya instalado ene l computador y a continuación empezamos:

Create database Inmocasaf;


Use Inmocasaf;if object_id('CONTRATO')Is not null
drop table CONTRATO;
create table CONTRATO(
N_cont Int,
Cod_clie Varchar(50),
Tip_cont Varchar(50),
Fech_cont Varchar(50),
Tippago_cont Varchar(50),
Primary Key(N_cont)
);


if object_id('CORREDOR')is Not Null
drop table CORREDOR;
create table CORREDOR(
Cp_corr Int,
Dni_corr Varchar(50),
Nom_corr Varchar(50),
Dir_corr Varchar(50),
Pob_corrVarchar(50),
Prov_corr Varchar(50),
FechNac_corr Varchar(50),
Tel_corr Varchar(50),
Mov_corr Varchar(50),
Primary Key(Cp_corr)
);




if object_id('INMUEBLE')is not null
Drop table INMUEBLE;
Create table INMUEBLE(
Reg_inm Int,
Dir_inm Varchar(50),
Pob_inm Varchar(50),
Prov_inm Varchar(50),
Sit_inm Varchar(50),
Metr2_inm Varchar(50),
Hab_inm Varchar(50),
Bañ_inm Varchar(50),Nterr_inm Varchar(50),
Metr2par_inm Varchar(50),
Vistas_Inm Varchar(50),
Prec_inm Varchar(50),
Ext_inm Varchar(50),
Tip_inm Varchar(50),
Orient_inm Varchar(50),
Tippago_inm Varchar(50),
Pisos_inm Varchar(50),
Op_inm Varchar(50),
Primary Key(Reg_inm)
);



If object_id('CLIENTE') Is Not Null
Drop table CLIENTE;
create table CLIENTE(
Cod_clie Int,
Dni_clie Varchar(50),
Nom_clieVarchar(50),
Pob_clie Varchar(50),
Prov_clie Varchar(50),
CodPost_clie Varchar(50),
Tel_clie Varchar(50),
Mov_clie Varchar(50),
Email_clie Varchar(50),
EstCivil_clie Varchar(50),
Dir_clie Varchar(50),
Primary Key(Cod_clie)
);


If object_id('FIADOR')Is Not Null
drop table FIADOR;
create table FIADOR(
Ced_fiad Int,
Nom_fiad Varchar(50),
Tel_fiad Varchar(50),
Mov_fiad Varchar(50),Primary Key(Ced_fiad)
);

If object_id('CITA') Is not null
drop table CITA;
create table CITA(
Cp_corr Varchar(50),
Cod_clie Varchar(50),
Tel_cle Varchar(50),
Email_clie Varchar(50),
Fech_cit Varchar(50),
Hor_cit Varchar(50),
Mot_cit Varchar(50),
Cod_cit Int,
Primary Key(cod_cit)
);


Insert Into CONTRATO Values('00001', '0001', 'Arriendo', '04/05/2010', 'Mensual');
Insert IntoCONTRATO Values('00125' ,'0002', 'Venta', '05/03/2010', 'Credito');
Insert Into CONTRATO Values('01245' ,'0003', 'Compra', '15/08/2009', 'Contado');
Insert Into CONTRATO Values('36455' ,'0004', 'Compra', '20/12/2009', 'Contado');
Insert Into CONTRATO Values('00548' ,'0005', 'Venta', '12/04/2010', 'Credito');
Insert Into CONTRATO Values('04585' ,'0006', 'Arriendo', '06/07/2009', 'Mensual');Insert Into CONTRATO Values('07892' ,'0007', 'Arriendo', '07/07/2009', 'Mensual');
Insert Into CONTRATO Values('05883' ,'0008', 'Arriendo', '04/10/2009', 'Mensual');
Insert Into CONTRATO Values('06984' ,'0009', 'Venta', '07/01/2010', 'Contado');
Insert Into CONTRATO Values('08995' ,'0010', 'Compra', '02/05/2010', 'Contado');
Select*from CONTRATO;






Insert Into CORREDOR Values('1425','52100193', 'Carlos Alberto Gaitan Mora', 'Cr 64 N 20-80', 'Bogota', 'Cundinamarca', '4/02/1980', '7109096', '3145568974');
Insert Into CORREDOR Values('0245', '46325689', 'Ana Gabriel Melendi Cardenas', 'Cll 8 Nº 78-20', 'Bogota', 'Cundinamarca', '06/10/1972', '3662077', '3165428970');
Insert Into CORREDOR Values('1254', '89456123', 'Estenania jones Gaitan', 'Cr 3 Nº 14 G 20', 'Bogota','Cundinamarca', '06/03/1982', '2649770', '3204578961');
Insert Into CORREDOR Values('2541', '89745656', 'Carla Maria Piraquive Roa', 'Av caracas Nº 1-2', 'Bogota', 'Cundinamarca', '10/06/1985', '5987462', '3102547896');
Insert Into CORREDOR Values('3984', '78545531', 'Didier Francisco Orjuela Lopez', 'Cr 5 Nº 48 H 70', 'Bogota', 'Cundinamarca', '25/11/1976', '3698745', '3215478960');
Insert...