Torna al Thread
Public Sub AggiungiParametroData(ByVal Parametri As ArrayList, ByVal NomeParametro As String, ByVal Direction As ParameterDirection, ByVal Valore As String)
Dim Parametro As SqlClient.SqlParameter = New SqlClient.SqlParameter(NomeParametro, SqlDbType.DateTime)
If Valore <> "" Then
Parametro.Value = CDate(Valore)
Else
Parametro.Value = SqlTypes.SqlDateTime.Null
End If
Parametro.Direction = Direction
'aggiungilo alla lista
Parametri.Add(Parametro)
End Sub