Connexion à une BD Sql Server avec VB6

Signaler
Messages postés
166
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
25 octobre 2011
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
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.

11 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
15
Choisis ta chaine de 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 , ----
[../code.aspx?ID=41455 Syntax color by Renfield]
Messages postés
166
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
25 octobre 2011

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

.
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
15
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
]
Messages postés
166
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
25 octobre 2011

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.
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
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 />
Messages postés
166
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
25 octobre 2011

Même problème

.
Toujours pret à affronter toutes les eventualités
connection tres facile il faudra vous connecter en mode sqlautantication
Toujours pret à affronter toutes les eventualités
pour plus d'info appeler moi au +243811820451
Messages postés
67
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
12 avril 2013
2
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
Messages postés
67
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
12 avril 2013
2
si tu veux la savoir il faut que tu me connecte moi en ligne sur hotmail
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
15
@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