insértion de données avec interbase

Version imprimable

Bonjour,
pour insérer mes données dans ma base je fais comme ça avec delphi4 sur Interbase.
Code:

1 2 3 4 5 QChantier: TQuery; INSERT INTO CHANTIER(CHA_ID,CLI_CODE,MAR_CODE) VALUES (:pChaId,:pCliCode,:pMarCode) QChantier.ParamByName('pChaId').AsFloat:=StrToFloat(Id.text); QChantier.ParamByName('pCliCode').asFloat:=StrToFloat(Code.text); QChantier.ParamByName('pMarCode').AsString:=Marche.text;
Le problème est que je dois des valeurs NULL à pChaID ou à pCliCode quelque fois donc ça m'oblige à faire
qlq chose comme
Code:

1 2 INSERT INTO CHANTIER(CHA_ID,CLI_CODE,MAR_CODE) VALUES (NULL,:pCliCode,:pMarCode) ou INSERT INTO CHANTIER(CHA_ID,CLI_CODE,MAR_CODE) VALUES (NULL,NULL,:pMarCode)....
alors que j'ai plus de paramètres que ceux là avec une requête plus longue.
Si qlq sait comment faire pour limiter le dégat.
Merci d'avance

24/09/2004, 16h26
nicassy

Je ne me suis pas très bien exprimer sur mon problème.
Le truc c'est que avec cette méthode que j'utilise je dois répéter la requête plusieurs fois surtout quand j'ai plus de 10 paramètres. Ce que je cherche c'est une façon d'affecter le NULL dans mes paramètres et donc de travailler avec juste une seule requête.
Merci d'avance :cry: .
28/09/2004, 10h55
mariustrezor

Salut :D
Ce serait bien si nicassy pouvait dire comment il a résolu son problème d'insertion. J'ai un problème similaire et sa réponse pourrait m'être utile.
Merci d'avance pour vos réponses.
28/09/2004, 11h04
mariustrezor

Ah, j'oubliais! :lol: J'utilise delphi 5 Pro avec Interbase 5.5.
Merci!

C'est très con en fait, tu mets ta requête dans une variable string avant de l'exécuter et ça donne ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
with QChantier do
      begin
          Close;
          SQL.Clear;
 
          sCliCode:= EDCodeClient.text;
          if sCliCode=''then  sCliCode:= 'NULL'
          else  sCliCode:= '"'+EDCodeClient.text+'"';
          sValeurNull:='INSERT INTO CHANTIER(CHA_ID,CLI_CODE VALUES (:pChaId,'+sCliCode+')';
SQL.Text:=sValeurNull;
QChantier.ParamByName('pChaId').AsFloat:=QYConsult.fieldByName('CHA_ID').asFloat;
            QChantier.execsql;
          QChantier.Close;
      end;

Amusez- vous bien!

29/09/2004, 12h26
mariustrezor

Serais-ce possible de faire l'insertion avec un TUpdateSQL?