Ingresar registros a tablas diferentes relacionas. VB.Net MySQL

[edgarherrera]

Buenas tardes, saludos a todos.

Soy nuevo en el foro y también en la programación, espero puedan darme una mano con unas cosas que no me da la cabeza para resolver.

Estoy desarrollando un pequeño sistema en VB.Net 2010 y necesito que guarde registros en 5 tablas relacionadas pero la verdad no tengo idea. He Estado probando con una sola tabla y el código funciona bien pero como dije solo para una tabla.

¿Como haría para insertar los distintos datos que se ingresarían por textbox a las diferentes tablas que tengo en MySQL???

Y otro problema que tengo es con las fechas, ya que en MySQL se guardan con el formato de YY-MM-DD y quisiera que se guardaran como DD-MM-YY. Esta fecha la estoy ingresando por un textbox también. Si hay alguna manera de ingresar las fechas mas fácil o que funcione mejor con MySQL y me pudieran orientas lo intentaría con gusto.

Muchas gracias de antemano.

[jhonwilliams]

Iniciado por edgarherrera

¿Como haría para insertar los distintos datos que se ingresarían por textbox a las diferentes tablas que tengo en MySQL???

Los insertas TABLA por TABLA, pero tienen un orden, ya que primero debes guadar las tablas principales y luego las que dependen de esta.

Algo asi, si vas a guadar en la tabla de CIUDADES, primero debes guadar el PAIS, por la relacion que estas deben de tener.

Con relacion a las fechas, NO, NUNCA trates de forzar la fecha del motor de base de datos, la recomendacion en este caso va asi:

1. La fecha en los motores por lo general se guadar en yyyy-MM-dd, no trates de cambiarla.

2. Es muy importante el tipo datos del campo es DATETIME o DATE si quieres o no guardar con horas y minutos

3. Cuando vas a enviar la informacion a la base de datos si es con procedimiento almacenado el tipo de datos se define DATE TIME.

4. El formato de la fecha esta definido en el motor, si tu quieres que se vea dd-MM-yyyy lo haces cuando recuperes los datos, si el usuario la ingresa la vea asi, pero es solo VISUAL. no pierdas la cabeza tratando de guardarla asi tal cual la digitan.

5. Trata de usar un control para las fechas, DatePicker o algo como eso, tratar de controlar el ingreso de las fechas en un TextBox puedes perder la cabeza en intento. porque un usuario puede hacer esto:

2012-11-25
2012/11/25
2012-25-11
2012/25/11
25-11-2012
25/11/2012
11-25-2012
11/25/2012

Y la lista de posibilidades contra un usuario pueden ser mucho mas largas y validar todas esas posibilidades es una locura.

Si aun continuas con dudas nos comentas,

Saludos

[edgarherrera]

Muchas gracias por contestas tan rápido, estaba atento porque bueno el tiempo libre es mas que todo los fines de semana.

Entendí perfectamente lo de las tablas relacionadas y la inserción TABLA por TABLA , pero pregunto (quizás falle aquí cuando cree el post):

¿Como seria el código en vb.net para hacer la inserción?

2 insert into??? uno debajo del otro???

La verdad es qno tengo idea.

El Código es algo asi:
Try
'sSqlOperaciones = "INSERT INTO operaciones (campo1,campo2,campo3,campo4,campo5) VALUES ('" & txt1.Text & "','" & txt2.Text & "','" & txt3.Text & "','" & txt4.Text & "','" & txt5.text & "')"

' Se crean los comandos para el SQL
cmdOperaciones = New MySqlCommand()
cmdOperaciones.Connection = conexionBD
cmdOperaciones.CommandText = sSqlOperaciones
cmdOperaciones.CommandType = CommandType.Text
ConsultaSQL = cmdOperaciones.ExecuteReader()
ConsultaSQL.Read()
Dim iNroRegistos As Integer = ConsultaSQL.RecordsAffected
If iNroRegistos = 0 Then
MessageBox.Show("No se grabó el registro en la tabla!!!!")
Else
MessageBox.Show("Registro grabado en la tabla!!!")
fLimpiar_textbox()
End If
ConsultaSQL.Close()
Catch ex As Exception
MessageBox.Show("Error en el Registro!!! " & vbCrLf & ex.Message.ToString)
Me.Visible = False
'frmMenu.Show()
End Try
End If

Disculpen porque no se como organizarlo mejor. Espero se entienda.

Ahora con respecto a la fecha y datetimepicker también lo entendí muy bien. Mucho de eso lei en otros lados luego de buscar en google . y la pregunta seria

¿Como hago para insertar la fecha al campo de la BD en Mysql desde el timepicker???

La verdad es q mi problema es general es qno sabría como plasmar el código, quizás lo mas sencillo pero este tipo de cosas ni idea.

Muchas gracias como siempre. Muy agradecido.

[gnzsoloyo]

No generes una cadena con el INSERT, parametrízala, como se hace con cualquier otro DBMS. Para eso existen los Frameworks específicos de MySQL, los que puedes descargar de la web oficial.
Eso hará que simplemente cargues el valor en el objeto MySqlCommand como Parameter, dandole el valor adecuado, y el resto lo maneja el sistema.

Fijate en los ejemplos de la web oficial de MySQL:
- MySL 5.5::21.2. MySQL Connector/Net
- MySQL 5.5::21.2.5. Connector/Net Programming

[jhonwilliams]

Hola, con relacion al codigo usa el Highlight. Mira como se ve de bonito, mas facil de leer y comprender

Código VB:

El Código es algo asi:
Try
'sSqlOperaciones = "INSERT INTO operaciones (campo1,campo2,campo3,campo4,campo5) VALUES ('" & txt1.Text & "','" & txt2.Text & "','" & txt3.Text & "','" & txt4.Text & "','" & txt5.text & "')"
 
' Se crean los comandos para el SQL
cmdOperaciones = New MySqlCommand()
cmdOperaciones.Connection = conexionBD
cmdOperaciones.CommandText = sSqlOperaciones
cmdOperaciones.CommandType = CommandType.Text
ConsultaSQL = cmdOperaciones.ExecuteReader()
ConsultaSQL.Read()
Dim iNroRegistos As Integer = ConsultaSQL.RecordsAffected
If iNroRegistos = 0 Then
MessageBox.Show("No se grabó el registro en la tabla!!!!")
Else
MessageBox.Show("Registro grabado en la tabla!!!")
fLimpiar_textbox()
End If
ConsultaSQL.Close()
Catch ex As Exception
MessageBox.Show("Error en el Registro!!! " & vbCrLf & ex.Message.ToString)
Me.Visible = False
'frmMenu.Show()
End Try
End If
 

La mejor forma de hacer ese INSERT es usando Parametros. asi:

Código C#:

try
                {
                    cn.Open();
                    MySqlParameter pIdOwner = new MySqlParameter("@ID_OWNER", MySqlDbType.String, 40) { Value = id_owner };
                    MySqlParameter pCodeOwner = new MySqlParameter("@COD_OWNER", MySqlDbType.String, 20) { Value = cod_owner };
                    MySqlParameter pName = new MySqlParameter("@NAME", MySqlDbType.String, 80) { Value = name };
                    MySqlParameter pTelephone = new MySqlParameter("@TELEPHONE", MySqlDbType.String, 45) { Value = telephone };
                    MySqlParameter pCellPhone = new MySqlParameter("@CELLPHONE", MySqlDbType.String, 45) { Value = cellphone };
                    MySqlParameter pAddress = new MySqlParameter("@ADDRESS", MySqlDbType.String, 80) { Value = address };
                    MySqlParameter pMail = new MySqlParameter("@MAIL", MySqlDbType.String, 80) { Value = mail };
 
                    query = "INSERT INTO tblowners " +
                        "(ID_OWNER, " +
                        "COD_OWNER, " +
                        "NAME, " +
                        "TELEPHONE, " +
                        "CELLPHONE, " +
                        "ADDRESS, " +
                        "MAIL) " +
                        "VALUES " +
                        "( " +
                        "@ID_OWNER, " +
                        "@COD_OWNER, " +
                        "@NAME, " +
                        "@TELEPHONE, " +
                        "@CELLPHONE, " +
                        "@ADDRESS, " +
                        "@MAIL " +
                        ") ";
 
                    MySqlCommand cmd = new MySqlCommand(query, cn);
                    cmd.Parameters.Add(pIdOwner);
                    cmd.Parameters.Add(pCodeOwner);
                    cmd.Parameters.Add(pName);
                    cmd.Parameters.Add(pTelephone);
                    cmd.Parameters.Add(pCellPhone);
                    cmd.Parameters.Add(pAddress);
                    cmd.Parameters.Add(pMail);
 
                    result = cmd.ExecuteNonQuery();
 
                }
                catch (Exception ex)
                {
                    Common.CallException(ex);
                }
                finally
                {
                    cn.Close();
                }
 

En ese ejemplo no hay ninguno de fecha pero si lo hubiese se enviaba asi:

Código C#:

MySqlParameter pDATE_CALL = new MySqlParameter("@DATE_CALL", MySqlDbType.DateTime ) { Value = call.DATE_CALL   };
 

El tipo se define con el MySqlDbType

Estas trabajando con el MySQLConnector?

Saludos

[edgarherrera]

Iniciado por gnzsoloyo

No generes una cadena con el INSERT, parametrízala, como se hace con cualquier otro DBMS. Para eso existen los Frameworks específicos de MySQL, los que puedes descargar de la web oficial.
Eso hará que simplemente cargues el valor en el objeto MySqlCommand como Parameter, dandole el valor adecuado, y el resto lo maneja el sistema.

Fijate en los ejemplos de la web oficial de MySQL:
- [URL="http://dev.mysql.com/doc/refman/5.6/en/connector-net.html"]MySL 5.5::21.2. MySQL Connector/Net[/URL]
[URL="http://dev.mysql.com/doc/refman/5.6/en/connector-net-programming.html"]- MySQL 5.5::21.2.5. Connector/Net Programming[/URL]

Miércoles me enrede con lo que me dijiste porque la verdad no se de que me estas hablando!!! y discúlpame de verdad pero no se que es Parameter y tampoco lo de Parametrizarla. Claro es mi deber investigar un poco mas, pero ahorita no entendí la ayuda.


Con lo que me dijo jhonwilliams también me enrede un poco pero el ejemplo ayuda bastante. Usando ese tipo INSERT que mas tendria que cambiar en el proyecto que llevo????

y lo del MysqlConnector creo que si.

Creo que se puede ver aqui:

Código vb:

Imports MySql.Data.MySqlClient
Public Class frmOperaciones
    Friend conexionBD = New MySqlConnection
    Friend ConsultaSQL, ActualizaSQL, EliminarSQL As System.Data.IDataReader
    Friend sServidor As String = "localhost"
    Friend sUsuario As String = "root"
    Friend sClave As String = ""
    Friend sBaseDato As String = "sucre"
    Friend cmdOperaciones, cmdActualizado, cmdEliminar As MySqlCommand   '   AGREGAR ESTA LINEA   *OJO*
    Friend dtOperaciones As New DataTable
    Friend sSqlOperaciones, sCodigo As String
    ' Declaramos una variable para la tabla en memoria como si fuese un recordset
    Private dt As DataTable
    Private fila As Integer
    Dim sAccion As String
 

Estoy un tanto enredado, espero me tengan algo de paciencia. Les agradezco mucho la ayuda.

[jhonwilliams]

Hola.

Comienza por leer un poco la documentacion oficial:

http://dev.mysql.com/doc/refman/5.5/...ector-net.html

Y por aca hay un ejemplo en C# de como hacer algunas de las fuciones mas comunes.

http://www.codeproject.com/Articles/...ect-C-to-MySQL

Recomendacion:

Creo que estas quemando la conexion a la base de datos en el codigo:

Código VB:

Public Class frmOperaciones
    Friend conexionBD = New MySqlConnection
    Friend ConsultaSQL, ActualizaSQL, EliminarSQL As System.Data.IDataReader
    Friend sServidor As String = "localhost"
    Friend sUsuario As String = "root"
    Friend sClave As String = ""
    Friend sBaseDato As String = "sucre"
    Friend cmdOperaciones, cmdActualizado, cmdEliminar As MySqlCommand   '   AGREGAR ESTA LINEA   *OJO*
    Friend dtOperaciones As New DataTable
    Friend sSqlOperaciones, sCodigo As String
    ' Declaramos una variable para la tabla en memoria como si fuese un recordset
    Private dt As DataTable
    Private fila As Integer
    Dim sAccion As String
 

La recomendacion ahi es que se lea desde un archivo de configuracion, porque si luego cambia la conexion toca volver a compilar y esa no es una buena practica de desarrollo.

Saludos

[edgarherrera]

@jhonwilliams Gracias por la ayuda. Esta bien me toca leer un poco .

Este método de conexión es el que me están mostrando en la universidad, no sabría como hacerlo desde un archivo de configuración. Pero crees que para este pequeño proyecto en el que estoy embarcado pueda seguirlo trabajando así???? Lo digo por cuestiones de tiempo.

[gnzsoloyo]

Lo digo por cuestiones de tiempo.

Lo que te ahorres de tiempo ahora te puede costar un trabajo que no te den por ignorar cómo se hacen estas cosas, que son fundamentales al momento de un examen de aptitud en consultoras o empresas de desarrollo.
Te lo digo por experiencia.
No ahorres tiempo o esfuerzo en cosas que son críticas.
Para experimentar, éste es el momento, luego será demasiado tarde.

Un detalle: Los método que e plantea son iguales si usas luego Oracle, SQL Server, Postgre, o bien programes en ASP.Net, VB.Net o cosas así. Si lo aprendes bien hora, cuando llegue el momento sólo deberás repasar lo básico.
Cuando un profesor te dice que una vez que conoces un lenguaje, puedes programar en prácticamente todo, no exagera. Los principios de trabajo son iguales.

[jhonwilliams]

Iniciado por edgarherrera

Lo digo por cuestiones de tiempo.

Realmente no tardaras mas de media hora en cambiar la conexion a un archivo de configuracion tanto en web como en WindowsForms, busca en google "leer archivo de configuracion asp o windowsforms" (segun sea el caso).

Pero basicamente los pasos son estos:

En WindowsForms:

1. En las propiedades del proyecto hay una seccion Settings, alli puedes crear un ConnetionString, alli configuras las cadena y debe quedar asi:

Código VB:

Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;
 

fuente connectionstring

2. Leer la conexion asi:

Código C#:

Settings.Default.Conexion;
 

Para que te funcione la linea anterior debes hacer using o Imports de:

Código C#:

using TuProyecto.Properties;
 

El valor recuperado lo asignas a una variable publica que puedas leer desde todos los formularios y listo.

Ya tienes tu conexion.

Ahora si es una aplicacion web:

1. En el Web.Config, debes tener esta etiqueta

Código xml:

<configuration>
  <connectionStrings>
<add name="ElNombreDeLaConexion" connectionString="Data Source=Servidor;Initial Catalog=BaseDeDatos;User ID=USUARIO;Password=PASSWORD;" providerName="System.Data.SqlClient" />
 </connectionStrings>
</configuration>
 

Como puedes ver es una conexion de SQL Server, aun no e trabajado con MySQL en Aplicaciones Web.

Y para leer esa conexion usas esta linea:

Código C#:

ConfigurationManager.ConnectionStrings["GestionInmobiliaria"].ConnectionString;
 

Para poder leer la linea anterior debes hacer using o imports de este namespace:

Código C#:

using System.Configuration;
 

Saludos

[edgarherrera]

@gnzsoloyo @jhonwilliams Muchas gracias a ambos por la ayuda. Es verdad ahora es el momento de hacer o aprender las cosas de forma correcta.

Estoy en ello, me estoy leyendo los links que me mandaron de el MySQL Connector/net y voy a investigar un poco mas para hacer uno de ello e intentar hacer los insert. Porque el código que ya tengo inserta, elimina, consulta y edita; pero no importa voy a ver como logro hacerlo de la forma que me recomiendan.

Muchas gracias nuevamente. Espero tenerles noticias pronto con avances.

[edgarherrera]

Saludos a todos buenas tardes!

Continuo aqui con los problemas. Logre hacer la conexión a la base de datos de esta manera:

Código vb:

Imports MySql.Data.MySqlClient
Imports MySql.Data
 
Public Class frmOperaciones
 
    Private MysqlCommand As New MySqlCommand
    Dim MysqlConnString As String = "server=localhost; database=sucre; user id= root ; password="" "
    Public MysqlConexion As MySqlConnection = New MySqlConnection(MysqlConnString)
    Dim sAccion As String
    Friend sSqlOperaciones, sCodigo As String
 

Pero no se si refleja la solución a lo que me decía @@jhonwilliams con respecto a que estaba quemando la conexión a la BD.
Espero esta sea la manera correcta.

Ahora en el código anterior tenia otras funciones como por ejemplo Leer de la BD para saber si habían ya registros y de esta manera Habilitar textbox y otras cosas.

Algo asi:

Código vb:

Public Function LeerTabla(ByVal sSqlUsuario)
        Try
            Dim iNroRegistros As Integer = 0
            Dim daoperaciones As New MySqlDataAdapter
            Dim dtoperaciones As New DataTable
            Dim dsoperaciones As New DataSet
            ' Se crean los comandos para el SQL
            cmdOperaciones = New MySqlCommand()            ' IR AL PRINICIPIO *OJO*
            MysqlConexion.Open()
            cmdOperaciones.CommandText = sSqlUsuario
 
            ' ejecutamos la consulta con el dataadapter
            daoperaciones.SelectCommand = cmdOperaciones
 
            ' Llenamos el datatable con los datos obtenidos de la consulta
            daoperaciones.Fill(dtoperaciones)
 
            ' Numero de registros encontrados
            iNroRegistros = dtoperaciones.Rows.Count
 
            ' Ocultamos el boton buscar
            btnBuscar.Visible = False
 
            ' VAMOS POR ESTA LINEA !!!!!!!!!!!!!!!!
 
            If iNroRegistros = 0 Then
                If sAccion = "I" Then
                    ' Mostramos los botones grabar y cancelar
                    btnCancelar.Visible = True
                    btnGrabado.Visible = True
                    fHabilitar_textbox(True)
                    txtReferencia.Enabled = False
                    txtOperacion.Enabled = False
                    Return True
                Else
                    ' Mostramos el boton buscar
                    btnBuscar.Visible = True
                    MessageBox.Show("No se encontraron registros en la tabla")
                    fHabilitar_textbox(True)
                    Return False
                End If
            Else
                If sAccion = "I" Then
                    ' Ocultamos el boton grabar
                    btnGrabado.Visible = False
                    ' Mostramos el boton buscar
                    btnBuscar.Visible = True
                    MessageBox.Show("Codigo ya registrado en la tabla")
                    Return False
 

La pregunta sería como realizar estas operaciones de esta nueva forma q estoy implementando???

[jhonwilliams]

Hola.

Por lo que veo aun tienes la conexion dentro del proyecto y la idea es en un archivo de configuracion, es una aplicacion web o de escritorio

Saludos

[edgarherrera]

Iniciado por jhonwilliams

Hola.

Por lo que veo aun tienes la conexión dentro del proyecto y la idea es en un archivo de configuración, es una aplicación web o de escritorio

Saludos

Hola jhon. Es una aplicación de escritorio.

[jhonwilliams]

Entonces vamos por partes, mi visual studio esta en ingles asi, que los pasos van en ese idioma.

1. Clic derecho sobre le proyecto.
2. Clic en Properties
3. Al lado izquierdo hay como unas pestañas, Clic en: Settings
4. Te va a mostrar como una grid.
4.1 En la primera columna Name, pones el nombre para tu conexion.
4.2 En la columna Type Seleccionas ConnectioString esta casi de ultimo.
4.3 En la columna Value escribes la conexion asi:

Código vb:

"server=localhost; database=sucre; user id= root ; password=""
 

4.4 Tu codigo queda mas o menos asi, leyendo la conexion desde el archivo de configuraciones.

Código vb:

Public Class frmOperaciones
 
    Private MysqlCommand As New MySqlCommand
    Dim MysqlConnString As String =  Settings.Default.ConexionEjemplo 
    Public MysqlConexion As MySqlConnection = New MySqlConnection(MysqlConnString)
    Dim sAccion As String
    Friend sSqlOperaciones, sCodigo As String
 

Saludos

[edgarherrera]

He seguido las indicaciones que me has dado, pero tengo un error me dice que Settings no esta declarado. "Puede que este inaccesible debido a su nivel de protección".

Código vb:

Dim MysqlConnString As String = [B]settings[/B].Default.consql
 

Que crees que pueda ser?

[jhonwilliams]

Olvide comentarte que para poder leer el Setting. hay que hacer un using o imports asi:

Código C#:

using MiProyecto.Properties;
 

Saludos

[edgarherrera]

Buenas tardes. Que tal Jhon, disculpa la tardanza en contestar.

Estuve investigando como hacer uso de la conexión desde el archivo de configuraciones, que me llevo al app.config donde quedaba configurada.

Importe referencias y demas y el codigo quedo asi:

Código vb:

Imports MySql.Data.MySqlClient
Imports MySql.Data
Imports System.Configuration
Public Class frmReversos
    'aqui va la conexion a la BD
    Dim conn As New MySqlConnection(ConfigurationManager.ConnectionStrings("ConexionBD").ToString())
    Dim MysqlCommand As MySqlCommand = conn.CreateCommand()
    Dim da As New MySqlDataAdapter(MySqlCommand)
    Dim dt As New DataTable()
    Friend cmdReversos, cmdActualizado, cmdEliminar As MySqlCommand
    Friend ConsultaSQL, ActualizaSQL, EliminarSQL As System.Data.IDataReader
    Dim sAccion As String
    Friend sSqlReversos, sCodigo As String
   
End Class
 

Pero ahora ni siquiera me abre el formulario, dandome un error en la variable Conn y diciendo:

Código vb:

Excepción no controlada del tipo 'System.InvalidOperationException' en Operaciones Comerciales Banco del ALBA.exeInformación adicional: Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: Referencia a objeto no establecida como instancia de un objeto.
 

La verdad no se que sucede. Esta peor la cosa.

[edgarherrera]

Buenas buenas saludos a todos!

Gracias a la ayuda del pana @jhonwilliams aquí les traigo la solución para:

Importar o usar la cadena de conexión a MySQL, establecida en las propiedades del Proyecto (app.config)!

1º Creamos un formulario nuevo que podremos llamar FrmConexion o Conexión. Allí crearemos las variables y demás códigos para hacer uso de nuestro String de conexión.

2º Colocamos este código en "frmConexion"

Código vb:

Imports System.Configuration
Imports Operaciones.My.MySettings
 
Public NotInheritable Class frmconexion
 
    Private Shared _cnx As String
    Public Shared Property ConexionMySQL() As String
        Get
            Return My.MySettings.Default.conexionbd 'conexionbd es el nombre q le colocamos a la cadena de conexion!
        End Get
        Private Set(ByVal value As String)
            _cnx = value
        End Set
    End Property
 
End Class
 

3º Luego de esto, en los demás formularios ya podemos hacer uso de nuestro conexionstring de esta forma:

Código vb:

Dim cn As New MySqlConnection(frmconexion.ConexionMySQL)
 

4º Recuerden abrir la conexión para hacer uso de ella:

Código vb:

Dim cn As New MySqlConnection(frmconexion.ConexionMySQL)
                cn.Open()
 

5º También debemos hacer uso de la referencia system.configuration

y eso seria todo para hacer uso del app.config y la cadena de conexión establecida en él.

Gracias nuevamente al pana @jhonwilliams y a todos los que ayudaron y se tomaron su tiempo en leer el post y aportar soluciones.

Salu2 gente. Hasta la próxima.

[jhonwilliams]

Solo una pequeña correcion, para el primer punto no se crea un formulario, se crea una clase.

Saludos