Visual Basic.NET - Adicionar datos a tabla por codigo

 
Vista:

Adicionar datos a tabla por codigo

Publicado por zuneo (10 intervenciones) el 06/09/2011 05:17:10
Gracias de antemano;

La inquietud es muy sencilla para ustedes los expertos:

Tengo una tabla empleados con datos laborales, lo que pretendo es mediante un proceso automático generar el pago, es decir, deacuerdo a los datos registrados en la tabla empleados, crear la tabla pagos...

El sistema deberá generar una consulta que verifique el grupo del empleado (tabla empleados), se remita a la tabla grupos y vea la jornada asignada a este grupo. De la tabla jornadas, saque las horas para cada día y las asigne al campo horas de la tabla pagos...

Por otro lado:
Si tengo una consulta Select donde se implican varios campos de una tabla, cómo le digo al sistema que un campo de estos, de la consulta, lo asigne a un campo del formulario para almacenarlo??

Muchas gracias por la ayuda amigos.
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

Adicionar datos a tabla por codigo

Publicado por Diego (81 intervenciones) el 06/09/2011 09:19:08
Abres el registro en un dataSet, guardas el registro a editar en un datarow y despues lo editas

'Un pequeño ejemplo
Dim SqlEmpleado as strin

SqlEmpleado = "Select * from Empleados where CodigoEmpleados=1
DSEmpleado.Reset()
DAEmpleado = New SqlDataAdapter(SqlEmpleado, Conexion)
DAEmpleado.Fill(DSEmpleado, "Empleado")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Adicionar datos a tabla por codigo

Publicado por Diego (81 intervenciones) el 06/09/2011 09:22:33
Abres el registro en un dataSet, guardas el registro a editar en un datarow y despues lo editas
Escribo de memoria lo digo por si copias y pegas el codigo y tienes errores


'Un pequeño ejemplo
Dim SqlEmpleado as string
Dim DAEmpleado as new SqlDataAdapter
Dim DSEmpleado as new DataSet

SqlEmpleado = "Select * from Empleados where CodigoEmpleados=1
DSEmpleado.Reset()
DAEmpleado = New SqlDataAdapter(SqlEmpleado, Conexion)
DAEmpleado.Fill(DSEmpleado, "Empleado")

if DSEmpleado.Tables("Empleado").Rows.Count = 1 then

Dim RowEmpleado as DataRow = DSEmpleado.Tables("Empleado").Rows(0)

RowEmpleado.BeginEdit

RowEmpleado.Item("Descripcion") = me.TextBoxDescripcion.Text

RowEmpleado.EndEdit

Dim Graba as new SqlComandBuilder(DAEmpleado)
DAEmpleado.Update(DSEmpleado, "Empleado")

end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar