Funcion para consultar una bd en mysql

[wolfxmen]

Hola a todos los usuarios de foros del web, por este medio quisiera pedirles su ayuda con un problema que tengo y que es el siguiente:

tengo una base de datos hecha en el hasta hoy gestor de bd libre mysql (oracle compro a mysql y solo se espera su traspaso a esa empresa, una verdadera lastima.....pero bueno este no es el tema en cuestion) , ya diseñe una aplicacion hecha en vb.net 2008 y todo iba bien, hasta que llegue al proceso de guardar, bien en si guardar si me funciona bien, al ingresar los datos en un formulario estos son bien bajados a la base de datos, el asunto es que cuando se intenta ingresar un registro que ya existe en cuanto a lo ke es su clave primaria, es aki donde da un error el sistema y abandona la aplicacion, por supuesto esto es obvio ya ke se esta tratando de generar un valor que ya existe en la bd, ahora bien lo que necesito es ke por favor me pudisen poster el codigo para poder efectuar una funcion que se llame cuando se oprima el boton guardar, es decir ke al guardar vaya y ke se ejecute esta funcion revisando en la base de datos si el registro ke se kiere ingresar ya existe o no, de existir ke devuelva un mensaje diciendole al usuario ke el registro ke intenta guardar ya existe y por tanto no puede ejecutar esa tarea........

Por la ayuda que me puedan brindar les estare muy agradecido.......

[kornneo]

Hola amigo...

en tu funcion de guardado maneja try-catch asi cachas el error y lo controlas evitando que mande un error feote y te saque del sistema

Ejemplo:

Código:

    Try
         //aqui pones todo el codigo de guardado asi como lo estas haciendo ahorita... 
    Catch ex As Exception
         //aqui es donde controlaras el error que te marque al guardar...!
        MsgBox("Error recibido:"&vbCrLf & ex.Message)
    End Try

bueno espero y te haya servido

saludos

[wolfxmen]

hola kornneo, te cuento que si estoy manejando el try-catch, pero no me funciona, te voy a colocar mi codigo y te explico donde truena:

If txtidmes.Text = "" Or txtmes.Text = "" Then
MsgBox("Falta Información", MsgBoxStyle.Critical, "ERROR 001")
Else
Call connecttosql()
Dim actualizasql As String
actualizasql = "insert into MESES values (' " & txtidmes.Text & " ', '" & txtmes.Text & "')"
Dim comando As New MySqlCommand(actualizasql, conn)
conn.Open()
'Dim nfilasafectadas As Integer
'nfilasafectadas =
comando.ExecuteNonQuery() (es aca donde truena, y ya no ejecuta el catch que tengo bajo el try
Try
'If (nfilasafectadas <> 0) Then
'en orden no necesitamos mensaje
Dim ds As New DataSet
Dim da As New MySqlDataAdapter
Dim sql As String
sql = "Select * from MESES"
da.SelectCommand = New MySqlCommand(sql, conn)
da.Fill(ds)
conn.Close()

'con esta linea obtengo un objeto DataTable
'(dt) con los registros resultantes
Dim dt As DataTable = ds.Tables(0)

'Ahora puedo asignar el DataTable (dt) al DataGridView1
Me.dtgmeses.DataSource = dt
'-----------------------------------------------------------
'conexion.Close()


'End If
Catch ex As MySqlException (esto ya no se ejecuta
MsgBox("No se pudo insertar")
conn.Close()
End Try
cmdguardarm.Enabled = False
txtidmes.Text = ""
txtmes.Text = ""
End If

desde ya agradezco el apoyo ke me pudieses brindar

[gnzsoloyo]

Nunca te va a funcionar si el comando.ExecuteNonQuery() no lo pones dentro del Try/Catch...
De todos modos es una función un poco tosca, porque más que controlar si falla, deberías verificar si existe antes de enviar a hacer una tarea que no podrá obtener...

Código vb.net:

Public Function InsertarRegistro(ByRef IdMes As String, ByRef TxMes As String)
        Dim actualizasql As String
        Dim comando As MySqlCommand
    Try
        connecttosql()
        conn.Open()
        actualizasql = "SELECT COUNT(*) FROM MESES WHERE mes_id = '" & idmes & "';"
        comando = New MySqlCommand(actualizasql, conn)
        If Convert.ToInt32(comando.ExecuteNonQuery)>0 Then
            MessageBox.Show("El mes ingresado ya existe.", "Error de Ingreso", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        Else
            actualizasql = "INSERT INTO MESES VALUES('" & idmes & "', '" & txmes & "');"
            comando = New MySqlCommand(actualizasql, conn)
            comando.ExecuteNonQuery
            Return True
        End If
    Catch ex As MySqlException
        MessageBox.Show("Error de base de datos en la funcion de ingreso..", "Error de MySQL", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return False
    Catch ex As Exception
        MessageBox.Show("Error de ejecución en la función de ingreso", "Error de aplicacion", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return False
    End Try
End Function
 

Este ejemplo te muestra una forma esquematizada de cómo verificar e insertar. Estoy asumiendo que connecttosql() es una función o método que crea una conexión sin abrirla (cosa que me parece ineficiente), y luego dentro de este caso lo abres. Además estoy imaginando que hay un campo mes_id que conserva el id del mes. Si es otro el nombre o el campo, debes ponerlo allí.
Ten en cuenta que una Exception puede capturar casi cualquier excepción, pero no identificarlas por clase de objeto; en cambio una MysqlException te permite capturar la excepción si y sólo si es un error de la base. Por eso van en ese orden.

[kornneo]

buenas... pues como comenta el amigo gnzsoloyo

ta mal puesto tu "try"

el ejemplo dado es muy explicativo... cualquier otra cosa por aqui andamos...!!!

suerte

saludos...!!!

[wolfxmen]

gracias por tu respuesta gnzsoloyo, muy ilustratativo el ejemplo, ahora bien por favor necesitaria tu ayuda para optimizar mi funcion para establecer conexion mi base de datos mysql, te coloco el codigo para que le des un vistazo:

Module conexiones

Public conn As MySqlClient.MySqlConnection (hago publica la variable conn para poder llamarla en mi formulario de vb.net 2008


Public Sub connecttosql() (creo esta funcion para no establecer una conexion por cada formulario que elabore, solo la llamo y listo
conn = New MySqlConnection
conn.ConnectionString = "SERVER=localhost;" & "DATABASE=medalla;" & "UID=root;" & "PWD=jc;"

Try
conn.Open()
' Insert code to process data.
'MessageBox.Show("Se ha conectado a la base de datos MEDALLA")
Catch ex As Exception
MessageBox.Show("Failed to connect to data source")
Finally
conn.Close()
End Try
End Sub
End Module

Desde ya te agradezco tu ayuda.....