Discussion :

[bigey3]

salut

j'ai une application delphi qui est connecté à une base de données comme cela devrait se faire.

Mais je souhaiterais pouvoir controler si la connexion à la base de donnée existe avant toute exécution de mon application.

merci de me donner un coup de main

a+

[freud]

salut,

Si c'est avec des tables paradox il faut tester avec le state de la table :

Code :

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

1
2
3
4
 
if table1.state=dsInactive then showmessage('fermer')
else
showmessage('ouverte');

ou avec ADO (access ou sqlServer):

Code :

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

1
2
3
4
 
If  ADOConnection1.Connected=true then showmessage('ouverte')
else
showmessage('fermer');

mais tu ne précise pas quel type de BD tu utilise

[bigey3]

re-salut
en fait je souhaite faire une tentative de connexion à une base de données sqlserver avant toute exécution au niveau de l' unité principale mon projet delphi.

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
program fic;
 
uses
  Forms,Dialogs,
  Unit1 in 'Unit1.pas' {Frm},
  dm in 'dm.pas' {Dmf: TDataModule};
 
{$R *.res}
 
begin
  Application.Initialize;
  //dmf.Dbfic.Connected:=true ;
  Application.CreateForm(TFrm, Frm);
  Application.CreateForm(TDmf, Dmf);
  If  dmf.Dbfic.Connected=false then
  MessageDlg('Erreur de connexion au serveur',mtError,[mbYes],0)
  else
  Application.Run;
 
end.

a+

[freud]

normalement c'est faisable dans l' unité principale du moment que tu as déjà creer la form qui contient la procedure de connection mais oû est le probleme ?

[freud]

pardon j'ai pas bien regarder...
Dans ton code si il n'y a pas de connection l'application démarre quand même si connected=false alors il ne faut pas executer Application.Run et mettre un exit :

Code :

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

1
2
3
4
5
6
7
8
9
 
If  dmf.Dbfic.Connected=false then
 Begin
  MessageDlg('Erreur de connexion au serveur',mtError,[mbYes],0)
 FreeAndNil(dmf); //dans D6 
  exit; 
 End
 
  Application.Run;

le else c'est pas la peine

[bigey3]

re-salut

merci pour la remarque.

mais ce que je souhaiterais vraiment.
c'est tenter la connexion au serveur sqlserver au lancement de mon application delphi.(le but étant de vérifier si le serveur sqlserver est démarré)

Lorsque cette connexion échoue le message d'erreur est dans ce envoyé à l'ecran.

voilà merci de me donner un coup de main pour cela

a+

[freud]

ta chaine de connexion elle est comment ?
car il faut gerer cela dans les exception

[bigey3]

ta chaine de connexion elle est comment ?
car il faut gerer cela dans les exception

salut

j'y comprend rien !!

comme je dis
exemple lorsque j'arrete mon serveur sql server j'ai l' exception suivante que j'aimerais pouvoir donc gérér.


Je souhaiterais donc pouvoir établir la connexion au serveur à partir de l'application au lancement.

merci de me donner un coup de main
a+

[freud]

je crois que tu te connecte via odbc.
bon dans le cas oû c'est via ADO voici comment je fait, je met la connexion dans une fonction qui me renvoi un boolean et je teste ce boolelan:

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
 
function Tdmf.Connect(): Boolean;
Var
UserName,PassWord,Host,Db :string;
TimeOut:integer;
begin
Db:='ta base donnees'
UserName:='le user';
PassWord:='le mot de passe';
Host:='nom de la machine ou adresse ip';
TimeOut:=xxxxx; //délai en milli secondes aprés quoi si le serveur est inactif il répond qu'il est inactif
 
with Tdmf.Dbfic do   
Begin
ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+UserName+';Pwd='+Password+';Initial Catalog='+Db+';Data Source='+Host;
ConnectionTimeOut:=TimeOut;
 
Try
 Begin
  Connected:=true;
  Result:=true;
 end;
Except
 Result:=false;
end;
End; //with
End;

et dans l'unité principale tu appel la fonction en testant le boolean:

Code :

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

1
2
3
4
5
6
7
8
9
 
If  dmf.Dbfic.Connect=false then
 Begin
  MessageDlg('Erreur de connexion au serveur',mtError,[mbYes],0)
 FreeAndNil(dmf); //dans D6 
  exit; 
 End
 
  Application.Run;

[ShaiLeTroll]

Code :

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

FreeAndNil(dmf);

Totalement inutile car Dmf est créé via Application.CreateForm, et comme Application est libéré dans la section Finalization de l'unité "Forms" (voir DoneApplication), cela libère aussi les objets possédés comme dmf et Frm

Cela pourrait même provoqué des RunTime Error 216 ...

Code :

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

exit;

Inutile aussi !

je ferais

Code :

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

1
2
3
4
5
6
7
8
9
begin
  Application.Initialize;
  Application.CreateForm(TFrm, Frm);
  Application.CreateForm(TDmf, Dmf);
  If dmf.Dbfic.Connect() then
   Application.Run()
  else
    MessageDlg('Erreur de connexion au serveur',mtError,[mbAbort],0);
end.

Autre remarque

Code :

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

1
2
If  dmf.Dbfic.Connect=false then
If  ADOConnection1.Connected=true

DOIT s'écrire

Code :

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

1
2
If not dmf.Dbfic.Connect then
If ADOConnection1.Connected then

les booléens sont fait pour cela, ...
En terme de temps d'éxecution cela ne doit pas changer, je pense que le compilateur optimise cette façon non standard d'écriture des tests booléens (sans optimisation, cela ferait un test en plus ! donc plus lent)

[freud]

c'est plus propre