Discussion :

[archonte]

Bonjour à tous,

J'ai une BDD Access attaquée par ADO. Lorsque j'ajoute un enregistrement dans une table (ADO - Query = INSERT), j'aimerais qu'il apparaisse immédiatement dans un DBLookUpComboBox ou dans un DBGrid. Or actuellement, il faut que je ferme puis ré-ouvre l'application ... vous comprenez bien que je ne sois pas satisfait du résultat.

Je dispose d'un ADOConnexion > ADOQuery > DataSource > DBLookUpComboBox / DBGrid.

J'ai essayé de fermer/ouvrir la requête, de fermer/ouvrir la ADOConnexion, de rafraichir le DBLookUpComboBox, etc...


Merci pour vos commentaires éclairés

[ouiouioui]

a la place de adoquery j'utilise un adotable et sur la supression ajout je fait

Code :

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

1
2
    ADOTable.Requery();
    (Sender As TDBLookupComboBox).Refresh;

et ma liste est à jour

je sais pas si sa peux t'aider

[Just-Soft]

Salut;

forcer le refresh sur l'ensemble de données puisque à la fermeture c'est ce qui se passe en effet si tout s'est bien passé.

[archonte]

Salut à tous !

Alors j'ai réessayé de mettre du refresh "un peu partout" --> mais rien. J'ai déconnecté la liaison à la base --> toujours rien !!

Bref.

Tout d'un coup, j'ai décidé de faire plusieurs ajouts consécutifs ... et là = mystère :
- 1er requête INSERT : évidemment : rien (sinon je n'aurais pas ouvert cette discussion !), le DBLookUpComboBox ne prend pas la modification ;
- 2ème (et 3ème, 4ème, etc) requête INSERT : le DBLookUpComboBox affiche les 2 (3, 4, etc) nouvelles lignes .



à OUIOUIOUI : j'ai bien essayé avec les ADOTable : mêmes résultats !

[Just-Soft]

Salut;

et si tu mettais entre nos mains ce code si mystérieux !!!

[philnext]

Oui j'ai déjà vu ça, essaye de mettre ta requête de modif. dans une transaction.

[archonte]

Salut;

et si tu mettais entre nos mains ce code si mystérieux !!!

C'est bien ça le problème : c'est un code simpliste ... et qui remplit correctement la base : aucun message d'erreur

dans Form2 = une fiche de saisie des données :

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
 
procedure TForm2.EnrgAClient;
var
  strSQL : WideString;
begin
  strSQL := 'INSERT INTO clients (idservice, nom, prenom, nbre, genre, valide) '  +
                'values (:Pidservice, :Pnom, :Pprenom, :Pnbre, :Pgenre, :Pvalide)';
  with DM.ADOQry do
  begin
    Close;
    SQL.text := strSQL;
    ParamCheck := true;
    Parameters.ParamByName('Pidservice').Value := IIfVi(DBLUPCBxCli.KeyValue);  // IIfVi() : convertit, s'il existe, un variant en integer
    Parameters.ParamByName('Pnom').Value := AClient.nom;
    Parameters.ParamByName('Pprenom').Value := AClient.prenom;
    Parameters.ParamByName('Pnbre').Value := AClient.nbre;
    Parameters.ParamByName('Pgenre').Value := AClient.genre;
    Parameters.ParamByName('Pvalide').Value := True;
    ExecSQL;
    Close;
  end;
end;

dans le DataModuleCreate :

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
 
procedure TDM.DataModuleCreate(Sender: TObject);
  ...
  begin
  ...
    ADOQry.ConnectionString := ADOCnxStr;
  ...
  end;
 
initialization
  ADOCnxStr :=
     'Provider=Microsoft.Jet.OLEDB.4.0;'+
     'User ID=Admin;' +
     'Data Source=' + dbName + ';' +
     'Mode=Share Deny None;' +
     'Jet OLEDB:Engine Type=5;'
     ;

@ PhilNext : j'essaie demain la transaction, mais je ne sais pas si le moteur JET les accepte ?

[Just-Soft]

Salut;

dans la procedure EnrgAClient le second close sert à quoi ? moi j'aurais mis un open à la place !

[Montor]

Code :

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

ADOQry.Active:false

ou utilise une TAdoConnection,ADOCommand

[archonte]

Merci pour toutes vos réponses.

@ PhilNext : pas eu le temps d'essayer les transactions.

@JustSoft : effectivement le deuxième close n'a pas d'intérêt. Par contre, pour les requêtes INSERT, j'utilise habituellement un ExecSQL plutôt qu'un Open que je reserve aux clauses SELECT .

@Montor : j'essaie dès que possible un Active := False;

Il ne me reste plus qu'à passer à l'oeuvre. Je vous tiens au courant.

[Rayek]

Si tu veux que ton dblookup se mette à jour il serait bien de rafraichir la requête du composant.
Un requête n'est qu'une vue de la base de données a un instant T.

Sinon, mis à part çà, avec ado il vaut mieux utiliser requery que refresh

[Montor]

Combien de TADOQuery utilise-tu ?
si une seule

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
28
29
30
31
 
procedure TForm2.EnrgAClient;
var
  strSQL,OldSql : WideString;
  St:boolean;
begin
  strSQL := 'INSERT INTO clients (idservice, nom, prenom, nbre, genre, valide) '  +
                'values (:Pidservice, :Pnom, :Pprenom, :Pnbre, :Pgenre, :Pvalide)';
  with DM.ADOQry do
  begin
    St:=Active;
    OldSql:= SQL.text;
   try
    Close;
    SQL.text := strSQL;
    ParamCheck := true;
    Parameters.ParamByName('Pidservice').Value := IIfVi(DBLUPCBxCli.KeyValue);  // IIfVi() : convertit, s'il existe, un variant en integer
    Parameters.ParamByName('Pnom').Value := AClient.nom;
    Parameters.ParamByName('Pprenom').Value := AClient.prenom;
    Parameters.ParamByName('Pnbre').Value := AClient.nbre;
    Parameters.ParamByName('Pgenre').Value := AClient.genre;
    Parameters.ParamByName('Pvalide').Value := True;
    ExecSQL;
    Close;
   finally
    SQL.text:= OldSql; 
    Active  :=St;
   end;
 
  end;
end;

ou tu fais sur qui ADOQuery

Code :

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

1
2
   ADOQuery1.Close;
   ADOQuery1.Open;

[archonte]

Merci pour toutes vos réponses.

A force de constater que j'avais plus ou moins déjà essayé les solutions que vous avez proposées, je me suis aperçu d'une faille dans mon programme. En fait, en "empilant" les couches avec l'EDI (je veux dire : sans écrire le code à la main), j'ai laissé un DataSource orphelin de son ADOQuery ....

Problème résolu !

Encore à vous.

Quant à moi (), il ne me reste plus qu'à me faire et pour le temps perdu ...