2017-10-21 7 views
0

J'ai un problème concernant la production du rapport mais avant cela, j'ai besoin d'exécuter un code pour que je puisse créer plusieurs conditions pour le prochain rapport.VB.Net de la table (type de données de temps) à l'étiquette

J'ai ici une capture d'écran de mon tbldtr. Ce que je veux, c'est la valeur de am_time_in dans laquelle le type de temps de données sera transféré dans un label/textbox/variable. J'utilise Visual Basic avec MySQL.

Voici mon code

Public Class Form1 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    checktime() 
End Sub 

Private Sub checktime() 
    Dim cn As New MySqlConnection(CnPath) 
    Dim Sql As String = "SELECT `tbldtr`.`am_time_in` FROM `tbldtr` WHERE `tbldtr`.`id` = '11' AND `tbldtr`.`dtrdate` = '2017-10-16'" 
    Dim daCmd5 As New MySqlCommand(Sql, cn) 

    cn.Open() 

    Dim datinfo As MySqlDataReader = daCmd5.ExecuteReader() 

    While datinfo.Read() 

     If IsDBNull(datinfo(0)) = True Then 
      lblamtimein.Text = "" 
     Else 
      lblamtimein.Text = datinfo(0) 
     End If 
    End While 
    cn.Close() 
End Sub 

End Class

erreur ici:

enter image description here enter image description here

Répondre

0

L'erreur se produit sur cette ligne -

lblamtimein.Text = datinfo(0) 

TimeSpan doit être converti explicitement à une chaîne comme celui-ci -

lblamtimein.Text = datinfo(0).ToString