Discussion :

[SafidyVaovao]

Bonjour à toutes et à tous !

Je débute en programmation donc veuillez m'excuser si je ne suis pas très claire.

Sous Delphi xe7, j'aimerais pouvoir "copier" des enregistrements se trouvant dans une table A (SGDB Firebird et BD FlameRobin) vers une table B en cliquant sur un bouton.
Quel code taper entre begin et end de la procédure suivante afin que la copie des enregistrements s'effectuent ?

procedure TFicheGrilleManager.BtnAjoutClick(Sender: TObject);
begin

end;

Je précise que j'ai une grille TIWDBGrid pour visualiser tous les enregistrements de la table A, un Edit et un bouton correspondant à l'Edit pour pouvoir rechercher un élément caractérisé par ses enregistrements dans la table A et l'afficher dans la grille.

Je vous remercie pour votre aide.

Cordialement,
SafidyVaovao

[Papy214]

Le but est-il de :

Ajouter les TOUTES les lignes d'une table dans une autre ?
si oui, la table de destination doit-elle être vidée ?
si non, faut-il gérer les doublons éventuels ?
si non, comment sont sélectionnées les lignes à "copier-coller" (terme impropre utilisé seulement pour la compréhension)

Les lignes à ajouter sont-elles seulement celles de la grille ?
Dans ce cas, la grille est liée à un TDatasource, elle-même liée à un TDataset.
Il suffit de lire chaque ligne et de faire une requête SQL de mise à jour à appeler avec un T[FB][ADO]Query

[pascalCH]

sans donner LA solution ....

dans la TForm il doit y avoir 2 TTable la A et la B

donc, en faisant une boucle sur A, on parcours tous les records de A

A.First;

While not A.Eof do begin

B.Append; // ajout d'un record dans B

// .... copier les valeurs des champs

B.Post;

end;

[paulfr]

Bonjour,

dans un tel cas ne peut on utiliser un TBatchMove ?

PL

PS TBachMove semble spécifique au BDE.

[pascalCH]

Bonjour,

dans un tel cas ne peut on utiliser un TBatchMove ?

PL

PS TBachMove semble spécifique au BDE.

+1 ! c'est le plus simple, plus facle qu'un TQuery

[SergioMaster]

Bonjour,

SGDB Firebird et BD FlameRobin

une petite précision, si Firebird est bien une SGBDR , Flamerobin n'est pas une base de données mais un "petit" utilitaire graphique (GUI) permettant de gérer des bases de données

Dans un tel cas ne peut on utiliser un TBatchMove ? TBachMove semble spécifique au BDE.

BatchMove non car BDE, mais Firedac propose TFDBatchmove qui aurait (conditionnel) les mêmes fonctions et plus (le plus étant les exports vers Texte ou SQL) par l'intermédiaire des writers/readers à associer.

Pour faire une copie, de table à table je préfère cependant de loin un bon SQL du genre

Code SQL :

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

INSERT INTO TABLEDESTINATION(<CHAMPS>) SELECT <CHAMPS> FROM TABLESOURCE <WHERE CONDITIONS>

Bref comme le souligne Papy214 on manque d'indications, ne serait-ce que le type de composant utilisé pour accéder à la BDD et les structures des tables A et B,
et quel est le but exact de la copie ? la version de Firebird aussi peut avoir son importance, la 2.5 permettant de travailler sur 2 ou + SGBD dans une requête

Personnellement je n'utiliserais qu'en dernier recours une boucle While not source.eof do .... source.next end; qu'en dernier recours
par exemple s'il ne fallait passer que des enregistrements sélectionnés (sélection multiple) dans une grille
ensuite depuis quelques années je privilégie chaque fois que possible le SQL INSERT à des Appends+valeurs+post pour des questions de transactions
j'en viens même souvent à carrément créer un script dans lequel se trouve mes inserts avant d'en faire l'application globable

Je précise que j'ai une grille TIWDBGrid pour visualiser tous les enregistrements de la table A, un Edit et un bouton correspondant à l'Edit pour pouvoir rechercher un élément caractérisé par ses enregistrements dans la table A et l'afficher dans la grille.

IWDBGRID voudrait dire que c'est un programme intraweb ? ça mérite confirmation surtout à la lecture du préambule

Je débute en programmation

[SafidyVaovao]

Le but est-il de :

Ajouter les TOUTES les lignes d'une table dans une autre ?
si oui, la table de destination doit-elle être vidée ?
si non, faut-il gérer les doublons éventuels ?
si non, comment sont sélectionnées les lignes à "copier-coller" (terme impropre utilisé seulement pour la compréhension)

Les lignes à ajouter sont-elles seulement celles de la grille ?
Dans ce cas, la grille est liée à un TDatasource, elle-même liée à un TDataset.
Il suffit de lire chaque ligne et de faire une requête SQL de mise à jour à appeler avec un T[FB][ADO]Query

L'idée est d'ajouter une seule ligne d'une table dans une autre. Les lignes à ajouter sont celles de la grille oui, mais les lignes de cette grille sont les même que celle de la table de départ.
J'ai pensé à mettre une case à cocher pour chaque ligne mais lorsque je mets une case à cocher, celle-ci ne se met pas dans la grille donc pas en face de la ligne, mais en dehors.

[Papy214]

Alors une simple requête insert or update suffira.

En se basant sur le site suivant, ça devrait être plus clair:

http://www.firebirdsql.org/refdocs/l...or-insert.html

[SafidyVaovao]

Bonjour,

une petite précision, si Firebird est bien une SGBDR , Flamerobin n'est pas une base de données mais un "petit" utilitaire graphique (GUI) permettant de gérer des bases de données

BatchMove non car BDE, mais Firedac propose TFDBatchmove qui aurait (conditionnel) les mêmes fonctions et plus (le plus étant les exports vers Texte ou SQL) par l'intermédiaire des writers/readers à associer.

Pour faire une copie, de table à table je préfère cependant de loin un bon SQL du genre

Code SQL :

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

INSERT INTO TABLEDESTINATION(<CHAMPS>) SELECT <CHAMPS> FROM TABLESOURCE <WHERE CONDITIONS>

Bref comme le souligne Papy214 on manque d'indications, ne serait-ce que le type de composant utilisé pour accéder à la BDD et les structures des tables A et B,
et quel est le but exact de la copie ? la version de Firebird aussi peut avoir son importance, la 2.5 permettant de travailler sur 2 ou + SGBD dans une requête

Personnellement je n'utiliserais qu'en dernier recours une boucle While not source.eof do .... source.next end; qu'en dernier recours
par exemple s'il ne fallait passer que des enregistrements sélectionnés (sélection multiple) dans une grille
ensuite depuis quelques années je privilégie chaque fois que possible le SQL INSERT à des Appends+valeurs+post pour des questions de transactions
j'en viens même souvent à carrément créer un script dans lequel se trouve mes inserts avant d'en faire l'application globable


IWDBGRID voudrait dire que c'est un programme intraweb ? ça mérite confirmation surtout à la lecture du préambule

Merci pour votre réponse.

C'est bien un programme intraweb. Désolée pour l'oubli.
J'utilise comme composant un TDataSource et un TFDQuery. Qu'est ce que vous entendez par structures des tables A et B ?
Le but du "copier-coller" est en fait d'avoir dans la table B uniquement les lignes que je souhaite de la table A. Et cela grace à un bouton "ajouter" qui se trouve sur ma fiche.
S'il y a par exemple dans ma table A :
designation couleur marque
stylo rouge a
règle bleur b
crayon gris c

et que dans ma table B je veux la 2 ème ligne uniquement. Que dois je taper comme code dans la procedure du bouton pour que j'ai la 2ème ligne dans ma table B ?
Je rappelle que ce qu'il a a dans ma table a se retrouve dans ma grille TIWDBGrid où il y a énormément de ligne. Il y a un curseur à droite de la grille pour voir les lignes un peu plus bas. J'ai un navigator TIWDBNavigator aussi, qui lorsque je clique sur son bouton "suivant", la ligne suivante est colorée.

La version de Firebird est la 15.0 ( j'espère ne pas dire de bêtise).

Pouvez-vous préciser comment effectuer la sélection d'une ligne dans un TIWDBGrid svp ?

[SafidyVaovao]

Alors une simple requête insert or update suffira.

En se basant sur le site suivant, ça devrait être plus clair:

http://www.firebirdsql.org/refdocs/l...or-insert.html

Merci, mais il y a un petit problème : je ne peux pas spécifier les VALUES étant donné que ça dépend de ce que l'utilisateur va sélectionner comme ligne dans la TIWDBGrid.

Je pense que le plus gros problème se passe à la sélection de la ligne du TIWDBGrid. Du coup, on dirait en français approximatif : INSERT INTO table A la ligne sélectionnée dans le TIWDBGrid ( qui est aussi une ligne dans la table B ) FROM table B ( table où il y a toutes les lignes du TIWDBGrid)

[Papy214]

les lignes sont affichées dans la grille, les données (values) sont forcément accessibles.

Je crois qu'il faudrait lire quelques docs ou tutos avant d'aller plus loin

[SafidyVaovao]

les lignes sont affichées dans la grille, les données (values) sont forcément accessibles.

Je crois qu'il faudrait lire quelques docs ou tutos avant d'aller plus loin

Vous avez tout à fait raison, je voulais aller plus vite en posant ma question ici car je n'ai pas beaucoup de temps pour réaliser mon projet
Merci à tous pour vos réponses en tout cas.

[SergioMaster]

Bonjour,
Donc, en fait, il s'agit plus de savoir quelles sont les lignes sélectionnées d'un TIWDBGrid qu'autre chose.
Reste à savoir comment vous sélectionnez les lignes ,avec un case à cocher d'accord, mais la case à cocher correspond à un champ ou pas ?
apparemment ce n'est pas un champ de la table mais cela peut être un champ ajouté au niveau du dataset ?

s'il s'agissait simplement de l'enregistrement courant j'aurais fait un code de ce style , avec la clé s'il y en a une ce serait mieux

Code :

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

1
2
3
FDConnection1.ExecSQL('INSERT INTO TABLEDESTINATION (DESIGNATION,COULEUR,MARQUE) SELECT DESIGNATION,COULEUR,MARQUE FROM TABLESOURCE WHERE DESIGNATION=:DESIGNATION AND COULEUR=:COULEUR AND MARQUE=:MARQUE',[FdTable.FieldByName('DESIGNATION').asString,
FdTable.FieldByName('COULEUR').asString,
FdTable.FieldByName('MARQUE').asString]);

Nota :

La version de Firebird est la 15.0 ( j'espère ne pas dire de bêtise).

si, la bêtise est dite, Firebird 3.0 est encore en Beta test donc la 15 ..... il est facile d'obtenir la version via flamerobin (Server/Retriever Server Version)

[SafidyVaovao]

Bonjour,
Donc, en fait, il s'agit plus de savoir quelles sont les lignes sélectionnées d'un TIWDBGrid qu'autre chose.
Reste à savoir comment vous sélectionnez les lignes ,avec un case à cocher d'accord, mais la case à cocher correspond à un champ ou pas ?
apparemment ce n'est pas un champ de la table mais cela peut être un champ ajouté au niveau du dataset ?

s'il s'agissait simplement de l'enregistrement courant j'aurais fait un code de ce style , avec la clé s'il y en a une ce serait mieux

Code :

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

1
2
3
FDConnection1.ExecSQL('INSERT INTO TABLEDESTINATION (DESIGNATION,COULEUR,MARQUE) SELECT DESIGNATION,COULEUR,MARQUE FROM TABLESOURCE WHERE DESIGNATION=:DESIGNATION AND COULEUR=:COULEUR AND MARQUE=:MARQUE',[FdTable.FieldByName('DESIGNATION').asString,
FdTable.FieldByName('COULEUR').asString,
FdTable.FieldByName('MARQUE').asString]);

Nota :

si, la bêtise est dite, Firebird 3.0 est encore en Beta test donc la 15 ..... il est facile d'obtenir la version via flamerobin (Server/Retriever Server Version)

Je vous remercie, le code me semble parfait mais j'ai un message d'erreur "arguments hors limites". Je vais essayer de trouver l'erreur.
La version de Firebird est la 2.5

[SergioMaster]

Re,
j'avais fait cette proposition à l'aveugle, il y a plus simple (toujours s'il ne s'agit que de l'enregistrement en cours)

Code :

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

1
2
3
4
FDConnection1.ExecSQL('INSERT INTO TABLEDESTINATION (DESIGNATION,COULEUR,MARQUE) VALUES (:A,:C,:M)',
[FdTable.FieldByName('DESIGNATION').asString,
FdTable.FieldByName('COULEUR').asString,
FdTable.FieldByName('MARQUE').asString]);

par contre je ne comprends pas qu'il y ait un message d'erreur d'argument hors limite (trois paramètres, trois valeurs)
mais peut être que vous vous êtes trompé en transposant le code