Discussion :

[jullegeay]

Bonjour à Tous,

J'utilise une base de donnée ORACLE 10g et je développe sous Delphi 2006 Entreprise et delphi 7. La connexion à ORACLE se fait en dBExpress.

Mon problème est le suivant, je désire faire un recordcount sur une table.
Malheureusement lors de l'exécution il me met l'erreur suivant:

Le projet OracleDbExpress.exe a déclenché la classe d'exception EDataBaseError avec le message 'Erreur du serveur de base de donnée : ORA-00942: Table ou vue inexistante'.

Et voici mon programme:

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
24
25
26
27
procedure TFormConnexionBddDbExp.ButtonSelectSimpleClick(Sender: TObject);
var
  ReqSelect:string;
  i,Toto:integer;
begin
  //Déclenchement du chronomètre
  DemarrageChrono();
 
  for i := 0 to NbEnregistrement-1 do
  begin
  //Exécution de la requête
  SQLQuery.Close;
  SQLQuery.SQL.Clear;
  ReqSelect := 'SELECT PkIdBac FROM TblBac';
  SQLQuery.SQL.Add(ReqSelect);
  SQLQuery.Open;
 
  Toto := SQLQuery.RecordCount;
  end;   
 
  //Arrêt du chronomètre
  ArretChrono();
  //Mise à Jour de la DBGrid
  MAJDBGRID();
  //Affichage du temps d'exécution
  AffichageChrono();
end;

Voilà pour le problème.
J'espère avoir été assez clair.
Si vous avez des questions n'hésiter pas

Merci d'avance pour vôtre aide.

[Rayek]

Quand tu fais un pas à pas l'erreur est bien sur le recordcount ?
La table TblBac existe-t-elle ? Est-elle bien ecrite ? (majuscule et minuscule)

Pour ma part et au vue de l'erreur, la table TblBac n'existe pas.

[jullegeay]

Quand je fais un pas à pas, l'erreur est bien sur le recourdcount.
Et la table existe bien et elle est bien écrite.
C'est pour ça que je ne sais plus quoi faire.

Ca ne serait pas un problème de dll?

[pithier]

mettre une requete dans une boucle c'est pas top
et cette boucle est-elle justifiée ? il me semble qu'elle ne sert à rien içi
comment définis-tu NbEnregistrement ?
quand tu fais SQLQuery.Open , le SQLQuery.RecordCount te donne le nombre d'enregistrements ramenés par la requete

[jullegeay]

En faite la boucle ne me sert plus à rien c'est vrai.
Mais se n'est pas le problème.
Car j'ai refais une application:

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
procedure TForm1.ButtonSelectClick(Sender: TObject);
var
  ReqSQL : string;
  Toto : Integer;
begin
    SQLQuery1.Close;
    SQLQuery1.SQL.Clear;
    ReqSQL := 'SELECT * FROM TblBac ORDER BY PkIdBac';
    SQLQuery1.SQL.Add(ReqSQL);
    SQLQuery1.Open;
 
    ClientDataSet1.Active := True;
    Toto:=SQLQuery1.RecordCount;
    LabelRecordCount.Caption:=IntToStr(Toto);
end;

Et le problème persiste toujours.

[Rayek]

Avant le Recordcount fait un SQLQuery1.Last;
certain SGBD ont besoin qu'on aille a la fin du dataset pour arriver à fournir le nombre d'enregistrement.

[jullegeay]

J'ai déjà essayé mais ca ne marchais pas.
Il me disait que se n'était pas possible car je n'étais pas en bidirectionnel.

Mais j'ai résolu le pb quand même.

En effet, j'utilise un clientdataset. Donc j'ai remplacé mon SQLQuery1.RecordCount par ClientDataSet1.RecordCount.

Et ça marche.

J'aimerais quand même que l'on me dise si c'est une bonne solution.

En tout cas merci à tous ceux qui mon aidé.

[pithier]

le ClientDataset , c'est bien mais si ta table est volumineuse , c'est bête de tout ramener juste pour compter
fais 'SELECT Count(*) FROM TblBac , c'est rapide