Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - pauly14

#1
tengo el siguiente codigo:
 
Código (vbnet) [Seleccionar]
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbus.Click
       conexion = New OdbcConnection("dsn=conexión_vb; uid= root; pwd= 123456;")
     sql = " select nombre, apellido from docentes where identificacion= " & txtid.Text & ";"
       comando = New OdbcCommand(sql, conexion)
        Try
         conexion.Open()

        leer = comando.ExecuteReader()
        txtnombre = leer(0)
       Txtap = leer(1)
        Catch ex As Exception
       MsgBox(ex.Message)
         End Try

pero me sale un error que dice que la columna o fila no tiene datos pero esta llena en mysql.
por favor espero su ayuda es urgente.... :silbar:
#2
ps creo que este codigo te puede servir:
Código (vbnet) [Seleccionar]
Public Class frm
   Public conexion As OdbcConnection
   Public comando As OdbcCommand
   Public sql As String
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
       conexion = New OdbcConnection("dsn=conexión_vb; uid= root; pwd= 123456;")
       conexion.Open()

       Try

           sql = " INSERT INTO docentes VALUES( " & txtid.Text & ",'" & txtnombre.Text & "','" & txtap.Text & "'," & txttel.Text & ");"
           comando = New OdbcCommand(sql, conexion)
           comando.ExecuteNonQuery()
           MsgBox("Los datos han sido guardados correctamente")
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       txtid.Text = " "
       txtnombre.Text = " "
       txtap.Text = " "
       txttel.Text = " "
       txtid.Focus()
   End Sub