[ADO][PostgreSQL] Connexion-Execution de requetes

Bonjour,
J'ai la même erreur que charliejo (voir son message ici). Sa réponse ne fonctionne pas dans mon cas.

J'utilise Delphi 7 et j'aimerais exécuter une requête sous PostgreSQL.

• L'erreur :

http://img7.hostingpics.net/pics/91130erreur.jpg

• Ma chaine de connexion est :

Code:

---

'Provider=PostgreSQL.1;data source=localhost;location=postgres;User ID=postgres;Password=pwd'

---

• Ma table est 'toute simple' :

Code:

---

1 2 3 4 5 6 7 8 9

CREATE TABLE electrical_function_ef ( ef_id character varying(11) NOT NULL, ef_desc character varying(80) NOT NULL, fa_id character varying(20) NOT NULL, val character varying(16), tol character varying(16), CONSTRAINT pk_electrical_function_ef PRIMARY KEY (ef_id) )

---

• Et ma requête est de la forme :

Code:

---

insert into electrical_function_ef (EF_ID, EF_DESC, FA_ID, VAL, TOL) values ('2603148', '10-497640-025 PCB CONTACT PIN SIZE 20', 'CONN-CIR', '', '')

---

Celle-ci fonctionne bien lorsque je l'écris sous PostgreSQL.
De plus l'insertion avec Delphi s'effectue quand même malgré l'erreur.

Le problème est que la requête renvoie 0 :

Code:

---

1 2 3 4

_adoQuery.SQL.Add (....) count := adoQuery.ExecSQL; adoQuery.Close; result := (count = 1);

---

Le count est égal à 0
(Je suppose donc que les 2 sont liés.

J'ai effectué de nombreuses recherches sur Internet, mais je n'ai trouvé aucune réponse à ce problème pourtant récurent.

Pouvez-vous m'expliquer sa réponse ? Ou me donner un élément de résolution de ce problème ?

Citation:

---

Par

Code:

---

1 2

DRIVER={PostgreSQL};DATABASE=base_dev;SERVER=box1;PORT=5432;UID=user;PWD=pwd;READONLY=0;PROTOCOL=6.4; FAKEOIDINDEX=0;SHOWOIDCOLUMN=0;ROWVERSIONING=0;SHOWSYSTEMTABLES=0;CONNSETTINGS=;FETCH=100;SOCKET=4096; UNKNOWNSIZES=0;MAXVARCHARSIZE=254;MAXLONGVARCHARSIZE=8190;DEBUG=0;COMMLOG=0;OPTIMIZER=1;KSQO=1; USEDECLAREFETCH=0;TEXTASLONGVARCHAR=1;UNKNOWNSASLONGVARCHAR=0;BOOLSASCHAR=1;PARSE=0;CANCELASFREESTMT=0;EXTRASYSTABLEPREFIXES=dd_;

---

Je sais pas quel paramètre était nécessaire... mais je n'ai plus le problème.

---

Merci d'avance,
Bonne journée,
Meloo

Bonjour,
Je ne sais pas si ca change quelque chose, mais cela ne fonctionne toujours pas avec la chaine :

Code:

---

'Provider=PostgreSQL OLE DB Provider;Password=pwd;User ID=postgres;Data Source=localhost;Location=postgres;Extended Properties=""'

---

Citation:

---

Envoyé par meloo

Ma chaine de connexion est :

Code:

---

'Provider=PostgreSQL.1;data source=localhost;location=postgres;User ID=postgres;Password=pwd'

---

---

Avez vous une idée ?

Merci d'avance,
Meloo

enlève le adoQuery.Close; avp :aie:

Citation:

---

Envoyé par edam

enlève le adoQuery.Close; avp :aie:

---

Bonjour edam,
Merci de ta réponse.
Malheureusement cela ne résout pas mon problème qui reste inchangé.


Toutefois, j'ai effectué quelques recherches suite à ton poste et je vois que Close sert à fermer la requête. Peux-tu m'expliquer pourquoi il ne faut pas le faire ? (J'espère que tu ne tomberas pas une seconde fois dans les escaliers à la suite de cette question :oops: )

Bonne journée,
Meloo

Citation:

---

Exécute l'instruction SQL de la requête ADO.

function ExecSQL: Integer;

Description

Appelez ExecSQL pour exécuter l'instruction SQL actuellement affectée à la propriété SQL. Utilisez ExecSQL pour exécuter des requêtes ne renvoyant pas de curseur sur des données (comme INSERT, UPDATE, DELETE et CREATE TABLE).

ExecSQL renvoie une valeur entière reflétant le nombre de lignes affectées par l'instruction SQL exécutée.

Remarque*: Pour les instructions SELECT, appelez la méthode Open au lieu de ExecSQL ou affectez la valeur True à la propriété Active.

Pour accélérer les performances en rapidité, une application doit normalement préparer la requête en affectant la valeur True à la propriété Prepared avant d'appeler ExecSQL pour la première fois.

---

et bien sûr close suit open (ou active:=true) c'est tout.:aie:
autre chose, pourquoi ne pas utilisé les paramétres, avec delphi+ado c'est trés conseillé que d'utilisé des requettes surtout, les requettes de modification(insert et update)
pourquoi tu insert des vides, si tes chaine est vide, pourquoi pas n'enléve tu pas simplement ces champs

Code:

---

insert into electrical_function_ef (EF_ID, EF_DESC, FA_ID) values ('2603148', '10-497640-025 PCB CONTACT PIN SIZE 20', 'CONN-CIR')

---

qui sait :aie:

Edam, merci pour ta réponse.

Malheureusement, cela ne m'a pas apporté de solutions.

Mais les recherches que j'ai effectuées à la suite de tes posts m'ont ouvertes quelques portes : j'ai réussi à me connecter avec ODBC.

Elements de résolutions pour les personnes ne trouvant pas de solution avec cette erreur :

• Installation des drivers de PostgreSQL avec ODBC, ici : ftp://ftp.postgresql.org/pub/odbc/ve...08_04_0100.zip
• Configuration de ODBC :
  
  1. Aller dans le Panneau de configuration
  2. Aller dans les Outils d'administration
  3. Aller dans Sources de données (ODBC)
  4. Choisir l’onglet Drivers et vérifier que PostgreSQL ANSI et PostgreSQL Unicode sont bien présents
  5. Aller dans l’onglet USER DNS, puis cliquez sur ADD
  6. Sélectionner PostgreSQL Unicode(ou AINSI) puis Terminer
  7. Remplir les cases :
     http://img7.hostingpics.net/pics/41355Capture13.jpg
     où :
     
     • DataSource : est le nom du "lien" que l'on créé
     • Database : est le nom de la base de donnée à laquelle on veut acceder
     • Serveur : est l'endroit sur lequel est situé la base
     • Port : est le port par lequel on accède à PostgreSQL (par défaut 5432)
     • UserName : est le nom du compte
     • Password : est le mot de passe du compte associé au UserName
     
     
  8. Configuration du fichier Delphi :
     On change la chaine de connexion par :
     
     Code:

     ---

     Provider=MSDASQL.1;Persist Security Info=False;Data Source=Postgre

     ---

     où :
     
     • Source : est le nom du "lien" que l'on créé (cad le même que celui que l'on met dans la configuration de ODBC)

Je pense qu'il y a de nombreuses manières d'arriver à un résultat correct...
Cette méthode m'a permis de faire fonctionner mon script presque sans changement.
Je dis presque car j'avais des endroits où l'exécution de requêtes se était de la forme :

Code:

---

1 2 3

ADOQuery1.ACtive:=false; ADOQuery1.SQL.text:='delete from data'; ADOQuery1.active:=true;

---

Il faut remplacer la dernière ligne par

Code:

---

ADOQuery1.ExecSQL;

---

Sinon cela fait une erreur de la forme :

Code:

---

AdoDataSet1: commandText ne renvoie pas un ensemble de résultats

---

Bonne journée
Meloo