Bonjour,

Voila j'execute une requëte de type SELECT avec des jointure lancée via VB NET. J'utilise donc un DATASET. J'ai un message d'erreur qui apparait en fait j'ai l'impression que le resultat de la requête est important et donc met plus de 60 secondes pour me renvoyer ce resultat.

J'aimerai savoir le moyen d'exploiter le resultat de cette requete.
Voici le code utilisé :

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
28
29
30
31
32
 
Module1.ObjetConnection = New OleDbConnection()
        Module1.ObjetConnection.ConnectionString = strConn
 
        Module1.ObjetConnection.Open()
 
        Module1.ObjetCommand = New OleDbCommand(strSql)
 
        Module1.ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
 
        Module1.ObjetCommand.Connection() = ObjetConnection
 
        Application.DoEvents()
        Module1.ObjetDataAdapter.Fill(ObjetDataSet, "fl_risque,pp_contrats,PP_Contrats_4Roues")
        Module1.ObjetDataTable = ObjetDataSet.Tables("fl_risque,pp_contrats,PP_Contrats_4Roues")
 
        Module1.RowNumber = 0
 
        While Not Module1.RowNumber = Module1.ObjetDataTable.Rows.Count
 
            Module1.LVI = New ListViewItem
 
            LVI.Text = Module1.ObjetDataTable.Rows(Module1.RowNumber).Item("pol_contrat").ToString
            LVI.SubItems.Add(Module1.ObjetDataTable.Rows(Module1.RowNumber).Item("flor_dtemec").ToString)
            LVI.SubItems.Add(Module1.ObjetDataTable.Rows(Module1.RowNumber).Item("Flor_Immat_Risque").ToString)
            LVI.SubItems.Add(Module1.ObjetDataTable.Rows(Module1.RowNumber).Item("flor_formule_id").ToString)
            LVI.SubItems.Add(Module1.ObjetDataTable.Rows(Module1.RowNumber).Item("Flor_Option2_id").ToString)
 
            Module1.RowNumber = Module1.RowNumber + 1
            Me.ListView1.Items.Add(Module1.LVI)
 
        End While

Merci d'avance pour votre aide.