urgente como insertar datos en access
Publicado por Cristi (3 intervenciones) el 20/04/2005 17:19:08
hola muy buenas tengo que insertar varios text y combo en una tabla de access, y no se como, no me funciona.
Private Sub Cmd_alta_Click()
If Text_turno <> \"\" And Text_empleado <> \"\" And text_fechainiciote <> \"\" And Text_fechafinte <> \"\" And Text_horasextras Then
conectar
rs.Open \"select codtur from turno_empleado where codtur=\'\" & Text_turno & \"\', con\"
If rs.EOF Then
con.Execute \"insert into turno_empleado values (\" & Text_turno & \", \" & Text_empleado & \", \'\" & Text_fechainite & \"\', \'\" & Text_fechafinte & \"\', \" & Text_horasextras & \")\"
borrarcampos F_trabaja
Else
MsgBox \"Existe el turno\"
End If
cerrar
End If
End Sub
A su vez tengo que dar de baja y modificarlos.
[email protected]
Private Sub Cmd_alta_Click()
If Text_turno <> \"\" And Text_empleado <> \"\" And text_fechainiciote <> \"\" And Text_fechafinte <> \"\" And Text_horasextras Then
conectar
rs.Open \"select codtur from turno_empleado where codtur=\'\" & Text_turno & \"\', con\"
If rs.EOF Then
con.Execute \"insert into turno_empleado values (\" & Text_turno & \", \" & Text_empleado & \", \'\" & Text_fechainite & \"\', \'\" & Text_fechafinte & \"\', \" & Text_horasextras & \")\"
borrarcampos F_trabaja
Else
MsgBox \"Existe el turno\"
End If
cerrar
End If
End Sub
A su vez tengo que dar de baja y modificarlos.
[email protected]
Valora esta pregunta


0