Discussion :

[EssaiEncore]

Bonjour,

J'aimerais affecter une valeur a mon databaseName pour ensuite réaliser une requete, mais a l'ouverture de ma requete " MDIChild.Query_Produits.Open; " le compilateur me repond que la table n'existe pas...il ne doit pas trouver la valeur de mon databasename

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
 
DataModule_Base.Database_OracleV8.Connected := true;
    DataModule_Base.Database_OracleV8.Open;
 
 
  MDIChild:= TForm_ResRecherche.create(Form_StockExt);
  MDIChild.Caption := 'Produits stockés chez MARMION'; //bouton
 
     MDIChild.DataSource_Produits.DataSet.Name :='Query_Produits';
  MDIChild.Query_Produits.Database.Name := 'V6';
 MDIChild.Query_Produits.Active := true;
 
  MDIChild.Query_Produits.SQL.Clear;
 
    MDIChild.Query_Produits.SQL.Add('SELECT * FROM PRODUIT')
 
  MDIChild.Query_Produits.SQL.Add('where lieu_stockage >= 4000 and lieu_stockage <= 9500');
 
MDIChild.Query_Produits.Open;

Merci d'avance

[Magnus]

Que veux-tu affecter à la propriété de Database.Name ?
Le chemin d'une base ?
Si c'est le cas en lisant la doc je pense que tu cherches à modifier DatabaseName et non Database.Name.

D'ailleurs quel est le type du composant Query_Produits sur lequel tu appeles cette propriété ?

[EssaiEncore]

Oui je veux affecter une requete a mon databaseName.

Merci pour DatabaseName et non pas Database.Name.

Le probleme est que je jongle entre 2 databases.

je dois donc quitter le premier database, me connecter au second et appliquer la bonne table au databaseName.

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
 
MDIChild.Query_Produits.CloseDatabase(DataModule_Base.Database_OracleV6D);
 
 
DataModule_Base.Database_OracleV8.Connected := true;
DataModule_Base.Database_OracleV8.open;
MDIChild.Query_Produits.OpenDatabase();
 
MDIChild.Query_Produits.close;
MDIChild.Query_Produits.DatabaseName := 'V6';
MDIChild.DataSource_Produits.DataSet.Name :='Query_Produits';
 
 
  MDIChild.Query_Produits.SQL.Clear;
    MDIChild.Query_Produits.SQL.Add('SELECT * FROM PRODUIT')
  MDIChild.Query_Produits.SQL.Add('where lieu_stockage >= 4000 and lieu_stockage <= 9500');
 
MDIChild.Query_Produits.Open;

DUR DUR !!!

merci

[Magnus]

la propriété DatabaseName appliquée sur qry de type TQuery (par exemple) s'utilise de la manière suivante :

Code :

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

qry.DatabaseName := 'c:\delphi\demos\database';

A quoi correspond 'V6' ?
Quel est le type de ton objet Query_Produits (TQuery, TTable, etc.) ?

[rv66]

tu peux regarder ce post
http://www.developpez.net/forums/viewtopic.php?t=387071