ADOQUERY + DBIMAGE

Version imprimable

ADOQUERY + DBIMAGE

Bojour, je voudrais enregistrer une image dans ma base ADO par le biais d'un ADOQuery.
Si je fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SpeedButonPhotoClick(Sender: TObject);
begin
  If OpenDialog1.Execute
  Then
    Try
      ADOtable1.Append;
      DBImage1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
      ADOtable1.Post;
    Except
      ShowMessage('Registre actuellement en edition !');
    End;

L'image est enregistrée mais avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO UTILISATEUR');
    ADOQuery1.SQL.Add('(Pseudo, Photo)');
    ADOQuery1.SQL.Add('VALUES ("'+EditPseudo.Text+'","'+DBImage1.Picture+'")');
    Try
    ADOQuery1.Prepared:=True;
    ADOQuery1.ExecSQL;
    ADOQuery1.Close;
    Except
    MessageDlg('...',mtError,[mbOk], 0);
    Close;
    end;

J'ai un message d'erreur. Que dois-je faire ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO UTILISATEUR');
    ADOQuery1.SQL.Add('(Pseudo, Photo)');
    ADOQuery1.SQL.Add('VALUES(:Pseudo,:Image)'); 
    Parameters := True
    Params.ParaByName('Pseudo').value := EditPseudo.Text;
    Params.ParamByName('Image').Assign(DBImage1.Picture.Bitmap);
    Try
    ADOQuery1.Prepared:=True;
    ADOQuery1.ExecSQL;
    ADOQuery1.Close;
    Except
    MessageDlg('...',mtError,[mbOk], 0);
    Close;
    end;

Cela devrait fonctionner comme ca

14/03/2006, 11h40
yanba

J'ai plein de messages d'erreur !

Code:

Parameters := True;

[Erreur] unit1.pas(63): E2064 La partie gauche n'est pas affectable

Code:

Params.ParaByName('Pseudo').value := EditPseudo.Text;

[Erreur] unit1.pas(64): E2003 Identificateur non déclaré : 'Params'
[Erreur] unit1.pas(64): E2066 Opérateur ou point-virgule manquant

Code:

Params.ParamByName('Photo').Assign(DBImage1.Picture.Bitmap);

[Erreur] unit1.pas(64): E2003 Identificateur non déclaré : 'Params'
[Erreur] unit1.pas(64): E2066 Opérateur ou point-virgule manquant
14/03/2006, 11h53
Rayek
Code:

1 2 Parameters := True;
à remplacer par
Code:

1 2 ParamCheck := true;
Code:

1 2 Params.ParaByName
à remplacer par
Code:

1 2 Parameters.ParamByName
Désolé, j'ai écrit assez rapidement

Voici mon code reecrit donc ! Je l'ai remis expres ... en cas que je fasse une erreur de compréhension !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('INSERT INTO UTILISATEUR'); ADOQuery1.SQL.Add('(Pseudo,Nom,Prenom,Mot_de_passe, Photo)'); ADOQuery1.SQL.Add('VALUES (:Pseudo, :Nom, :Prenom, :Mot_de_passe, :Photo)'); ParamCheck := true; Parameters.ParamByName ('Pseudo').value := EditPseudo.Text; Parameters.ParamByName ('Nom').value := EditNom.Text; Parameters.ParamByName ('Mot_de_passe').value := EditPassword.Text; Parameters.ParamByName ('Photo').Assign(DBImage1.Picture.Bitmap); // ADOQuery1.SQL.Add('VALUES ("'+EditPseudo.Text+'","'+EditNom.Text+'","'+EditPrenom.Text+'","'+EditPassword.Text+'","'+DBImage1.Picture+'")'); Try ADOQuery1.Prepared:=True; ADOQuery1.ExecSQL; ADOQuery1.Close; Except MessageDlg('Veuillez n''utiliser que des lettres pour les noms et prénoms s''il-vous-plaît.',mtError,[mbOk], 0); Close; end;
sauf que :

Code:

ParamCheck := true;

[Erreur] unit1.pas(63): E2003 Identificateur non déclaré : 'ParamCheck'

Code:

Parameters.ParamByName ('Pseudo').value := EditPseudo.Text;

[Erreur] unit1.pas(64): E2018 Type Record, Object ou Class requis
[Erreur] unit1.pas(64): E2066 Opérateur ou point-virgule manquant

14/03/2006, 22h17
Cl@udius
Salut,

ParamCheck est une propriété de ton ADOQuery.
Donc écrit ta ligne ainsi:
Code:

1 2 ADOQuery1.ParamCheck := True;
Pour parameters c'est pareil: ADOQuery.Paramaters....
@+

Re,

Au fait pourquoi tu n'utilises pas un with begin end ?
Cela facilite l'écriture et la lecture du code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
  with ADOQuery1 do
  begin
    Close; 
    SQL.Clear; 
    SQL.Add('INSERT INTO UTILISATEUR'); 
    SQL.Add('(Pseudo,Nom,Prenom,Mot_de_passe, Photo)'); 
    SQL.Add('VALUES :Pseudo, :Nom, :Prenom, :Mot_de_passe, :Photo)'); 
    ParamCheck := true; 
    Parameters.ParamByName ('Pseudo').value := EditPseudo.Text; 
    Parameters.ParamByName ('Nom').value := EditNom.Text; 
    Parameters.ParamByName ('Mot_de_passe').value := EditPassword.Text; 
    Parameters.ParamByName ('Photo').Assign(DBImage1.Picture.Bitmap); 
    Try 
      Prepared:=True; 
      ExecSQL; 
    Except 
      MessageDlg('Veuillez n''utiliser que des lettres pour les noms et prénoms s''il-vous-plaît.',mtError,[mbOk], 0); 
    end;
    Close;
  end; // with
 
@+

14/03/2006, 22h28
yanba

merci

Quand j'utilise ceci, c'est ok :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO UTILISATEUR');
    ADOQuery1.SQL.Add('(Pseudo,Nom,Prenom,Mot_de_passe, Photo)');
    ADOQuery1.SQL.Add('VALUES (:Pseudo, :Nom, :Prenom, :Mot_de_passe, :Photo)');
    ADOQuery1.ParamCheck := true;
    ADOQuery1.Parameters.ParamByName ('Pseudo').value := EditPseudo.Text;
    ADOQuery1.Parameters.ParamByName ('Nom').value := EditNom.Text;
    ADOQuery1.Parameters.ParamByName ('Mot_de_passe').value := EditPassword.Text;
    ADOQuery1.Parameters.ParamByName ('Photo').Assign(DBImage1.Picture.Bitmap);
    Try
    ADOQuery1.Prepared:=True;
    ADOQuery1.ExecSQL;
    ADOQuery1.Close;
    Except
    MessageDlg('Veuillez n''utiliser que des lettres pour les noms et prénoms s''il-vous-plaît.',mtError,[mbOk], 0);
    Close;
    end;

et si je remplce par :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 with ADOQuery1 do
      begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO UTILISATEUR');
          SQL.Add('(Pseudo,Nom,Prenom,Mot_de_passe, Photo)');
          SQL.Add('VALUES :Pseudo, :Nom, :Prenom, :Mot_de_passe, :Photo)');
          ParamCheck := true;
          Parameters.ParamByName('Pseudo').value:= EditPseudo.Text;
          Parameters.ParamByName('Nom').value:=EditNom.Text;
          Parameters.ParamByName('Mot_de_passe').value:=EditPassword.Text;
          Parameters.ParamByName('Photo').Assign(DBImage1.Picture.Bitmap);
          Try
            Prepared:=True;
            ExecSQL;
          Except
            MessageDlg('Veuillez n''utiliser que des lettres pour les noms et prénoms s''il-vous-plaît.',mtError,[mbOk], 0);
      end;
    Close;
...

J'ai le message suivant :
classe exception EOleException avec le message 'objet Parameter'. Pourquoi ?

15/03/2006, 08h37
Rayek

Citation:

SQL.Add('VALUES (:Pseudo, :Nom, :Prenom, :Mot_de_passe, :Photo)');

Il te manque une ( dans ta requete

Sinon désole trop l'habitude d'utiliser les with ^^
15/03/2006, 10h11
yanba

Pour Malatar :
Ca fait deux fois que tu t'excuses. Il n'y a vraiment pas de quoi, car sans toi, je serai dans la galère. Le SQL et moi, ca fait 2.

Je n'oublie pas non plus, Claudius40.

UN GRAND MERCI A VOUS DEUX !

Code:

1
2
3
4
5
 
With Malatar, Claudius40 do
begin
  MessageDlg('Y a pas de quoi !', mtInformation, [mbOK],0);
end;

:wink: @+