Funcion para consultar una bd en mysql

[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