Imprimir Página - Sumar Columna tipoo TIME en MySQL

pues esque tengo un contador de tiempo en VB6 y este es insertado en una BD

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

SOLUCIONADO!!!

seg = AdoS3!segundos
minut = AdoS3!minutos
horas = AdoS3!horas
Do While seg > 60
seg = seg - 60
minut = minut + 1
Loop
Do While minut > 60
minut = minut - 60
horas = horas + 1
Loop
Form2.Label3.Caption = Format(horas, "00") & ":" & Format(minut, "00") & ":" & Format(seg, "00")

pero de todas formas

como sumo en MYSQL los campos TIME

Salu2

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Rudy21 en 10 Noviembre 2008, 01:10 am