Discussion :

[nah_wah]

Salut tout le monde,
j'ai une application client/serveur ca marche tres bien(Serveur + 20postes).mais voila mon client possede de 2 postes externe dans 2 depots distants .comment puis je acceder au serveur via internet et comment puis je mettre a jour ma base de donnée (SQL server 2000).
Merci.

[BONNEFOI Patrick]

Salut,

il faut ouvrir le port 1433 sur ton pare-feu et le redirigé sur ta bonne machine en faisant du NAT

A+

[nah_wah]

resalut,
peut tu m'expliquer un peu et s'il y a une documentation ca sera mieux.
Merci

[WOLO Laurent]

Dans quel system de programmation ton programme client a-t-il été dévéloppé ?
Ton serveur, ce trouve-t-il derière un fireWall ?
Ton réseau, possède t-il un système DNS ?

[nah_wah]

salut,
mon programme est sous delphi
Merci

[nah_wah]

bonjour tout le monde,
j'aimerais bien avoir des exemples de connexion a une base SQL -server via internet.
Urgent!!!!!!
Merci.

[bmamine]

tu acceder au serveur a partir d'internet mais il te faut creer un VPN et pour cela tu doit avoir au moins l'dresse IP du siege qui est statique

[nah_wah]

oui j'ai l'adresse ip du seveur statique mais comment créer un vpn
Merci.

[freud]

Bonjour,
Voici comment je me connecte à une base sqlserver chez notre hébergeur pour lire certaines tables:

1 composant ADOConnection1
1 composant ADOQuery1

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
 
 
procedure TForm2.Button4Click(Sender: TObject);
Begin
If ADOConnection1.Connected=true then
ADOConnection1.Connected:=false;
 
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=TonUserName;Pwd=tonPasseWord;Initial Catalog=LeNomDeLaBase;Data Source=xxx.xxx.xx.xx';
 
ADOConnection1.Connected:=true;
 
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from LaTable');
ADOQuery1.Open;
End;

Oû Data Source est l'adresse IP de la machine ou se trouve sqlserver
et oû Catalog est le nom de la base de données ex: NorthWind
TonUserName et tonPasseWord sans les côtes.

[nah_wah]

resalut freud,
j'ai utiliser ton code sur un serveur local la connexion tester via le composant ca marche mais si je la parametre ca marche pas voici le code:

Code :

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

1
2
3
4
5
6
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;'
                                 +'User ID='sa';' // TonUserName
                                 +'Pwd='';'   //  tonPasseWord
                                 +'Initial Catalog='XXX';'   //LeNomDeLaBase
                                 +'Data Source='xxx.xxx.x.xxx'';
ADOConnection1.Connected:=true;

ou est la faute
Merci .

[nah_wah]

avant tout je sais que l'utisateur par defaut sql server sa doit obligatoirement avoir un pwd pour des raisons de secu.
mais dans mon cas sa n'as pas de pwd donc dans la chaine connectinstring je laisse pwd vide et je reçois le message :

Code :

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

valeur de connection ou connectionstring manquante

que dois je faire si mon sa n'as de pwd.
Merci

[freud]

Salut,
Essaye de donner un passeword pour l'utilisateur sa dans le dossier sécurité dans enterpriseManager d'habitude je me connecte avec un utilisateur différent qui m'a été attribuer par notre hébergeur de meme dans notre réseau j'ai créer un user. SA je ne l'utilise pas. Es-ce que tu n'as pas un autre user ou en créer un ?

[freud]

pardon je n'ai pas bien regarder ta chaine.... sa,catalog, data source ne doivent pas contenir de côtes et dans ma chaine je ne n'ai pas d'opérateurs de concaténation essaye comme ca :

Code :

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

1
2
 
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Pwd=xxx;Initial Catalog=Northwind;Data Source=192.195.20.41';

En principe ca doit marcher puisque je l'ai fait

[nah_wah]

bonjour,
ca marche;
Merci.

[freud]

de rien...mais dis nous au moins si tu as laisser le passeword SA vide au moins qu'on sache à toute fins utiles. Merci