Ingeniero

CONEXIÓN A BASE DE DATOS UTILIZANDO VB.NET
MODO CONECTADO
Ing. Salvador Peña

Nombre de los botones:

* btnActualizar
* BtnModificar
* BtnEliminar
* BtnAgregar
* BtnGuardar1* BtnGuardar2
* l1
* txt1
* txt2
* txt3
* txt4
* label1
* label2
* label3
* label4

* AGREGAR UN SQLCONECTION Y PONERLE COMO NOMBRE SQL1

CREACIÓN DE LABASE DE DATOS

create database conexion1
use conexion1
create table Cliente
(
ID_cliente numeric(4)constraint pk_id_cliente primary key,
Nombre char(25) not null,
Apellido char(25) not null,Telefono char(9)not null
)
select * from Cliente
--Insertandole registros a la tabla Cliente
insert into Cliente values (1234, 'Ricardo Andrade', 'Cortez Pereida', '2222-2112')
insert intoCliente values (2345, 'Elizabeth Lisetth', 'Zelaya Rodrigez', '2567-9877')
insert into Cliente values (3456, 'Karla Michelle', 'Lima Artiaga', '2567-0090')
insert into Cliente values (4567, 'AngelMiguel', 'Garcia Carrillo', '2456-8987')

--Probando eliminar un registro x
delete from Cliente where Nombre='Ricardo Andrade'

--Probando modificar un registro x
update Cliente set Nombre='MiguelAngel', Apellido='Garcia Carrillo', Telefono='2456-8987' where ID_cliente= 4567

--Probando Buscando un registro x (De forma filtrada)
select * from Cliente where Apellido like 'G%'

CÓDIGO VB.NETPublic Class Form1
'Funcion creada por el programador "agregar" para consultar la tabla cliente en la BD conexion1
Sub cargar_listbox()
Dim sql As NewSqlClient.SqlCommand("select * from Cliente", Sql1)
Dim cad As SqlClient.SqlDataReader
Sql1.Open()
cad = sql.ExecuteReader
Do While cad.Read
l1.Items.Add(cad("Nombre"))Loop
Sql1.Close()
End Sub
'Funcion creada por el programador para borrar contenido de las cajitas de texto
Sub borrar()
txt1.Text = ""
txt2.Text = ""...