Connexion vb + sql server

Résolu
abdmoneem Messages postés 8 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 17 juin 2015 - 26 avril 2013 à 15:46
 MINDONGO - 26 avril 2013 à 16:41
Bonjour à tous

je suis bien débutant à programmer

je suis entrain de programmer un programme avec vb 6 et une base de donnée

sql server 2008 , j'utilise bien cette fonction pour se connecter au

serveur .

mon problème est bien que si le serveur est fonctionnel sur cette adresse

ip mon programme ca marche bien sinon, si pas de réponse avec le serveur

ca prenne beaucoup de temps pour sortir le message d'erreur de la fonction

de connexion et puis mon programme se plante

Public Sub connect()
'*************Code Erreur ***********
On Error GoTo ProcConnection
'************************************
Set MyConnObj = New ADODB.connection
MyConnObj.CursorLocation = adUseClient
MyConnObj.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user; Password=1234;Initial Catalog=TESTLOGIN;Data Source=10.64.239.165"
'***********************************
Exit Sub

ProcConnection:
MsgBox ("Probleme De Connection Vers La Base SQl,Merci De Contacter Votre Administrateur"), vbCritical, err.Number
Exit Sub


Merci bien de m'aider par une autre fonction de connexion vers le serveur Sql serveur 2008 ou par une solution pour mon problème ??

3 réponses

salut,
esk il y a msg d erreure? si Oui lequel
soit un peut claire

Soyons Toujours à la disposition des autres
3
abdmoneem Messages postés 8 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 17 juin 2015
26 avril 2013 à 16:04
Bonjour MINDONGO

non je ne recoit pas un message d'erreur

si le serveur sql ne fonctionne pas mon programme mène beaucoup du temps

a sortir le msgbox

MsgBox ("Probleme De Connection Vers La Base SQl,Merci De Contacter Votre Administrateur")


et après il se plante ????
3
Ton provider et data source peuvent être la cause
MyConnObj.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user; Password=1234;Initial Catalog=TESTLOGIN;Data Source=10.64.239.165" 



Soyons Toujours à la disposition des autres
0
Rejoignez-nous