Discussion :

[Oluha]

Bonjour

J'essaye de mettre le résultat d'un select dans un tableau. Le problème c'est que quand j'execute mon programme j'ai le message d'erreur : "Opération de pointeur incorrecte". J'ai beau chercher sur le net, je ne trouve pas l'erreur dans mon code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    query_corUpd.Close;
    query_corUpd.sql.clear;
    query_corUpd.sql.add('select IDTABLE from '+NomTable);
    query_corUpd.sql.add('where ANOMALIE = ''CM'' and CORRVILLE = '''+trim(copy(ville.Text,1,32))+''' and CORRCP = '''+cp.Text+'''');
    query_corUpd.open;
    //query_corUpd.first;
    SetLength(tabid,query_corUpd.RecordCount-1);
    i := 0;
    while not query_corUpd.eof do
    begin
         tabid[i] := query_corUpd.Fieldbyname('IDTABLE').AsString;
         Inc(i);
         query_corUpd.next;
    end;

Quelqu'un voit-il où est mon erreur ?
Merci

[Fares BELHAOUAS]

Salam

query_corUpd.open;
//query_corUpd.first;
SetLength(tabid,query_corUpd.RecordCount-1);

Vérifie si ta requete retourne un RecordCount, car quelques SGBD ne supporte pas cette fonction.

Si c'est le cas utilise une autre requête qui te calcul le nombre d'enregistrement de ta requête:

pour cela il suffit de modifier un peu ta requête:

Code :

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

1
2
3
4
5
   query_corUpd.Close; 
    query_corUpd.sql.clear; 
    query_corUpd.sql.add('select IDTABLE from '+NomTable); 
    query_corUpd.sql.add('where ANOMALIE = ''CM'' and CORRVILLE = '''+trim(copy(ville.Text,1,32))+''' and CORRCP = '''+cp.Text+''''); 
    query_corUpd.open;

par

Code :

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

1
2
3
4
5
   query_corUpd.Close; 
    query_corUpd.sql.clear; 
    query_corUpd.sql.add('select COUNT(IDTABLE) from '+NomTable); 
    query_corUpd.sql.add('where ANOMALIE = ''CM'' and CORRVILLE = '''+trim(copy(ville.Text,1,32))+''' and CORRCP = '''+cp.Text+''''); 
    query_corUpd.open;

Cette dernière te donne le nombre d'enregistrements résultants.

[Oluha]

c'est bon j'ai réussi à trouver d'où venait l'erreur qui était en fait juste après !
Merci quand même pour l'aide

[Fares BELHAOUAS]

Salem,

Autre chose, il faut écrire :

Code :

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

SetLength(tabid,query_corUpd.RecordCount);

au lieu de

Code :

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

SetLength(tabid,query_corUpd.RecordCount-1);

Bon courage