Discussion :

[thierry007]

Bonjour,

J'ai un sousis de connexion sur une DB SQL, sur un serveur SQL2005

voici la ligne de connexion , mais que refuse obstinément de se connecter

Code :

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

1
2
3
StringSqlWan="Provider=SQLOLEDB;Data Source=abc.def.ghi.jkl\NomDuServeur;" & _
        "Trusted_Connection=Yes;Initial Catalog=NomDeLaBase;" & _
             "User ID=Domaine\Utilisateur;Password=MotDePasse;"

Si je fais un telnet abc.def.ghi.jkl 1433 pas de problème la connexion s'ouvre. Je suppose alors que mon instance est joingnable vie le port , de l'exterieur ( WAN)

Quelqu'un pôurrait-il m'ouvrir la voie ( je fais surement une erreur, mais ou ?"



Grand merci d'avance

[gomtex]

essaie avec ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Cnn1 As ADODB.Connection                    'on declare la variable de connection
Dim MonRs As ADODB.Recordset                    'on declare la variable d'enregistrement
'connexion a la base
Set Cnn1 = New ADODB.Connection                 'on declare une nouvelle connection
Cnn1.CursorLocation = adUseClient
Cnn1.Mode = adModeReadWrite                     'on defini les droit de la connection
Cnn1.Provider = "SQLOLEDB.1"
Cnn1.ConnectionString = "Server=192.x.x.xxx;Initial Catalog=cat;uid=tonId;password=tonMDP" 'identifiant de connection a la base de données
Cnn1.Open               'ouverture de la connection
'ouverture de la table
Set MonRs = New ADODB.Recordset         'declaration de la nouvelle variable d'enregistrement
MonRs.LockType = adLockOptimistic
MonRs.Open Source:="select * from table", ActiveConnection:=Cnn1 'on selectionne toute la base de données

apres tu fais monrs.open source:="ta requete"

avec retard mais c toujours utile