Discussion :

[masterdash]

Bonjour tous le monde et un grand merci à Dany pour l'article d'intraweb pour delphi https://dany-leblanc.developpez.com/...lphi/intraweb/, alors moi j'ai une question concernent l'utilisation de DataTables de JQuery que j'utilise avec IntraWeb. à l'ouverture de la page l'affichage et long et prend beaucoup de temps pour affiché une datatables de jquery, sachant que la table contient 18500 ROWS, que faire pour que l'affichage se fait instantanément en 50 lignes, je suis coincé merci à tous.

Delphi 10.2 Tokyo
Intraweb 14.0
Windows 8.1

[SergioMaster]

Bonjour,

on déborde de Delphi puisqu'il s'agit plus de JQuery. Ce dernier a beaucoup évolué depuis mes dernières utilisations, le DataTable n'existait pas encore, c’était donc mes composants qui géraient les données.
Ma première réaction était donc de parler de Threads et/ou de gestion de requêtes.
Mais un petit tour dans les pages de JQuery Datatable semble indiquer qu'il y a des options à essayer
Si j'étais vous je regarderais de plus près data-page-length, Paging, ScrollY

[masterdash]

Bonjour, et merci Sergio, j'avoue ne pas comprendre votre réponse et ou trouvé data-page-length, Paging, ScrollY, moi j'ai suivi la vidéo de

Il utilise dans l'exemple OnUnknownTag de IWTemplateProcessorHTML pour afficher les donnes dans datatables de JQuery, le processus marche bien mais l'affichage des donnes et longue.

[SergioMaster]

Bonjour, et merci Sergio, j'avoue ne pas comprendre votre réponse et ou trouvé data-page-length, Paging, ScrollY

je vous ai indiqué le lien, un peu de recherche sur le site et vous trouverez ! par exemple ici
mais comme vous n'indiquez absolument pas comment vous chargez la table c'est tout ce que je (et d'autres) peut faire pour vous

de plus, j'ai visionné rapidement la vidéo j'y vois un TClientDataset et je n'ai pas vraiment vu de Datatable et Jquery

[masterdash]

Voici comment la tables et chargée:

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
procedure TIWAdherent.IWTemplateProcessorHTML1UnknownTag(const AName: string;
  var VValue: string);
begin
IF AnsiUpperCase(AName) = 'GRIDAHDERENTDATA' Then
  Begin
    UserSession.AdhereTable.First;
    While Not UserSession.AdhereTable.Eof Do
    Begin
      VValue := VValue + '<tr><td>' + UserSession.AdhereTable.FieldByName
        ('Num_Adherent').AsString + '</td>' + sLineBreak + '<td>' +
        UserSession.AdhereTable.FieldByName('Nom').AsString + '</td>'
        + sLineBreak + '<td>' + UserSession.AdhereTable.FieldByName
        ('Prenom').AsString + '</td>' + sLineBreak + '<td>' +
        UserSession.AdhereTable.FieldByName('DateDebut').AsString +
        '</td>' + sLineBreak + '<td>' + UserSession.AdhereTable.
        FieldByName('DateActiv').AsString + '</td>' + sLineBreak + '<td>' +
        UserSession.AdhereTable.FieldByName('Adresse').AsString +
        '</td>' + sLineBreak + '<td>' + UserSession.AdhereTable.
        FieldByName('Adresse_Suite').AsString + '</' + 'td></tr>' + sLineBreak;
      UserSession.AdhereTable.Next;
    End;
  End;
end;

[SergioMaster]

Bonsoir,

c'est bien ce que je pensais en fait vous n'utilisez pas "DataTables de JQuery" mais créez un simple tableau.

A mon avis le plus simple est d'utiliser plutôt un tableau plus court, égal au nombre de lignes qui peut être visible sur l'écran avec deux boutons supplémentaires permettant de naviguer d'avant en arrière et ainsi de gérer une position.
Du coup la première chose à faire est de revoir AdhereTable qui ne doit plus être une table mais une requête (beaucoup plus légère) qui permettra de ne récupérer que les n lignes nécessaires et ce à partir d'une position dans la table. (cela va beaucoup dépendre du SGBD en général il s'agit de la clause LIMIT ou ROWS )
une variable position est donc à mémoriser au niveau de la session.

donc vous aurez à faire avec une requête paramétrée de ce style ( N est la position, R le nombre de lignes)
MYSQL SELECT Num_Adherent,nom,Prenom,DateDebut,DateActiv,Adresse,Adresse_Suite FROM ADHERENTS LIMIT :N,:R ;
MSSQL* SELECT Num_Adherent,nom,Prenom,DateDebut,DateActiv,Adresse,Adresse_Suite FROM ADHERENTS WHERE ROWNUM>=:N LIMIT :R ;
POSTGRES SELECT Num_Adherent,nom,Prenom,DateDebut,DateActiv,Adresse,Adresse_Suite FROM ADHERENTS LIMIT :R,:N ;
Firebird** SELECT Num_Adherent,nom,Prenom,DateDebut,DateActiv,Adresse,Adresse_Suite FROM ADHERENTS ROWS :R FROM :N

* à vérifier
** dépend de la version