codigos

MANUAL DE PRÁCTICA
Este manual permite hacer una conexión de base de datos desde MySql a un lenguaje de programación Visual Studio 2010.
• Antes de iniciar con el proceso de conexión debe de estar instalado el servidor y el apache debe de estar corriendo, se puede utilizar el Appserv o en su caso WampServer; son utilizados estos dos programas debido a que aquí se encuentran todos los paquetespara configurar el servidor en una forma muy fácil e intuitiva.
• Desarrollar el proceso de conexión debe de ser instalado el conector de base de datos .net (mysql-connector-net-6.5.4) puede ser descargado en forma gratuita en la página oficial de MySql.
• Una vez instalado se debe de enlazar con Visual Basic del menú Proyecto, Agregar referencias, seleccionar la ficha .Net.
• Aparece una listade procesos y se debe de seleccionar Mysql.Data y dar click en el botón Aceptar

1. Como primer paso es crear un proyecto en Visual Basic, Net y diseñar la interfaz de usuario.

2. A continuación se crea un módulo donde se va a realizar la conexión correspondiente hacia la base de datos de MySql.
a. Dentro de este módulo se desarrolla el siguiente código fuente.
Módulo de ConexiónImportsMySql.Data.MySqlClient
Moduleconexion
Publicconexion_mysqlAsMySqlConnection
Subconexion_bd()
Try
conexion_mysql = NewMySqlConnection("Data Source =localhost; Database=dulceria; User ID=root; Password=Admin; Allow Zero Datetime=True; CHARSET=latin1")
conexion_mysql.Open()
Catch ex AsException
conexion_mysql.Dispose()
EndTry
EndSub
EndModule

Termina módulo deconexión

Código de Validación

ImportsMySql.Data.MySqlClient

PublicClassfrminicio

Función de validación de espacios vacíos

Functionok() AsBoolean
If (txtautor.Text"") And (txtcodigo.Text"") And (txtnombrelibro.Text"") And (cmbeditorial.Text"") Then
ok = True
Else
ok = False
EndIf
EndFunction

3. Procedemos a realizar el código fuente dentro de la interfaz donde se va aefectuar las diversas operaciones correspondientes.


Procedimiento de Limpiar
Sublimpiar()
txtcodigo.Text = ""
txtnombrelibro.Text = ""
cmbeditorial.Text = ""
txtautor.Text = ""
optbioquimica.Checked = False
optgempresarial.Checked = False
optindustrial.Checked = False
optinformatica.Checked = False
txtcodigo.Focus()
EndSub

Codigo fuente del botón limpiarPrivateSubcmdLimpiar_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlescmdLimpiar.Click
Calllimpiar()
EndSub

Codigo fuente del formulario del botón cerrar
PrivateSubfrminicio_FormClosing(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.FormClosingEventArgs) HandlesMe.FormClosing
DimopAsMsgBoxResult

op = MsgBox("¿Desea salir?", MsgBoxStyle.YesNo, "Salir del Sistema")
If (op =MsgBoxResult.No) Then
e.Cancel = True
EndIf
EndSub

Codigo fuente del botón Guardar
PrivateSubcmdAceptar_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlescmdAceptar.Click
Dim guardar AsMySqlCommand

Ifok() = TrueThen
guardar = NewMySqlCommand("INSERT INTO libro(codigo,nomlib, editorial,autor,esp)VALUES (?codigo, ?nomlib, ?editorial, ?autor, ?esp)")guardar.Parameters.AddWithValue("?codigo", txtcodigo.Text)
guardar.Parameters.AddWithValue("?nomlib", txtnombrelibro.Text)
guardar.Parameters.AddWithValue("?editorial", cmbeditorial.Text)
guardar.Parameters.AddWithValue("?autor", txtautor.Text)
If (optbioquimica.Checked = True) Then
guardar.Parameters.AddWithValue("?esp", "Ingeniería Bioquímica")
EndIf

If (optgempresarial.Checked = True) Thenguardar.Parameters.AddWithValue("?esp", "Ingeniería en Gestión Empresarial")
EndIf

If (optindustrial.Checked = True) Then
guardar.Parameters.AddWithValue("?esp", "Ingeniería Industrial")
EndIf

If (optinformatica.Checked = True) Then
guardar.Parameters.AddWithValue("?esp", "Ingeniería en Informática")
EndIf
guardar.Connection = conexion_mysql
guardar.ExecuteNonQuery()

MsgBox("Registro almacenado",...