Opérations du des données, DataTables ou Tableaux ?

**methylene** · 25/03/2010, 09h22

Bonjour à tous

Je développe un programme en visual basic sous visual studio 2008.

Ce programme doit générer un rapport budgétaire à partir de données issues d'une BdD sous MSSQL d'une part et extraites de fichiers .txt d'autre part.

Pour l'instant, les données sont bien extraites de la BdD et rangées dans des DataTables tandis que celles issues des fichiers .txt sont stockées dans des tableaux.

Comme je ne suis pas très à l'aise avec les DataTables, j'ai commencé par remplir des tableaux avec les données des DataTables pour ne travailler que sur des tableaux par le suite. Cependant, remplir les tableaux prend beaucoup de temps de traitement !

Ci-dessous le code utilisé pour remplir un des tableaux (le tableau "TableTaskMean")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim ListeSections2() As String = New String() {"Id", "IdTask", "IdMean", "DayNumber", "Quantity"}
 
        Dim NbTaskMean
         NbTaskMean = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site)
 
        ReDim TableTaskMean(4, NbTaskMean - 1)
 
        For i As Integer = 0 To NbTaskMean - 1
        For j As Integer = 0 To 4
 
        TableTaskMean(j, i) = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site).Rows(i)(ListeSections2(j))
 
       Next j
        Next i

La requète SQL correspondant au GetDataBy :

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
SELECT Id, IdTask, IdMean, DayNumber, Quantity
FROM dbo.TaskMean 
WHERE IdTask IN
(
SELECT Id
FROM dbo.Task 
WHERE IdActivity IN
(
SELECT Id
FROM dbo.Activity
WHERE IdSchedule=
(
SELECT Id
FROM dbo.Schedule
WHERE IdSite=@ID_Site AND ScheduleType=0
)
)
)

Est-ce mon code qui fait que ça prend trop de temps ou est-ce normal et il ne faut travailler que sur des DataTables ?

Merci d'avance

**hotsizzle** · 25/03/2010, 09h52

Le datatable est pourtant assez facile à utiliser qu'est ce qui te pose des soucis avec le datatable?

Pour ce qui est du temps, c'est peut être également dut au fait que tu a 3 sous requetes dans ta requete

**Philippe Vialatte** · 25/03/2010, 10h57

Salut,

petit préalable, je ne supporte pas les DataSet fortement typés (c'est moche !)

..;mais bon...

ton problème ne vient pas du datatable, mais de la façon dont tu l'utilise
Cette ligne la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        TableTaskMean(j, i) = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site).Rows(i)(ListeSections2(j))

Rappelle GetDataBy autant de fois que tu l'appelles, donc tu appelles n fois ton select, au lieu d'une fois...

donc, premiere chose, récupère une seule fois ton datatable...

Seconde chose, faire des selects imbriqués avec des IN, en terme de performances, c'est mal ! Tu devrais faire des jointures, typiquement, qq chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SELECT Id, IdTask, IdMean, DayNumber, Quantity
FROM dbo.TaskMean 
INNER JOIN dbo.Task on Task.Id = TaskMean.TaskId
INNER JOIN Activity  on Activity .Id = Task.IdActivity 
INNER JOIN Schedule on Activity.IdSchedule = Schedule.Id
WHERE IdSite=@ID_Site AND ScheduleType=0

Troisième chose à faire, remets ton programme en strict on, explicit on...
Cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Dim NbTaskMean
         NbTaskMean = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site)

Ca fait carrèment mal aux yeux, GetData est censé renvoyer un datatable, et tu sembles utiliser le count du datatable...

C'est un projet professionel, ou un stage ?

**methylene** · 25/03/2010, 11h12

Pour ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbTaskMean = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site)

Le ".count" a disparu lors de la mise en forme de mon post...

Sinon c'est pour un stage de fin d'étude mais comme vous pouvez vous en douter je ne suis pas un pro de la programmation...

Bref, le problème c'est que je ne sais pas comment remplir un tableau avec les données de la datatable sans refaire la requete à chaque fois...

**Philippe Vialatte** · 25/03/2010, 12h20

GetDataBy te retourne une datatable, non ?

Si c'est le cas, tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim ListeSections2() As String = New String() {"Id", "IdTask", "IdMean", "DayNumber", "Quantity"}
 
Dim dt as dataTable = Menu_choix_chantier.TaskMeanTableAdapter.GetDataBy(ID_Site) 
Dim NbTaskMean as int = dt.Rows.Count
 
ReDim TableTaskMean(4, NbTaskMean - 1)
 
For i As Integer = 0 To NbTaskMean - 1
  For j As Integer = 0 To 4
   TableTaskMean(j, i) = dt.Rows(i)(ListeSections2(j))
   Next j
Next i