Autor
mi problema es que al hacer esto:
Código:
Dim Cxn3 As ADODB.Connection
Dim AdoS3 As ADODB.Recordset
Dim CxnFac3 As String
Set Cxn3 = New Connection
Cxn3.CursorLocation = adUseClient
CxnFac3 = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=131072;Stmt=;Database=siadco;Uid=root;Pwd=;"
Cxn3.Open CxnFac3 ' Abrimos la conexion
Set AdoS3 = New Recordset
AdoS3.Open "SELECT sum(HOUR(total)) as horas, sum(MINUTE(total)) as minutos, sum(SECOND(total)) as segundos FROM `bitacora` WHERE idUsuario='" & Text1.Text & "'", Cxn3, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
Form2.Label3.Caption = Format(AdoS3!horas, "00") & ":" & Format(AdoS3!minutos, "00") & ":" & Format(AdoS3!segundos, "00")
en si esto:
Código:
"SELECT sum(HOUR(total)) as horas, sum(MINUTE(total)) as minutos, sum(SECOND(total)) as segundos FROM `bitacora` WHERE idUsuario='" & Text1.Text & "'"
me da como resultado:
00:03:92
y yo lo que quiero es que me aumente los minutos automaticamente
c me ocurre hacer un BUCLE
do while SEGUNDOS > 60
si SEGNDOS es > 60
minutos = minutos + 1
segundos = segundos - 60
loop
algo asi
pero seria mucho trabajo no?
Agradezco ayuda
Gracias
En línea
