Requete insert ne s'execute pas depuis Delphi!

Version imprimable

07/05/2007, 12h15
bouzaidi

Requete insert ne s'execute pas depuis Delphi!

Bonjour,
Quand je fais des acces de base de données depuis delphi en utilisant les composants ADO, les requetes de type select sont bien executées alors que celles d'insert ne sont pas executée. Lors du débogage delphi quand je visualise le text de ma requete je vois que la requete est correcte à 100% (elle s'xecute meme quand je le fé manuellement) mais elle est pas executé par delphi!!!
Est ce qu'il s'agit d'une option du composant qui permet les select et qui interdit les insert??? Bref je n'en sais rien
Merci de bien vouloir m'aider;)
07/05/2007, 12h20
zemeilleurofgreg

Salut,

tu pourrais me donner la requête que tu essaies d'exécuter ?
07/05/2007, 12h22
zemeilleurofgreg

Je viens d'y penser,

Est-ce que tu utilises bien la commande suivante après ta requête ?

Code:

objADO.ExecSQL
07/05/2007, 14h03
PpPool

Bonjour

il serait surtout intéressant de spécifier avec quel type de SGBD vous travaillez.

Certains comme Oracle, SQL Server, demande de valider (commit) la transaction après tout autre ordre DML de type insert, update, delete, merge.

@

voici le code où je fais ma mise a jour dans la base de données, et en effet j'utilise un execsql:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 procedure TF_Main.AddExportStatus(DealID: integer; FileName: string); var ADOUp : TADOQuery; begin ADOUp := TADOQuery.Create(Application); try ADOUp.Connection := ADOConnectionParams; ADOUp.SQL.Text := Format(RS_SQL_AddExportStatus, [DealID, QuotedStr(FileName)]); ADOConnectionParams.BeginTrans; try ADOUp.ExecSQL; ADOConnectionParams.CommitTrans; except On E:Exception do begin ADOConnectionParams.RollbackTrans; MessageDlg(E.Message, mtWarning, [mbOk], 0); end; end; finally ADOUp.Free; end; end;
je suis sous oracle 10, je note que lors de l'execution de cette procedure, ça ne passe pas par le RollBackTrans donc il n'y a pas d'annulation d'execution de requetes. Sinon pourquoi l'utilisation de execsql peut me poser de problemes Merci...

07/05/2007, 16h46
bouzaidi

Salut,
En fait L'insert est fait, mais pas dans la bonne base de données que j'ai precisé au composant. C'est vraiment trop louche, j'ai precisé au composant que la base de dnnées soit base1@server1, je trouve que l'insertion a été faite dans base2@server2, sacahant qu'au début le composant était reglé sur base2@server2 et que j'ai fait la modif pour que ca travaille sur base1@server1!!!! pourkoi alors il prend pas en compte de cette modif!!

Essayes:

Code:

1
2
3
AdoQuery.Active := False;
  AdoQuery.Connection := ....
  AdoQuery.Active := True;

Merci
j'ai essayé mais comme ca c est pire car ca renvoi une erreur Base de donnée alors que avant ca s'execute mais pas dans la bonne base de données.

En fait si j ai bien compris vous m'avez dedmandé de faire comme ceci non?

Code:

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
 
procedure TF_Main.AddExportStatus(DealID: integer; FileName: string);
var
  ADOUp : TADOQuery;
begin
  ADOUp := TADOQuery.Create(Application);
  try
    ADOUp.Active:=false;
    ADOUp.Connection := ADOConnectionParams;
    ADOUp.Active := True;
    ADOUp.SQL.Text   := Format(RS_SQL_AddExportStatus, [DealID, QuotedStr(FileName)]);
    ADOConnectionParams.BeginTrans;
    try
      ADOUp.ExecSQL;
      ADOConnectionParams.CommitTrans;
    except
      On E:Exception do
      begin
        ADOConnectionParams.RollbackTrans;
        MessageDlg(E.Message, mtWarning, [mbOk], 0);
      end;
    end;
  finally
    ADOUp.Free;
  end;
end;

11/05/2007, 12h28
nowayyy36

Bon personnellement je suis sur Delphi que depuis quelques jours, et je ne me suis jamais servi des composants ADO.. Mais si j'ai tout suivi, on te dit de faire :

Citation:

ADOUp.Active:=false;
ADOUp.Connection := ADOConnectionParams;
ADOUp.Active := True;

Tu dois désactiver la connection à la base courante, indiquer à quelle connection tu veux te connecter, ADOConnectionParams doit alors contenir les infos du BON SERVEUR, ensuite tu réactives la connection.. Le INSERT qui suit devrait donc normalement s'opérer sur la bonne BD..

Donc si dans le "ADOConnectionParams" de

Citation:

ADOUp.Connection := ADOConnectionParams;

S'il y a les bons paramètres du serveur 1, ca devrait fonctionner...

J'ai bon ^^ ?
11/05/2007, 14h26
Rayek
1- Le AdoQUp.Active := True; ne sert à rien et ca risque te générer une erreur car c'est l'équivalent de AdoQUp.Open;. Et vu que tu crées dynamiquement ton TAdoQuery, ca sert a rien de l'activer vu qu'il est vide.
Le Active := False ne sert a rien non plus, pour les même raison que plus haut.

2- Quel pilote utilises tu ? ODBC ? Pilote direct à oracle ?

3- Juste avant le ExecSQL rajoute cette ligne :
Code:

1 2 Showmessage(AdoQUp.connection.ConnectionString);
Et vérifie que les paramètres sont correctes, dans le cas contraire, vérifie que tu n'ai pas en dur dans ton code quelques choses qui modifie le ConnectionString