Recherche dans une BdD

**chlebta*tsotsi** · 26/04/2009, 14h39

je voulez crée un programme qui permet de chercher des donnes dans une db
mais je quelques problèmes
code du procédure recherche

Code :

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

1
2
3
4
               AdoQuery1.SQL.Clear;
               AdoQuery1.SQL.Add('Select * From bin Where         ChampTXT='+dig);
               AdoQuery1.Open;
dig représente le clé(criteur) de recherche

voici le message qui s'affiche quand je clic sur la bouton recherche

http://www.imagup.com/imgs/1240669339.html
et ça le message après avoir cliques sur ok dans la boite d'erreur

http://www.imagup.com/imgs/1240669372.html

SVP ne hésite pas a corrige mon code ou poste un autre code de recherche

**Just-Soft** · 26/04/2009, 14h44

à croire l'image tu as un problème de connexion à ta base de données. du moment que tu travaille avec ADO autant faire un 'test de connexion' avant de copier la chaine dans ton source. si c'est déjà fait alors un connect à True te permettrais de voir savoir où le problème et de nous le dire si tu t'en sors pas.

Bonne chance.

**chlebta*tsotsi** · 26/04/2009, 14h56

lors de création de lien entre la base et la programme je teste et il m'affiche connexion réussi et aussi je change connecte de false a true mais il affiche encore la mémé erreur

**Just-Soft** · 26/04/2009, 15h06

Re;

- quel SGBD utilise-tu ?
- si tu passe la chaine de connexion manuellement poste le code de passage peut-être que tu as une erreur quelque part ?

**chlebta*tsotsi** · 26/04/2009, 15h39

SGBD: en realite c'est une fichier exel je le converti en MDB a l'aide d'acces
e pour la connexion je suivie les etapes dans cet tuto :
http://beaussier.developpez.com/arti.../DelphiADO.zip
('fichier pdf')

**Just-Soft** · 26/04/2009, 16h23

ok, poste le bout de code responsable de connexion et on va voir..

**chlebta*tsotsi** · 26/04/2009, 17h13

code responsable de connexion et on va voir

comment je peu le reqepure ??

et sa ce mon code du programme

unit Unit1;

interface

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, WinSkinData, WinSkinStore,
  jpeg, ColorGrd, DB, ADODB;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    SkinData1: TSkinData;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Image1: TImage;
    GroupBox3: TGroupBox;
    Image2: TImage;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1F1: TFloatField;
    ADOTable1F2: TWideStringField;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Image3: TImage;
    procedure Image1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Image1Click(Sender: TObject);
begin
Tabsheet2.Show;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TabSheet3.Show;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var dig : string;
    e,b: integer;
begin
dig:= edit1.Text;
val(dig,b,e);
if length(dig)<> 6 then  Label2.caption:=('ERROR: Bin number should be 6 digits')
else if e <> 0 then  Label2.caption:=('ERROR: Enter only numeric')
     else  begin
               AdoQuery1.SQL.Clear;
               AdoQuery1.SQL.Add('Select * From bin Where ChampTXT='+QuotedStr('dig'));
               AdoQuery1.Open;
            end;
end;
 
end.

**Just-Soft** · 26/04/2009, 17h29

Re;

si j'ai bien compris tu te connecte à la conception, je te suggère de faire ça à l'exécution pour être sûr que tu ne rate rien. dans le OnCreate de ton form principal ou Module de données (si tu l'as créé) tu fais ça :

Code :

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

1
2
3
4
5
6
7
8
Procedure taForm(Sende : TObject)
var
  chaine : string; // sert à récupérer la chaine de connexion 
begin
  chaine := ...... ;// là tu met la chaine de connexion que tu récupère depuis la conception
  ADO1.connection := chaine;
  ADO1.connect := True;
end

enfin pour être sûr de ta connexion tu peux très bien faire un essai avec une de tes tables en mode conception.

**chlebta*tsotsi** · 26/04/2009, 18h00

SVP comment je peu récupéré la chaine de connexion au BD depuis la conception

**Just-Soft** · 29/04/2009, 09h21

Salut et désolé pour le retard !

à la conception tu est bien arrivé à faire la connexion avec le test donc rien de plus simple, tu copie la chaine qui t'a servi pour la connexion elle se trouve dans la boite de dialogue deuxième écran. un simple copier est elle est en mémoire puis dans ton programme tu peux faire ça (en supposant que tu clic sur un bouton pour te connecter) :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString := // place ta chaine ici par un simple coller 
  try
    Adoconnection1.Connected := True;
  except
    raise;
  end;
end;

Bonne chance.

**chlebta*tsotsi** · 29/04/2009, 21h02

Comment récupéré la chaine du conception SVP j'arrive pas a le trouve

**chlebta*tsotsi** · 01/05/2009, 11h30

voila mon code source svp si tu peux m'aide ne hésite pas

**NABIL74** · 01/05/2009, 11h45

bonjour,

voila mon code source svp si tu peux m'aide ne hésite pas

il n'y a pas de code source! le fichier rar contient seulement le projet(Dpr) et un fichier *.mdb.
il manque l'unité "Unit1.pas".

a+

NABIL74

**NABIL74** · 01/05/2009, 12h37

salut,

Comment récupéré la chaine du conception SVP j'arrive pas a le trouve

dans la propriété "ConnectionString" de "ADOConnection1 " ,définis ses propriétés et puis tu la récupère par un simple copier et colle-la dans ton code.
pour être plus claire,voici un exemple:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mon dossier\ma base.mdb;Persist Security Info=False';
ADOConnection1.Connected := true;
ADOTable1.Open;
end;

A+

NABIL74

**chlebta*tsotsi** · 01/05/2009, 13h25

dsl voila mon code source(contient unit1.pas e dfm)

**NABIL74** · 01/05/2009, 15h44

salut,
Ta base de données "Bins.mdb" est liée à un fichier Excel nommé "Bin"(Bin.xls) que nous n'avons pas trouver dans ton zip.il nous le faut pour cerner ton problème et essayer de trouver par la suite une solution.

il y a des fautes dans le code qui permet d'accéder à ta base de donnée.

sur ta fiche, le nom du composant "ADOConnection" est nommé "ADOConnection1" mais dans ton code il est nommé "ADO1".

voici ce qu'il y avait dans la propriété "ConnectionString" de ta "ADOConnection1":

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

tu peux la codé simplement comme ça:
ADOConnection1=>ConnectionString=

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Persist Security Info=False

pour créer la connection à ta BD, il suffit d'écrire ça:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Persist Security Info=False';
ADOConnection1.Connected := true;
ADOTable1.Open;
end;

A+

NABIL74

**chlebta*tsotsi** · 01/05/2009, 16h03

maintenant il m'affiche le même erreur qui se trouve dans le 1er poste(voir l'image)

**NABIL74** · 01/05/2009, 18h46

Envoyé par chlebta*tsotsi

maintenant il m'affiche le même erreur qui se trouve dans le 1er poste(voir l'image)

si tu parles de la 1ère image, le problème c'est que tu n'as pas définit le chemin de ta base de données

Code :

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

ADOConnection1.ConnectionString :=' ... '

jette à coup d'oeil aux cours sur ADO sur dev.com:
http://delphi.developpez.com/cours/?...bd#sgbd-access

Maintenant si tu parles de la 2ème image, dans ce cas l'erreur n'est pas causée par ta requête mais par le composant "VCL Skin".

a+

NABIl74

**chlebta*tsotsi** · 02/05/2009, 09h26

je suivi le meme etape Du cour mes encore la mm problem et j eliminer aussi le skin mais sa marche pas encore

**Just-Soft** · 02/05/2009, 09h41

Envoyé par NABIL74

salut,
Ta base de données "Bins.mdb" est liée à un fichier Excel nommé "Bin"(Bin.xls) que nous n'avons pas trouver dans ton zip.il nous le faut pour cerner ton problème et essayer de trouver par la suite une solution.

il y a des fautes dans le code qui permet d'accéder à ta base de donnée.

sur ta fiche, le nom du composant "ADOConnection" est nommé "ADOConnection1" mais dans ton code il est nommé "ADO1".

voici ce qu'il y avait dans la propriété "ConnectionString" de ta "ADOConnection1":

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

tu peux la codé simplement comme ça:
ADOConnection1=>ConnectionString=

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Persist Security Info=False

pour créer la connection à ta BD, il suffit d'écrire ça:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Bureau\tabsheet\Bins.mdb;Persist Security Info=False';
ADOConnection1.Connected := true;
ADOTable1.Open;
end;

A+

NABIL74

laisse tomber le cours pour le mement tout est là!
le seul problème peut-être est le chemin où se trouve ta base de données, faut le mettre là où c'est en soulginer.

Recherche dans une BdD

Bases de données Delphi

Discussions similaires

Partager

Partager