Connexion à une BD Sql Server avec VB6

Bonjour,

J'ai créer une BD sous Sql Server nommée "PCC" contenant 3 tables ("Voiture", "Client" et "Location")

je veux savoir comment faire une connexion à partir mon application VB6 avec cette base des données "PCC"

et comment acceder aux tables. Ma base est actuellement Local (sur mon PC) mais au future elle devienne

sur un autre (Serveur) distant et lié avec mon PC en reseau local.

SVP, je veux donc savoir comment faire une connexion à ma DB locale ainsi que la connexion à une BD distante.

Merci Merci Merci et SVP je besoin ses informations urgent urgent et trés urgent.

Choisis ta chaine de connexion là.

Dim Conn As ADODB.Connection Public Function OpenDB() As Boolean  Returns TRUE if fails, otherwise FALSE  Set Conn = New ADODB.Connection  Conn.ConnectionString = "TA CHAINE DE CONNEXION"  On Error Resume Next  Conn.Open  If Err Then   MsgBox "Erreur lors de la connexion à la base de données !", vbExclamation   Err.Clear   OpenDB = True   Exit Function  End If  On Error GoTo 0 End Function

Syntax color by Renfield

Merci, j'ai désactiver On error resume next et voila le resultat:

[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié



J'ai mis ça:
 Conn.ConnectionString = "DataSource=192.168.117.7;Initial Catalog=PCC;User Id=Administrateur;Password='';"

Ma BD est actuellement en local, losque j'ouvre Sql server managment studio je connect comme suit:

Server type:Database engine
Server name:(local)
Authentification:Windows authentification
User name (désactivé bien  sûr): JeanM\Administrateur
Password (désactivé aussi): vide

Mes informations:

Nom de ma BD: PCC
Mon @ IP:192.168.117.7
Sql Server 2008
VB6.0

.

Dim Conn As ADODB.Connection

Public Function OpenDB() As Boolean
 Returns TRUE if fails, otherwise FALSE
 Set Conn = New ADODB.Connection
 Conn.ConnectionString = "Data Source= 192.168.117.7 ;Initial Catalog=PCC;User Id=Administrateur;Password=;"
 On Error Resume Next
 Conn.Open
 If Err Then
  MsgBox "Erreur lors de la connexion à la base de données !", vbExclamation
  Err.Clear
  OpenDB = True
  Exit Function
 End If
 On Error GoTo 0
End Function Syntax color by Renfield

Bonjour les amis,

toujours le même message et impossible de connecter à ma BD.
 
J'ai pas compris c koi le problème.

Merci ghuysmans99 en tout cas.

Salut,
regarde cette discussion :
http://www.vbfrance.com/forum/sujet-PB-CONNEXION-AVEC-SQL-SERVER-2005_1120714.aspx
Tu pourras peut etre trouver ta solution

S.L.B.

---

Même problème

.