Discussion :

[nicassy]

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

Code :

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

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 :

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

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

[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 .

[mariustrezor]

Salut
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.

[mariustrezor]

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

[nicassy]

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 :

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

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!

[mariustrezor]

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