Discussion :

[maxtin]

jai cette chaine de connection qui fonctionne bien en localLAN mais je voudrais le modifier pour etre capable de me connecter a distance (internet)

Code :

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

1
2
3
4
5
ConnectionString = "Provider=MSDASQL.1;Password=" & sPWD _
& ";User ID=" & sUserName & _
";Extended Properties=""Description=strData;DRIVER=SQL Server;SERVER=" _
& "myServer" & _
";UID=strUSER;PWD=strPASS;DATABASE=myDB"""

Ai-je seulement besoin de changer "myServer" a "IP:Port//ServerName" ?
jai tout essayer les combinaisons possibles pour myServer and rien ny fait, peut-etre il y dautres chose a ajouter/modifier??


mon Enterprise Manager peut se connecter a distance a ma DB mais je n'arrive pas avec mon client VB


A Laide!!!!

[callo]

salut
Essaie avec la chaine de connection ci-après. Elle me permet de me connecter à distance à ma base sql server2000

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim base As String
Dim cnx As ADODB.Connection
    base = "Ta_Base"
    Dim mdp, login, NomServeur As String
    mdp = "TonPass"
    login = "TonCompte"
    NomServeur = "192.5.165.100"  'Mets ici l'adresse IP de ton serveur
    Set cnx = New ADODB.Connection
    'définition de la chaine de connexion
    cnx.ConnectionString = "UID=" & login & ";PWD=" & mdp & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & base & ";"
    'ouverture de la base de données
    cnx.Open
    'MsgBox "Connection OK"

[Najdar]

Bonjour Maxtin,

Phifi dans une discusion précédente aujourd'hui a fait référence au site www.connectionsStrings.com. Tu peux surement y trouver les infos qui te manque.

[ThierryAIM]

en aparté de la question je répète que :

Code :

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

Dim mdp, login, NomServeur As String

définit mdp et login As Variant et NomServeur As String !

VB6 étant très (trop) permissif lors de la déclaration de variables, la syntaxe correcte en VB6 est :

Code :

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

Dim mdp As String, login As String, NomServeur As String

Ca peut avoir son importance avec d'autres types de variables et occasionner qques prises de tête pour rien

[callo]

salut ThierryAIM

Merci pour ta remarque. Je ne savais pas ça.