[MS-SQL] [débutant] Delphi et SQL et ADOQuery

**Cdx** · 30/08/2006, 17h22

Bonjour,

J'ai "développé" une appli en Delphi 6 qui accède à une BDD Access 97.
Pour ca j'utilisais le BDE et malgré pas mal de déboires, j'ai réussi à faire un truc qui tourne à peu prés correctement.
Prochainement les bases vont être migrées sur un serveur SQL, et je vais donc devoir modifier l'appli pour qu'elle aille désormais taper sur ce serveur.

J'essaye désespérement d'utiliser les composants ADO depuis ce midi, mais je suis confronté à quelques problemes et malgré la lecture de nombreux tutorials, je ne parviens pas à trouver la solution.

Par exemple :
J'utilisais une requête qui allait compter le nombre d'enregistrements dans ma table :

Code :

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

1
2
3
4
5
 
        Query1.Prepare;
        Query1.Open;
        NbreCodeClient := (Query1.FieldbyName('cnt').asinteger);
        Query1.Close;

La requête SQL etait : select count(*) as cnt from T_customer;

J'ai bien réussi à paramétrer les composants ADOConnection et ADOTable, et la connexion au serveur SQL s'effectue bien, mais je ne parviens pas à trouver comment remplacer le code ci dessus avec une ADOQuery ...

Si quelqu'un pouvait m'aider ou m'indiquer ou trouver une information intéressante ...

D'avance merci

**cmen76** · 30/08/2006, 17h26

Oublies le prepare et ton code devrait fonctionner...

**Cdx** · 30/08/2006, 17h32

Ce code fonctionne trés bien, mais en utilisant une Query SQL (BDE) ...
Cependant je veux désormais utiliser ADO et donc remplacer le code en utilisant des ADOQuery ...

Si je crée une ADOQuery1 et que j'utilise le code suivant :

Code :

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

1
2
3
4
 
        ADOQuery1.SQL;
        NbreCodeClient := (AdoQuery1.FieldbyName('cnt').asinteger);
        ADOQuery1.OpenSQL;

Avec ADOQUery SQL = select count(*) as cnt from T_customer;

Il me sort un "champ 'cnt' non trouvé" ...

**cmen76** · 30/08/2006, 17h58

Code :

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

1
2
3
4
5
 
ADOQuery1.SQL.Text := 'select count(*) as cnt from T_customer';
ADOQuery1.Open;
NbreCodeClient := ADOQuery1.FieldbyName('cnt').asinteger;
ADOQiery1.Close;

**Cdx** · 31/08/2006, 09h12

Excellent

Merci beaucoup

Pour continuer dans le même truc, j'avais le code suivant (en tapant sur la BDD Access 97 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Form1.CodeClient.Prepare;
Form1.CodeClient.Open;
       While not Form1.CodeClient.Eof do begin;
       Progressbar1.Position:=i;
       i:=i+1;
       Form1.Combobox4.Items.add(Form1.CodeClient.FieldByName('Customer_nbr').asstring);
       Form1.CodeClient.Next;
       end;
Form1.CodeClient.Close;

Avec SQL Query = select customer_nbr from T_Customer order by Customer_nbr;

J'ai donc remplacé par (pour taper sur le serveur SQL) :

Code :

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

1
2
3
4
5
6
7
8
9
 
Form1.ADOQuery1.Open;
       While not Form1.ADOQuery1.Eof do begin;
       Progressbar1.Position:=i;
       i:=i+1;
       Form1.Combobox4.Items.add(Form1.ADOQuery1.FieldByName('Customer_nbr').asstring);
       Form1.ADOQuery1.Next;
       end;
Form1.ADOQuery1.Close;

Avec ADOQuery1 = select customer_nbr from T_Customer order by Customer_nbr;

Tout fonctionne correctement, cependant c'est 10 fois plus lent qu'auparavant ... alors que le serveur SQL est une bête de guerre ... le reste des requêtes s'execute à vitesse normale ...
Je remplis juste un combobox avec 40.000 codes clients à 6 chiffres ...
Peut on optimiser ?

**cmen76** · 01/09/2006, 10h23

Peut on optimiser ?

La bonne question est : A-t-on besoin de rapatrier les 40000 d'un coup ? Bonjour la charge réseau !

En fait, 3 pistes de réflexion :
* Voir si fonctionnellement il est possible de réduire le volume (filtre préalable, par exemple)
* Pourquoi ne pas utiliser un TLookUpList ou un TDBLookUpComboBox ; Ainsi, c'est ADO qui gèrera les paquets à récupérer du serveur au fur et à mesure des besoins, plutôt que de charger les 40000 avant de rendre la main...
* Pour accélérer la requête, il faudrait s'assurer de la présence d'un INDEX sur le champ Customer_nbr de la table T_Customer.

Bon courage

**Cdx** · 01/09/2006, 12h28

En fait l'appli est faite pour de la saisie d'appels telephoniques en temps reel ... il faut donc que la saisie du code client soit rapide ...
Le fait que ce soit lent n'est pas trop genant, puisque c'est uniquement au chargement de l'appli.
Par contre je m'interrogeais de savoir pourquoi une telle difference de vitesse entre la version Access et la version SQL ... puisque toutes les autres requetes de l'appli sont aussi rapides dans un cas comme dans l'autre ...
Et comme je suis plutot débutant en Delphi, je me demandais si mon code n'etait pas optimisable

Merci pour tes réponses en tous cas ...

**Cdx** · 04/09/2006, 12h57

Bon, j'ai essayé qq trucs, mais rien n'y fait, c'est tjs aussi lent.
J'ai rempli un tableau avant de remplir le Combo, j'ai indexé le champ Customer_nbr ... rien à faire ...