Visual Basic.NET - Column 'Id' does not belong to table .

   
Vista:

Column 'Id' does not belong to table .

Publicado por jesus (11 intervenciones) el 17/07/2015 00:47:03
ayuda con este error no se por que pasa eso u.u , explicare un poco lo que quiero hacer en esta parte


quiero que cuando yo ponga el condigo en el cuadro de texto me aparesca el registro en el datagridview y cuando vuelva a escribir de nuevo en el campo de texto se agregue el nuevo registro que encontro ,

pongamos asi el primer registro que encontro se puso en el index 0 del datagridview y el que escribi nuevamente
quiero que se ponga en el datagridview pero en el index 1 y asi , y pues todavia no lo logro

el error esta en la linea 38

aqui esta el codigo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub consultar_bdd(ByVal codigo_busqueda As String)
 
        Dim query_consulta_Empleados = "Select id_Empleado,nombre_Empleado,apellidop_Empleado,apellidom_Empleado,area from empleado where codigo_empleado ='" & codigo_busqueda & "'"
        Dim mysqlcommand As New MySqlCommand(query_consulta_Empleados, obj_conexion.MysqlConexion)
        Dim myadapter As New MySqlDataAdapter(mysqlcommand)
        Dim datos_tabla As New DataTable
        myadapter.Fill(datos_tabla)
 
        If tabla_empleados.RowCount > 0 Then
            tabla_empleados.Rows.Clear()
        End If
        tabla_empleados.DataSource = datos_tabla
        tabla_empleados.Columns(0).Name = "Id"
        tabla_empleados.Columns(1).Name = "Nombre"
        tabla_empleados.Columns(2).Name = "Apellido Paterno"
        tabla_empleados.Columns(3).Name = "Apellido Materno"
        tabla_empleados.Columns(4).Name = "Area"
 
 
 
        For i As Integer = 0 To datos_tabla.Rows.Count - 1
            For x As Integer = 0 To tabla_empleados.Columns.Count - 1
                Dim nombre_campo As String = String.Empty
                Select Case tabla_empleados.Columns(x).Name
 
                    Case "id_Empleado"
                        nombre_campo = "Id"
                    Case "nombre_Empleado"
                        nombre_campo = "Nombre"
                    Case "apellidop_Empleado"
                        nombre_campo = "Apellido Paterno"
                    Case "apellidom_Empleado"
                        nombre_campo = "Apellido Materno"
                    Case "area"
                        nombre_campo = "Area"
                End Select
 
                tabla_empleados(x, i).Value = datos_tabla.Rows(i).Item(nombre_campo)
 
            Next
        Next
 
 
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder