Insert avec TPQConnection ne semble pas fonctionner

Version imprimable

Bonjour,
Mon souci est que j'arrive à récupérer et à afficher les données depuis une base de données PostgreSQL mais pas à les modifier. Voici le code utilisé :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
procedure TMainForm.BtTestClick( Sender : TObject) ;
var
  _SQLCon    : TPQConnection;
  _SQLTrs     : TSQLTransaction;
  _SQLQuery : TSQLQuery;
  tampon      : String;
begin
  // Initialise la connection
  _SQLCon    := TPQConnection.Create(nil);
  _SQLCon.DatabaseName := 'DB_MOSAIC';
  _SQLCon.HostName     := '192.168.0.12';         <----- Acces distant autorisé
  _SQLCon.UserName     := 'postgres';
  _SQLCon.Password     :=  'motdepasse';
  //Ouvre la connection
  try
    _SQLCon.Connected := True;
  except
    on e:EDatabaseError do begin
      Erreur('Connection impossible.'+#13#10+e.Message);
      _SQLCon.Free;
      exit;
    end;
  end;
 
  // Lier les objets
  _SQLTrs          := TSQLTransaction.Create(_SQLCon);   <------ Cela est il permis?
  _SQLTrs.DataBase := _SQLCon;
 
  _SQLQuery             := TSQLQuery.Create(_SQLCon);    <------ Cela est il permis?
  _SQLQuery.DataBase    := _SQLCon;
  _SQLQuery.Transaction := _SQLTrs;
 
  // Injecte et execute la requete SQL
  try
    _SQLCon.ExecuteDirect('insert into bpartner(bprnum, bprnam) values(''SALIM'',''TEST Lazarus'');');
  except
    on e:EDatabaseError do begin
      Erreur('Erreur reqête SQL.'+#13#10+e.Message);
      _SQLCon.Free;
      exit;
    end;
  end;
 
  _SQLCon.Free;
end;

Le code me semble bon car il fonctionne sur une BDD MySQL. Je dois sans doute avoir loupé quelque chose.

OS : Linux 3.2.0-4-686-pae #1 SMP Debian 3.2.54-2 i686 GNU/Linux
Lazarus : Version 1.2.0
PostgreSQL : Version 9.1.1.2

La structure de table a été simplifiée pour les besoins du test :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
-- Table: bpartner
 
-- DROP TABLE bpartner;
 
CREATE TABLE bpartner
(
  bprnum character varying(10) NOT NULL,
  bprnam character(35) NOT NULL,
  CONSTRAINT pkd_bpartner PRIMARY KEY (bprnum )
)
WITH (
  OIDS=FALSE
);
ALTER TABLE bpartner
  OWNER TO postgres;
GRANT ALL ON TABLE bpartner TO postgres WITH GRANT OPTION;

Je préfère utiliser PosqtgreSQL mais sinon je me rabattrais sur MySQL. Mais j'aimerais bien savoir ce qui se passe.

Merci à tous.
Salim

18/06/2014, 15h03
larsal007
Re-bonjour,
J'ai passé toute la journée d'hier sans trouver de réponse. Je poste et 5 min plus tard, je trouve la réponse sur un autre forum (http://en.it-usenet.org/thread/13232/386/) où quelqu’un avait le problème inverse en passant de PostgreSQL à SQLite qui n'acceptait pas les commit sans transactions.
Avec PostgreSQL, il faut faire un commit après la requête d'insertion.
Code:

1 2 3 _SQLCon.ExecuteDirect('insert into bpartner(bprnum, bprnam) values(''SALIM'',''TEST Lazarus'');'); _SQLCon.ExecuteDirect('commit');
A toute fin utile.
Bon courage à tous.
Salim.
19/06/2014, 08h40
tintinux

Bonjour,

Je crois que ce n'est pas directement lié à PGSql mais plutôt parce que tu as un démarrage de transaction implicite.
Si, pour voir, tu fais un SELECT après l'INSERT je parie que tu retrouves les données insérées.

Peut-être est-ce une propriété par défaut de TPQConnection ? Si oui, c'est fâcheux.
Avec ZEOS je n'ai jamais rencontré ce problème.

Bonjour,

Citation:

Envoyé par tintinux

Peut-être est-ce une propriété par défaut de TPQConnection ? Si oui, c'est fâcheux.
Avec ZEOS je n'ai jamais rencontré ce problème.

Eh bien non, ce n'est pas fâcheux ! :roll:
Ce qui est fâcheux, c'est que les développeurs ignorent bien souvent le concept de transaction, s'habituent à des composants qui autocommitent leurs actions et après s'interrogent sur un fonctionnement soi-disant innattendu... ;)
Et puis un petit coup d’œil aux documentations existantes ne peut pas faire de mal : How to execute direct queries/make a table?

Ensuite, pour la demande relative au création de composants, oui, cela est permis. Lors de la libération de _SQLCon, tous les objets qui lui sont rattachés seront également libérés.
J'aurais peut-être écrit le code différemment :
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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 procedure TMainForm.BtTestClick( Sender : TObject) ; var _SQLCon : TPQConnection; _SQLTrs : TSQLTransaction; _SQLQuery : TSQLQuery; tampon : String; begin // Initialise la connexion _SQLCon := TPQConnection.Create(nil); try _SQLCon.DatabaseName := 'DB_MOSAIC'; _SQLCon.HostName := '192.168.0.12'; _SQLCon.UserName := 'postgres'; _SQLCon.Password := 'motdepasse'; //Ouvre la connexion try _SQLCon.Connected := True; except on e:EDatabaseError do begin Erreur('Connexion impossible.'+#13#10+e.Message); exit; end; end; // Lier les objets _SQLTrs := TSQLTransaction.Create(_SQLCon); _SQLTrs.DataBase := _SQLCon; _SQLQuery := TSQLQuery.Create(_SQLCon); _SQLQuery.DataBase := _SQLCon; _SQLQuery.Transaction := _SQLTrs; // Injecte et exécute la requête SQL try _SQLCon.StartTransaction; _SQLCon.ExecuteDirect('insert into bpartner(bprnum, bprnam) values(''SALIM'',''TEST Lazarus'');'); _SQLCon.Commit; except on e:EDatabaseError do begin Erreur('Erreur requête SQL.'+#13#10+e.Message); exit; end; end; finally _SQLCon.Free; end; end;

20/06/2014, 13h39
larsal007

Merci à tous,
Je n'aime pas non plus les composants qui font tout le boulot, mais ça permet de justement comprendre les mécanismes quand ça ne tourne pas rond et d’apprécier le travail fait main.

@Philippe : Merci pour le code. Je l'ai appliqué au mot près. Bien noté pour "composant.create(_SQLQuery)"

Merci à tous pour votre aide et assistance.
Salim.