Discussion :

[LandGreen]

Bonjour à Tous,
j'ai une table PRODUIT, je fais l'insertion à partir de la fiche illustrée ci-dessous
voici le code en appuyant sur le bouton ENREGISTRER :

Code :

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

1
2
3
4
5
6
7
8
9
F_DM.T_Prod.edit;
frxReport1.Preview.Free;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
F_DM.T_Prod.Post;
F_DM.AQ_Pr.DisableControls;
F_DM.AQ_Pr.Active:=False;
F_DM.AQ_Pr.Active:=True;
F_DM.AQ_Pr.EnableControls;
close;

maintenant je veux faire une insertion en gardant la fiche et aussi les informations saisies précédemment en incrémentant uniquement le champ CODE

merci par avance

[ShaiLeTroll]

Pour l'auto-incrémenter, faite le gérer par le SGBD, il en garantira l'unicité lors d'accès concurrentiel

D'ailleurs, un clone d'une ligne peut aussi se faire un via INSERT SELECT en SQL

En fait, nous avons un tas d'information mais pas celle utile pour vous répondre, par exemple quel est le SGBD et quel est le provider ?

[LandGreen]

En fait, nous avons un tas d'information mais pas celle utile pour vous répondre, par exemple quel est le SGBD et quel est le provider ?

j'utilise une simple BDD MS Access !

tous les champs sont des DBEdit

le Before insert du Adoquery contient :

Code :

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

1
2
3
4
5
6
7
8
9
 
  AQ_Pr.Last;
   if Q_Max1.RecordCount=0 then I:=1 else
    begin
      Q_Max1.Close;
      Q_Max1.SQL.Clear;
      Q_Max1.SQL.Add('select * from produits  where C_Pr = ( select max(C_Pr) from produits )');
      Q_Max1.open;
      I:=AQ_PrC_Pr.Value+1;

[SergioMaster]

Access et ADO mes deux bêtes noires !

J'aurais tendance à écrire comme ShaiLeTroll que
1- j'aurais utilisé un autoincrément (après vérification cela s'indique par NuméroAuto comme type)
2- j'aurais utilisé une requête de type INSERT INTO <table> (<liste des colonnes à initialiser sauf numero auto>) SELECT <liste des colonnes à initialiser> FROM <table> WHERE numeroauto=LAST(numeroauto)ou ,sans auto incrément, INSERT INTO <table> (C_Pr,<liste des colonnes à initialiser) SELECT C_Pr+1,<liste des autres colonnes à initialiser> FROM <table> WHERE C_pr=LAST(C_pr)puis un open Select * FROM produits where C_pr=Last(C_Pr);
en simplifiant, pour ne pas insérer avant, pas de SELECT * mais une bonne liste de colonne

Code SQL :

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

SELECT C_Pr+1,<Liste des colonnes> from produits where C_pr=Last(C_Pr);

Mais bon, moi et Access, on n'est pas copain, j'ai peut-être mal compris la fonction LAST()

[LandGreen]

en simplifiant, pour ne pas insérer avant, pas de SELECT * mais une bonne liste de colonne

Code SQL :

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

SELECT C_Pr+1,<Liste des colonnes> from produits where C_pr=Last(C_Pr);

comment relier une requête insert avec des DBEdit que j'ai ?

[ShaiLeTroll]

Expliquer mieux votre besoin !
Vous partez dans une direction qui n'est pas forcément la bonne.

Si vous souhaitez dupliquer une ligne via l'IHM c'est tout de même extrêmement simple
N'utiliser pas de Table mais deux Query
A la limite Table + Query

Faire un Select sur la ligne à copier c'est la Query Source
Puis dans un second Query Destination volontairement avec un WHERE 0 = 0 pour obtenir le DataSet avec la structure vide
Cela peut être aussi el Table qui sert de Destination
Faites votre Insert(), copier les valeurs via un for FieldCount do Fields[].Value à l'ouverture de la fenêtre
Sur le bouton Enregistrer faire le Post() pour finir, cela va provoquer l'ajout en base ... l'ID ne sera calculé qu'à ce moment, ne surtout pas le rendre affichable avant l'insertion réelle

Oublier votre bricolage avec MAX + 1, ce n'est pas une méthode viable.
laisser faire ACCESS pour l'autoInc

Personnellement, je n'utilise jamais Post(), je préfère générer le SQL moi-même à partir par exemple d'un TClientDataSet.
Cela permet une maitrise totale des entrées sorties entre votre programme et la base de données.

[SergioMaster]

comment relier une requête insert avec des DBEdit que j'ai ?

Je ne comprends pas votre demande vous me demandez comment relier une requête insert et vous citez ma requête select
Donc dans le cas d'un Select la question de se pose pas
dans le cas d'un Insert, j'ai l'impression que vous ne m'avez pas lu jusqu'au bout le

puis un open

n'est pas là pour rien

[ShaiLeTroll]

Il va effectivement repenser votre façon de programmer et votre approche avec la base de données.
Laisser l'auto-inc à ACCESS.

Pour le reste, votre demande n'est pas très clair, quel est le but réel, le besoin d'utilisateur ?


ADO : en ce moment, je me bas lorsque tu as juste 400 lignes mais qu'un blob de 25Mo est dedans, le Open d'un clUseClient ne peut pas dépasser les 2Go sur un process 64Bits, et passer en clUseServer, ... impact encore inconnu, comme toi, ADO pour moi c'est dépassé, obsolète depuis ADO.NET qui donne l'impression que le premier a été abandonné, vu que l'application est 100% N-Tiers, j'espère la passer intégralement en UseServer\ForwardOnly pour les perf.


Last c'est l'inverse de First sur un DataSet, cela se positionne sur le dernier record.