ADOQUERY + DBIMAGE [FAQ]

**yanba** · 14/03/2006, 11h16

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

Code :

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

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 :

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

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 ?

**Rayek** · 14/03/2006, 11h24

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

**yanba** · 14/03/2006, 11h40

J'ai plein de messages d'erreur !

Code :

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

Parameters := True;

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

Code :

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

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 :

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

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

**Rayek** · 14/03/2006, 11h53

Code :

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

1
2
 
Parameters := True;

à remplacer par

Code :

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

1
2
 
 ParamCheck := true;

Code :

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

1
2
 
 Params.ParaByName

à remplacer par

Code :

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

1
2
 
 Parameters.ParamByName

Désolé, j'ai écrit assez rapidement

**yanba** · 14/03/2006, 22h10

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

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
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 :

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

ParamCheck := true;

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

Code :

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

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

**Cl@udius** · 14/03/2006, 22h17

Salut,

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

Code :

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

1
2
 
  ADOQuery1.ParamCheck := True;

Pour parameters c'est pareil: ADOQuery.Paramaters....
@+

**Cl@udius** · 14/03/2006, 22h25

Re,

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

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
 
  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
 
@+

**yanba** · 14/03/2006, 22h28

merci

**yanba** · 14/03/2006, 22h50

Quand j'utilise ceci, c'est ok :

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
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 :

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
 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 ?

**Rayek** · 15/03/2006, 08h37

SQL.Add('VALUES (

seudo, :Nom,

renom, :Mot_de_passe,

hoto)');

Il te manque une ( dans ta requete

Sinon désole trop l'habitude d'utiliser les with ^^

**yanba** · 15/03/2006, 10h11

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 !

**Cl@udius** · 15/03/2006, 10h16

Code :

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

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

@+

ADOQUERY + DBIMAGE [FAQ]

Bases de données Delphi

Discussions similaires

Partager

Partager