[VB.NET / SQL SERVER] : Données Importantes
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:
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.