Bonjour
Ci-dessous la une fonction qui retourne un DataSet dans la quelle une requête pour lire des données dans une DB SQL
Mais parfois le TimeOut est dépassé ( beaucoup de données )
Est-il possible de l'augmenter a ce niveau, par défaut je crois qu'il est a 30 sec

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Function GetDatas(ByRef StringSql As String, ByRef TableName As String, ByRef Connexion As String) As DataSet
            Dim Ds As DataSet
            Dim Da As SqlDataAdapter
            Dim ConnexionData As SqlConnection
            Dim StrSql As String = Nothing
 
            Try
                  ConnexionData = New SqlConnection(Connexion)
 
                  ConnexionData.Open()
 
                  Da = New SqlDataAdapter(StringSql, Connexion)
                  Ds = New DataSet
                  Da.Fill(Ds, TableName)
                  ConnexionData.Close()
 
                  Return Ds
 
            Catch ex As Exception
 
                  MsgBox(ex.Message)
 
                  Return Nothing
 
            End Try
 
      End Function
Ou une autre façon de faire si celle-ci est mauvaise