Bueno, ahora uso este codigo, pero a la hora de mostrarme los datos, no me muestra los correctos, que puede ser?? el codigo no genera ningun error mas q el que ya mencione
Cita: Dim DR As SqlDataReader
Dim cadena As String
Dim conexion As New SqlConnection("Data Source=FAMILIA-C086F4B\SQLEXPRESS;Initial Catalog=Proyecto;Integrated Security=True")
cadena = "Select * from Empleados where Carnet = '" + Me.cmbxCarnet.Text + "'"
Dim cmd As New SqlCommand(cadena, conexion)
Try
conexion.Open()
cmd.ExecuteNonQuery()
DR = cmd.ExecuteReader
If DR.Read() Then
Me.txtNombre.Text = DR("Nombre").ToString
Me.txtApellido.Text = DR("Apellido").ToString
Me.txtFecha.Text = DR("Fech_Nac").ToString
Me.txtDir.Text = DR("Direccion").ToString
Me.txtTel.Text = DR("Telefono").ToString
Me.txtCel.Text = DR("Celular").ToString
Me.txtDui.Text = DR("DUI").ToString
Me.txtNit.Text = DR("NIT").ToString
Me.txtCargo.Text = DR("Cargo").ToString
Me.txtAfp.Text = DR("Num_AFP").ToString
Me.txtIsss.Text = DR("Num_ISSS").ToString
conexion.Close()
Else
MessageBox.Show("Error")
conexion.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try