Scribd
Upload
2K views

Procedimientos Almacenados de MySQL en Visual Basic

Este documento describe la creación de una base de datos en MySQL para un sistema académico, con tablas de estudiantes y cuentas. También incluye la creación de un procedimiento almacenado para generar automáticamente el login y la contraseña de una cuenta a partir de los datos de un estudiante. Finalmente, presenta una aplicación en Visual Basic que permite interactuar con la base de datos, como guardar datos de estudiantes, ejecutar el procedimiento almacenado para generar cuentas, y mostrar los datos almacenados.

Uploaded by

osmarcelo
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
2K views

Procedimientos Almacenados de MySQL en Visual Basic

Este documento describe la creación de una base de datos en MySQL para un sistema académico, con tablas de estudiantes y cuentas. También incluye la creación de un procedimiento almacenado para generar automáticamente el login y la contraseña de una cuenta a partir de los datos de un estudiante. Finalmente, presenta una aplicación en Visual Basic que permite interactuar con la base de datos, como guardar datos de estudiantes, ejecutar el procedimiento almacenado para generar cuentas, y mostrar los datos almacenados.

Uploaded by

osmarcelo
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Nombre: Oscar Marcelo Yujra Borda C.I.: 6768180 L.P.

Procedimientos Almacenados de MySQL en Visual Basic

1.- Creamos la BD académico e insertamos datos:


create table estudiante(
cod_estudiante varchar(10) not null,
nombres varchar(20) not null,
paterno varchar(20) not null,
materno varchar(20) not null,
ci int,
fecha_nac date,
domicilio varchar(50),
primary key (cod_estudiante));

create table cuenta(


login varchar(9) not null,
pasword varchar(15),
cod_estudiante varchar(10),
primary key (login),
foreign key (cod_estudiante) references estudiante);

2.- Luego creamos nuestro procedimiento el cual genera el login y password de su cuenta, el login se
forma con sus inciales y fecha de nacimiento y el password es el ci.

create procedure genera_codigo(nom varchar(20), pat varchar(20), mat varchar(20), fe


date, cod varchar(10), car int)
begin
declare codigo varchar(9);
set codigo=concat(left(pat,1),left(mat,1),left(nom,1),extract(day from
fe),extract(month from fe),right(cast(extract(year from fe) as char),2));
insert into cuenta set login=codigo, pasword=car, cod_estudiante=cod;
end;

3.- Creamos la aplicación en Visual Basic

El botón genera login será el que ejecute nuestro procedimiento almacenado.

Imports System.Data
Imports MySql.Data.MySqlClient
'EJECUTA COMANDOS EN MySQL
Module Module1
Dim ConStr As String = "server=localhost;uid=root ;database=academico"
Dim Con As New MySqlConnection(ConStr)
Public Function MiFuncion(ByVal Sql As String) As String
Dim Comando As New MySqlCommand(Sql, Con)
Try
If Not Con Is Nothing Then Con.Close()
Con.Open()
Dim res As Integer = Comando.ExecuteNonQuery()
Return res.ToString
Catch ex As Exception
Return ex.Message
Finally
Con.Close()
Comando = Nothing
End Try
End Function
End Module
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles MyBase.Load
End Sub
' MOSTRAR LOS DATOS
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim ConStr As String = "server=localhost;uid=root ;database=academico"
Dim table As DataTable
Dim adaptador As MySqlDataAdapter
Dim builder As MySqlCommandBuilder
table = New DataTable
adaptador = New MySqlDataAdapter("select e.cod_estudiante as CODIGO, e.nombres
as NOMBRES, e.paterno as PATERNO, e.materno as MATERNO,e.ci as CI, e.fecha_nac as
NACIMIENTO, c.login as LOGIN from estudiante e, cuenta c where
e.cod_estudiante=c.cod_estudiante", ConStr)
builder = New MySqlCommandBuilder(adaptador)
adaptador.Fill(table)
DataGridView1.DataSource = table
End Sub
'GUARDAR DATOS
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim ConStr As String = "server=localhost;uid=root ;database=academico"
Dim Con As New MySqlConnection(ConStr)
Dim sql As String = "insert into estudiante values ('" & TextBox1.Text & "','"
& TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text
& "','" & TextBox6.Text & "','" & TextBox7.Text & "') "
ConStr = MiFuncion(sql)
MsgBox("Datos Guardados Correctamente")
DataGridView1.Refresh()
End Sub
'LIMPIAR TEXTBOX
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
'CERRAR LA APLICACION
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Close()
End Sub
' GENERAR LOGIN
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Conectamos la Bd.
Dim ConStr As String = "server=localhost;uid=root ;database=academico"
Dim Con As New MySqlConnection(ConStr)
'llamamos al procedimiento enviandole los parametros que necesita.
Dim sql As String = "call genera_codigo('" & TextBox2.Text & "','" &
TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox6.Text & "','" & TextBox1.Text &
"','" & TextBox5.Text & "')"
ConStr = MiFuncion(sql)
End Sub
End Class
Ahora registramos un nuevo estudiante, generamos su codigo y luego hacemos click en mostrar.

You might also like