Connexion à une BD Sql Server avec VB6

Question

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.

cs_ghuysmans99 · Answer

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 , ----
[../code.aspx?ID=41455 Syntax color by Renfield]

chefinf · Answer

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

.

cs_ghuysmans99 · Answer

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 
[code.aspx?ID=41455 
Syntax color by Renfield
]

chefinf · Answer

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.

lillith212 · Answer

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.
<hr />

chefinf · Answer

Même problème

.

145Serge · Answer

Toujours pret à affronter toutes les eventualités
connection tres facile il faudra vous connecter en mode sqlautantication

145Serge · Answer

Toujours pret à affronter toutes les eventualités
pour plus d'info appeler moi au +243811820451

dpeali · Answer

n'utilise pas cette connexion:
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



ou cette :

 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

il faut un autre méthode plus simple et efficae

dpeali · Answer

si tu veux la savoir il faut que tu me connecte moi en ligne sur hotmail

cs_ghuysmans99 · Answer

@145Serge/dpeali : pas remarqué que le topic datait de 2008 ?
Arrangez-vous au moins pour que ça aide un max de monde en partageant 
votre solution sur ce forum...

Avec le recul, je dirais que soit :
* MSSQL n'écoute pas en TCP/IP
* La chaine de connexion n'est pas la bonne (driver...)

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Connexion à une BD Sql Server avec VB6

11 réponses

Votre réponse

Discussions similaires