Discussion :

[vasaldo]

la question de base mais comme delphi c tout pourri...

j'ai ça comme code qui plante...


<code>

lz_query := TQuery.create(application.Owner);
lz_query.close;
lz_query.SQL.Clear;
lz_query.RequestLive := false;
lz_query.DatabaseName := DM1.DatabaseAlim.DatabaseName;
lz_query.SQL.add('SELECT sysdate from dual');
lz_query.ExecSQL;

showmessage(inttostr(lz_query.RecordCount));

</code>

ca me sort "impossible d'acceder a un ensemble de données fermées"

ca veut dire quoi ??

c pire qu'un message oracle ce truc!!!

[vasaldo]

bon ben apparemment un pb d'ordre...


Avec delphi7 voici comment s'utilise un TQuery BDE
1- query : = Tquery.create;
2- query.databasename := 'la source odbc';
3- query.sql.clear;
4- query.sql.add(' instruction sql');
5- query.execsql;
6- query.active := true; //ouverture de la source de données


ca reste zarbi comme truc... pkoi ca me le disait pas delphi?

[Barbibulle]

Si vous trouvez que Delphi c'est pourri merci de ne pas faire du Delphi... et d'aller calomnier sur un autre site.

Le message est tout à fait clair pour un développeur Delphi.
Vous n'avez pas ouvert l'ensemble de données.
Ce qui ce fait par

Code :

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

Query.Open;

ou

Code :

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

Query.Active := True;

Le execSQL est inutile.
Et vous vous compliquez la vie car dans 99% des cas il est innutile de créer dynamiquement vos TIBQuery... Creez un DataModule et mettez y vos TIBQuery ou mettez vos TIBQuery dans votre fiche tout simplement.
Renseignez le code SQL lors de la conception et il ne vous restera plus qu'à programmer l'affectation des parametres de votre requetes SQL et ouvrir le query.
Ce qui est quand même plus simple, et le code n'en sera que plus clair.

[cmen76]

Selon l'ordre SQL que tu passes à ta requête, tu récupères ou non un ensemble de données. La commande d'exécution sera différente.

Pour un select :

Code :

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

query.open

(ou

Code :

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

query.active := true

) permet de récupérer les données dans le TDataset

Pour un insert, update ou delete :

Code :

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

query.execSQL

, puis la lecture de

Code :

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

query.RowsAffected

te permettra de connaître le nb d'enregistrements affectés par l'ordre SQL