Discussion :

[PadawanDuDelphi]

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]

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

[PadawanDuDelphi]

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]

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]

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]

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;

@+