Bonjour, je n'arrive pas à trouver comment je peux spécifier un NULL avec ParamByName pour mon champ img qui est de type BLOB

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
    With DataBase.zqQuery Do
    Begin
      Close;
      SQL.Text := 'INSERT INTO deltaimg ' +
        '(name,  img) ' +
        'VALUES ' +
        '(:name, :img);';

      ParamByName('name').AsString       := eName.Text;

      If Assigned(ImagePNG) Then
      Begin
        ImageStream := TMemoryStream.Create;
        Try
          ImagePNG.SaveToStream(ImageStream);
          ImageStream.Seek(0, soBeginning);
          ParamByName('img').LoadFromStream(ImageStream, ftBlob);
        Finally
          ImageStream.Free;
        End;
      End
      Else
      Begin
        ParamByName('img').AsString := '';
      End;

      Prepare;
      ExecSQL;
    End;
J'ai raccourci le SQL, merci d'avance à celui qui me sauvera