Portage Connexion SQL.

**PadawanDuDelphi** · 04/09/2006, 14h26

Bonjour,

Je développe une application utilisant une BD SQL.
Lorsque j'utilise mon programme sur mon poste, tout marche très bien.

Le problème survient lorsque je lance mon executable depuis une autre machine.
Avant de lancer l'executable, je recois une suite de messages identiques :

Code :

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

[DBNETLIB][ConnectionOpen(Connect().]Ce serveur SQL n'existe pas ou son accès est refusé.

Ensuite l'application semble tourner normalement.

Quelqu'un aurait une idée de la source du problème?

Merci.

**cmen76** · 04/09/2006, 14h29

Cela ressemble à des connexions restées ouvertes dans l'EDI (active=True dans le dfm)

**PadawanDuDelphi** · 04/09/2006, 14h55

Merci cmen76, mais je suis pas sur de savoir ce que je dois faire...

Est-ce que tu veux dire que je dois fermer toutes mes ADOQuery lorque je ferme mes fiches (OnFormClose)? Et les ouvrir sur OnFormShow ?

**Cl@udius** · 04/09/2006, 15h03

Salut,

Ce que veux dire cmen76 est que tu as dû définir à la conception la propriété Connected de ton TADOConnection à True. C'est pour cela qu'il fait référence au fichier dfm.

Bascule la propriété à False, recompile et refais un essai !

@+

**PadawanDuDelphi** · 04/09/2006, 15h20

Merci, effectivement la propriété Connected de mon TADOConnection était à True. Mais maintenant que je l'ai mis à false, j'ai toujours les mêmes messages d'erreur...

Voici le code de ma connection à ma base, si ça peut vous aider :

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
function TDataModule1.buildConnexionString(Base,User,PassWord: string):string;
var ChaineConnexion : ShortString;
    Template : string;
begin
  Template := 'Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=SIMALIM';
  ChaineConnexion := 'SQLOLEDB.1';
  Result := Format(Template,[ChaineConnexion,Password,User,Base]);
end;
{{-------------------------------------------------------------
--------------------------------------------------------------}
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
ConnectionBD.ConnectionString:=buildConnexionString('nico','sa','xxxxxx');
ConnectionBD.LoginPrompt := false;
 
Query_SIM_SIMU.Active := true;
Query_SIM_SIMU_ACT.Active := true;
Query_SIM_TOPO.Active := true;
Query_SIM_SECTION.Active := true;
Query_SIM_ME.Active := true;
Query_SIM_MR.Active := true;
Query_SIM_ARRET.Active := true;
Query_BIBLI_MR.Active := true;
Query_BIBLI_CATENAIRE.Active := true;
Query_BIBLI_ARRET.Active := true;
end;

**Cl@udius** · 04/09/2006, 15h35

Salut,

Je ne vois pas de connexion à la BDD ??

Ajoute cette ligne :

Code :

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

1
2
3
4
  ConnectionBD.ConnectionString:=buildConnexionString('nico','sa','xxxxxx');
  ConnectionBD.LoginPrompt := false;
  ConnectionBD.Connected := True;

@+

**cmen76** · 04/09/2006, 15h47

Euh... Question bête : les querys utilisent bien l'objet connection et non une connectionstring ?

**Cl@udius** · 04/09/2006, 15h50

Salut,

Visiblement c'est un TADOConnection !

**PadawanDuDelphi** · 04/09/2006, 15h53

Merci Claudius40,

Tout fonctionne maintenant...En fait j'ai revérifié toutes les fiches et je me suis aperçu qu'il restait, sur l'une d'elles, un ADOConnection avec connected à true à la conception ( j'ai repris le travail de quelqu'un d'autre qui n'avait pas de datamodule, mais un ADOConnection par fiche ).

En revanche, le programme se connecte à la base sans que j'utilise :

Code :

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