Buenos dias nuevamente,
Necesito crear 2 condicion pero primero explico esto para que me puedan ayudar mejor.
Tabla Usuarios: (esta tabla tendra a los empleados de la empresa y se usará para validar)
nombre_usuario
Tabla Registros: (esta tabla se va a ir llenando con los datos de VB)
nombre_usuario
idtareas
idclientes
fechahora_inicio
fechahora_finalizar
Primera condicion en la que necesito ayuda:
En el programa se introduce el nombre de un usuario en el text1.text y se tiene que verificar si este cliente existe en la tabla usuarios en el campo nombre_usuario para poder continuar con el proceso. Como ven, antes coloque varios campos en la tabla registros, con este primer proceso se llenan todos menos el campo fechahora_finalizar y aqui es donde viene la otra condicion
Segunda condicion en la que necesito ayuda:
culminar el proceso el programa regresa a la primera pantalla donde se tiene que colocar un usuario, al colocar el usuario antes de verificar si este usuario existe en la tabla usuarios, tiene que verificar si existe en la tabla registros donde ese registro tenga el campo fechahora_inicar no sea null y que que el campo fechahora_finalizar si sea null(lo que quiere decir que inicio una tarea pero no la ha terminado), en ese caso se hará visible un boton(bt_finalizar) donde al presionarlo simplemente inserte la fecha y hora actual en el campo fechahora_finalizar y pueda iniciar una nueva tarea
este es el codigo para iniciar tarea:
| Código: |
rivate Sub bt_iniciar_Click()
'con esto hago el registro(supongamos que es el numero 1) y registro la hora y fecha en que se se inicia la taresa(idtareas)
Conexion.Execute "INSERT INTO registros (nombre_usuario, idtareas, idclientes, fechahora_inicio) VALUES ('" & Text1.Text & "', '" & Text2.Text & "', '" & Text3.Text & "', Now())"
End Sub
|
El problema es que no se como es la forma correcta para hacer estas condiciones directamente con la BD de Mysql.
Coloco la conexion que hice para cualquie duda:
| Código: |
Dim Conexion As ADODB.Connection
Dim Rst As ADODB.Recordset
Option Explicit
Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Set Rst = New ADODB.Recordset
'Sustituye servidor,user,password,bd con lo que tu tienes
Conexion.ConnectionString = "driver={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=123456;database=Control_de_Tiempo;"
Conexion.Open
Rst.ActiveConnection = Conexion
Rst.CursorLocation = adUseClient
Rst.CursorType = adOpenDynamic
Rst.LockType = adLockBatchOptimistic
End Sub
|
Doy gracias de antemano por la colavoracion que me den. |
