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
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
0