Voici le message d'erreur :
An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
Additional information: Conversion from string "True" to type 'Integer' is not valid.
Et voici le code :
L'erreur se produit lorsque je donne la valeur à sSQL alors qu'il n'y a aucun integer et aucun boolean.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim Datetmp, sSql As String Dim DLUrecup As Date sSql = "SELECT BECJPEREMP " & " FROM BESOIN " & " WHERE BEKTSOC='" & Num_Soc & "' AND BEKTNUMERO='" & _Cmde & "' AND BEKTLIGNE='" & _Cmde_lig & "' " & " AND BECTCODEPF ='" & _C_ref & "' AND BECTCOMPPF='" & _CC_ref & "' AND BECTLGNOME = '00900'" Datetmp = ExecuteSQLStmt(sSql) DLUrecup = New Date(Datetmp.Substring(0, 4), Datetmp.Substring(4, 2), Datetmp.Substring(6, 2)) Recupere_DLU = DLURecup
Les 5 variables sont des string.
Quelqu'un peut m'aider c'est vraiment urgent.
Partager