Question : Cast from type 'TimeSpan' to type 'String' is not valid.

Hi, I'm having troubles with reading a MySQLDataReader when the database field is assigned as Time.
The table looks like:

PESDAT as date
PESHOR as time
PESVAL as decimal(7,2)
PESMAT as varchar(1)

And my Code is attached below.

At line  hora = CType(taula("PESHOR"), String) I get the Title error. Tried many things (Cstr, Convert.toshortdatestring, eval, bind,  etc) but I can't get the value of PESHOR (as time) from MySQL.
I also read somewhere to add Allow Zero Datetime=False; in the connection string but that also doesn't work.

Any tip ? Thanks in advanced.
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Public Overrides Function Obtenir_pes_canal() As Double
        Dim cadena As String, taula As MySqlDataReader
        Dim pes As Double
        Dim data As Date, hora As Date
        pes = 0
        Try
            cadena = "SELECT * FROM T_PES WHERE PESDAT='" & Format(data_sistema, "yyyy-MM-dd") & "' AND PESMAT<>'X' ORDER BY PESDAT, PESHOR"
            taula = con.eXecutaReader(cadena)
            If taula.Read() Then
                pes = taula("PESVAL")
                data = taula("PESDAT")
                hora = CType(taula("PESHOR"), String) 
                cadena = "UPDATE T_PES SET PESMAT = 'X' WHERE PESDAT='" & Format(data, "yyyy-MM-dd") & "' AND PESHOR='" & Format(hora, "HH:mm:ss") & "'"
                con.eXecutaInst(cadena)
                If taula.Read() Then
                    pes = pes + taula("PESVAL")
                    cadena = "UPDATE T_PES SET PESMAT = 'X' WHERE PESDAT='" & taula("PESDAT") & "' AND PESHOR='" & taula("PESHOR") & "'"
                    con.eXecutaInst(cadena)
                End If
            End If
            taula.Close()
            con.Tanca()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 
        Return pes 
    End Function
Open in New Window
Select All

Answer : Cast from type 'TimeSpan' to type 'String' is not valid.

sorry.....

I meant  taula("PESHOR").ToString()
Random Solutions  
 
programming4us programming4us