logo
Documento sin título
Documento sin título

Caso Practico de Visual Basic "Ejemplo del Objeto Ado, Conectandose, Actualizando insertando y eliminando Datos"

ejemplo usare el SQL SERVER para la Fuente de datos.

La Base de datos que tengo en mi servidor SQL SERVER se llama Facturación(facturacion.mdb).

Aqui en el siguiente grafico muestro la tabla con la que voy a trabajar se llama T_CLIENTE

Estos son Los Campos de la Tabla, Aqui Les Muestro.

Ahora voy por el programa Vb 6 Y Creo un Nuevo Proyecto.

Aqui tienen el Nombre que le puse al proyecto y al formulario: proyecto_ejemplo.vbp y frmCliente_Ejemplo.

Aqui les muestro el pantallazo; de la Tabla Mantenimiento clientes. Hasta aqui ya tenemos el 50 % del trabajo hecho; por que ya tenemos la perspectiva del trabajo que vamos realizar lo que sigue es poner codigo y hacer correr el progama. Aqui me voy a tomar un Descanzo de 15 minutos para poner en orden los codigos en mi cabeza.

Mediante esa pantalla que vemos en VB6 Vamos a Insertar, Eliminar, Modificar Los Datos de La tabla que se encuentra en la Base de Datos Facturacion.

ya volvi, Ahora voy a crear un modulo y dentro del modulo voy a crear las variables publicas y funciones que usare en mi proyecto. Aqui muestro el modulo y el objeto ado que usare posteriormente con todos los objetos Recorset que voy usar.

Mi objeto ado Se llama Conexión y lo declaro de tipo ADODB.Conection.
Esta parte del codigo lo pongo en el objeto Moduloprincipal; para que posteriormente lo pueda usar todos los formularios que va a tener el proyecto.

Aqui Les Muestro La Ventana de Mi proyecto que es la que contiene Todos Los Objetos Contenedores que estoy Usando hasta el Momento.

Public conexion As ADODB.Connection
Public Sub OpenConeccion()
Set conexion = New Connection
Y = "CEFI"
X = "facturacion"
n = "sa"
With conexion
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source=" & Y & ";" & _
"Initial Catalog=" & X & ";" & _
"User Id=" & n & ";" & _
"Password="
.Open

End With
End Sub

Luego Voy en el formulario Click Derecho y Ver Codigo, en la parte donde dice:

Private Sub Form_Load()

End Sub

Voy a Crear Los Ados que voy a usar, para mostrar los datos de la tabla T_CLIENTE.

Private Sub Form_Load()
Dim rsclientes As ADODB.Recordset
conectarado

End Sub

Regreso luego al modulo Principal (moduloPrincipal) y ahi creo las una función mas; ahora se vera de la siguiente forma el codigo del objeto moduloPrincipal.

Public conexion As ADODB.Connection
Public Sub OpenConeccion()
Set conexion = New Connection
Y = "CEFI"
X = "facturacion"
n = "sa"
With conexion
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source=" & Y & ";" & _
"Initial Catalog=" & X & ";" & _
"User Id=" & n & ";" & _
"Password="
.Open

End With
End Sub

Sub conectarado()
OpenConeccion
Set rsclientes = New Recordset
'cmdSQL = "SELECT id_cliente , id_distrito , id_provincia , nombre_cliente, id_departamento " _
& "FROM T_CLIENTE"
With rsclientes
''.Source = " SELECT id_cliente , id_distrito , id_provincia , nombre_cliente, id_departamento " _
'''& "FROM T_CLIENTE"
.Source = "SELECT T_CLIENTE.*, T_DISTRITO.nombre_distrito AS dist, T_PROVINCIA.nombre_provincia AS prov,T_DEPARTAMENTO.nombre_departamento AS depa FROM T_CLIENTE INNER JOIN T_DISTRITO ON T_CLIENTE.id_distrito = T_DISTRITO.id_distrito INNER JOIN T_PROVINCIA ON T_DISTRITO.id_provincia = T_PROVINCIA.id_provincia AND T_DISTRITO.id_departamento = T_PROVINCIA.id_departamento INNER JOIN T_DEPARTAMENTO ON T_PROVINCIA.id_departamento = T_DEPARTAMENTO.id_departamento order by id_cliente"
.ActiveConnection = conexion
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Open Options:=adCmdText
End With
dgCliente.Columns(0).DataField = "id_cliente"
dgCliente.Columns(1).DataField = "nombre_cliente"
dgCliente.Columns(2).DataField = "apellido_cliente"
dgCliente.Columns(3).DataField = "dni_cliente"
dgCliente.Columns(4).DataField = "razon_social"
dgCliente.Columns(5).DataField = "ruc_cliente"
dgCliente.Columns(6).DataField = "direccion_cliente"
dgCliente.Columns(7).DataField = "dist"
dgCliente.Columns(8).DataField = "prov"
dgCliente.Columns(9).DataField = "depa"
Set dgCliente.DataSource = rsclientes
'''''
Set txtCliente(0).DataSource = rsclientes
txtCliente(0).DataField = "id_cliente"

Set txtCliente(1).DataSource = rsclientes
txtCliente(1).DataField = "nombre_cliente"

Set txtCliente(2).DataSource = rsclientes
txtCliente(2).DataField = "apellido_cliente"

Set txtCliente(3).DataSource = rsclientes
txtCliente(3).DataField = "dni_cliente"

Set txtCliente(4).DataSource = rsclientes
txtCliente(4).DataField = "razon_social"

Set txtCliente(5).DataSource = rsclientes
txtCliente(5).DataField = "ruc_cliente"

Set txtCliente(6).DataSource = rsclientes
txtCliente(6).DataField = "telefono_cliente"

Set txtCliente(7).DataSource = rsclientes
txtCliente(7).DataField = "celular_cliente"

Set txtCliente(8).DataSource = rsclientes
txtCliente(8).DataField = "fax_cliente"

Set txtCliente(9).DataSource = rsclientes
txtCliente(9).DataField = "email_cliente"

Set txtCliente(10).DataSource = rsclientes
txtCliente(10).DataField = "web_cliente"

Set txtCliente(11).DataSource = rsclientes
txtCliente(11).DataField = "direccion_cliente"

Set txtCliente(12).DataSource = rsclientes
txtCliente(12).DataField = "cta_cliente"

Set txtCliente(13).DataSource = rsclientes
txtCliente(13).DataField = "bco_cliente"

Set dcDepa.DataSource = rsclientes
dcDepa.DataField = "depa"

Set dcProv.DataSource = rsclientes
dcProv.DataField = "prov"

Set dcDist.DataSource = rsclientes
dcDist.DataField = "dist"

'-----------------'
' Set dcDepa.RowSource = adoDepa
' dcDepa.ListField = "nombre_departamento"

' Set dcProv.RowSource = adoProv
' dcProv.ListField = "nombre_provincia"

' Set dcDist.RowSource = adoDist
' dcDist.ListField = "nombre_distrito"
End Sub

Ahora ya podemos ver que las cajas de texto estan conectados; al ADO rsclientes y el paso que voy hacer a continuación es programar el boton Nuevo, y voy a explicar a continuación cuando hacemos el evento click en el Boton Nuevo, Sucede lo siguiente:

Se ponen enable true las cajitas de texto, ya que todos comensaron con enable false.
Se desactivan los Botones Nuevo, eliminar, modificar, Salir.
Creo Un Nuevo Objeto Ado con las mismas caracteristicas que la tabla T_CLIENTE y luego añado un resgistro nuevo si es que se cumple la condición de que no encuentara al cliente inscrito y para esto lo busco por el campo Cod_cliente con el texto txtClienteCodigo.
Pongo la Variable bandera a true, para indicar que hice click en el Boton Nuevo.
Corto la conexión de los objetos con las cajitas de texto y de esta manera no tengo ningun objeto conectado al ado recorset rsclientes que puse en el load; y todo lo dejo listo para guardar.

Ahora voy dar detalles sobe el funcionamiento del boton Guardar, cuando se acciona el evento Click en el boton Guardar, desencadena las siguientes acciones:

se desactiva los botones Guardar, Cancelar y se activan los botones Nuevo, Modificar, Eliminar, Salir.


Opine en este Foro

 

 

 

Documento sin título
 
Documento sin título
Av. Petith Thouars 1255 Of. 302 Lima - Perú
Teléfonos: 2662540 / 7959969
Publicidad:
ventas@encuentraperu.com
Peruanos en el exterior, Peruanos en EE.UU, Peruanos en Argentina, Peruanos en colombia, Peruanos en Ecuador, Peruanos en Mexico, Peruanos en Venezuela, peruanos en España,Peruanos en Brazil, Peruanos en Bolivia, Peruans en Dinamarca, Peruanos en Dinamarca, Peruanos en Bulgaria, Peruanos en Bélgica, Peruanos en Chile, Peruanos en China, Peruanos en corea, Peruanos en Francia, Peruanos en Grecia, Peruanos en Holanda, Peruanos en Inglaterra, Peruanos en Japon, Peruanos en Inglaterra, Peruanos en Egipto, Peruanos en Camerun, Peruanos en Austria, Peruanos Millonarios, Chicas lindas del perú en el extranjero, Doctores del Peru en el Extranjero, Peruanos Deportistas en el Extrabjero, Fisicoculturistas Peruanos en el Extranjero, Musicos peruanos en el Extranjero, modelos Peruanos en el Exterior, Poetas Peruanos en el Exterior, Chefs peruanos en el Exterior, Como hacer un proyecto en el Exterior, Organizaciones peruanas en el Exterior, Ultimas noticias del Perú, Lo que suce den el Mundo y en el Perú, Quejas de peruanos en el Extranjero, Club de Peruanos en el Extranjero, Embajadas del Perú en el Exterior, Estas en el Exterior Reunate con mas peruanos, Peruanos por todo el Mundo, Manuales, Manuales Practicos, Videos de Peruanos, Fotos de Chicas, fotos de peruanos, Conosca a Gente del perú.