Discussion :

[heinkro]

tout d'abord bonjour car je sui snouveaux sur le forum et novice j'ai quelque base
c'est pour sa que je me suis inscrit sur ce forum.

ma question est la suivante

on a changer de serveur sql et de version (passer de 7.00 en 2000) le serveur a changer de nom aussi et j'ai un progr en VB qui se connecte a une des bases via un driver ODBC.

et quand il se connecte il créer une erreur [microsoft][ODBC SQL Server Driver][dbnetlib]SQL server does not exist or access denied



de quoi sa peut provenir


je sais si j'ai donner tte les informations mais demander et vous donnererai des infos que j'ai pas penser

merci d'avance

[annedjomo]

Est ce que tu peux nous faire voir le code dans lequel tu ouvres la chaine de connection?

[WOLO Laurent]

Si l'application est vraiment professinnelle, vous aurez juste à reconfiguere les paramètres de votre DSN suivant le nouveau serveur.
Sinon, il te faux avoir les source de ton programme pour recompiler avec les nouveaux paramêtres..

[heinkro]

Est ce que tu peux nous faire voir le code dans lequel tu ouvres la chaine de connection?

voila l'ancien

Public Cn As New ADODB.Connection
Public Sub Form_Load()
Dim LCn As String
LCn = "driver={Sql Server};server=POSTE50;database=CptResultat;uid=sa;pwd="
Cn.ConnectionString = LCn
Cn.Open
End Sub


et voila le nouveau mais sa marche pas

Public Cn As New ADODB.Connection
Public Sub Form_Load()
Dim LCn As String
LCn = "driver={Sql Server};server=W2KSQL-DNSA/POSTE50;database=CptResultat;uid=tata;pwd=tata"
Cn.ConnectionString = LCn
Cn.Open
End Sub


merci de vos reponse

[heinkro]

ah oui comme message d'erreur il me met :

[microsoft][ODBC SQL Server Driver][DBNETLIB]Ce serveur SQL n'existe pas ou son accès est refusé

[WOLO Laurent]

Quel est le type d'authentification ?
Etes-vous sûre que le servise associé à ce serveur est démarré ?

[heinkro]

par authentification sql pas windows et les services sont bien démarrer

[WOLO Laurent]

Dans ces conditions, vous enlevez le uid et le psw :

Code :

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

1
2
3
4
5
6
7
Public Cn As New ADODB.Connection 
Public Sub Form_Load() 
Dim LCn As String 
LCn = "driver={Sql Server};server=POSTE50;database=CptResultat" 
Cn.ConnectionString = LCn 
Cn.Open 
End Sub

Bonne chance

[heinkro]

ok merci je verrais demain les modifs vraiment merci c'est super sympas