1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Connexion sql server 2008 depuis VB6

Résolu
harrycossek
Messages postés
3
Date d'inscription
mercredi 18 mai 2011
Statut
Membre
Dernière intervention
19 mai 2011
 - 18 mai 2011 à 19:02
 obedndele - 13 juin 2013 à 15:02
Bonjour, je voudrais savoir s' il est effectivement possible de se connecter a une base de donnée SQL Server 2008 depuis VB6.
Impossible de trouver une réponse claire sur le net.

Merci
A voir également:

7 réponses

Réponse 1 / 7
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 78
18 mai 2011 à 23:35
Salut

Absolument.
En fait, quelque soit le serveur, du moment qu'il répond au standard, la seule chose qui change, c'est la chaine de connexion. La gestion des tables, des champs, les règles SQL s'appliquent ensuite à tous les serveur (SQL Server, Access, Oracle, MySQL, ...)

Donc, il te suffit de trouver la chaine de connexion.
Une excellente référence dans ce domaine : <ce site>
Pour définir cette chaine, il faut un petit peu connaitre SQL Server, notamment sur la partie login/authentification.
Soit tu utilises le login classique : UserName/Password
Soit ton login est le même que celui de ta cession Windows et alors tu peux utiliser la connexion "Trusted" (SSPI) - vérifiée-authentifiée.
Ceci est très pratique lorsque plusieurs utilisateurs doivent se connecter - il suffit de les avoir déclarés parmi les Users, et Windows dialoguera avec le serveur pour prouver l'authenfifcation.
Par contre, si la connexion au serveur requière un unique UserName/Password, il faut choisir la solution classique.

Un exemples de connexion.
Dans cet exemple, la connexion se fait en SSPI si le serveur est installé sur la même machine, sinon, utilise le login : 
Public Function ConnectSqlServer(ServerName As String, DBName As String) As Boolean
    ' Renvoie True si connexion Ok
    On Error GoTo Erreur
    With cnnSqlServer
        ' Referme si déjà ouverte
        If .State <> adStateClosed Then .Close
        ' Paramétrage connexion
        .ConnectionTimeout = 25
        .Provider = "sqloledb"
        .Properties("Data Source").Value = ServerName
        .Properties("Initial Catalog").Value = DBName
        If IsSqlServerLocal(ServerName) Then
            ' SQL Server sur la même machine : Authentification Windows
            .Properties("Integrated Security").Value = "SSPI"
        Else
            ' SQL Server dédié
            .Properties("Locale Identifier").Value = 1033   ' Anglais
            .Properties("User ID").Value = sUserID
            .Properties("Password").Value = sPassword
        End If
        On Error Resume Next
        ' Connexion
        .Open
        ' Attend connexion terminée
        Do While .State = adStateConnecting
            DoEvents
        Loop
        On Error GoTo 0
        ' Au final, renvoie True si on est bien ouvert
        ConnectSqlServer CBool(.State adStateOpen)
    End With
Fin:
    Exit Function
Erreur:
    M.LogOnly "#### ConnectSqlServer - Erreur " & CStr(Err.Number) & " - " & Err.Description
    Resume Fin
End Function

avec les fonctions annexes suivantes : 
Public Function IsSqlServerLocal(NomDuServeur As String) As Boolean
    ' Renvoie True si le SQL Server est installé sur la même machine
    '   que celle qui veut faire des requètes (ici)
    ' Utile pour le mode de connexion et la conversion des dates
    Dim sTemp As String
    sTemp = myComputerName
    IsSqlServerLocal CBool(StrComp(NomDuServeur, sTemp, vbTextCompare) 0)
End Function
Public Function myComputerName() As String
    ' Renvoie le nom du poste
    Dim sTemp As String
    Dim r As Long
    sTemp = String(MAX_COMPUTERNAME_LENGTH, Chr$(0))
    r = MAX_COMPUTERNAME_LENGTH + 1
    Call GetComputerName(sTemp, r)
    sTemp = Left$(sTemp, r)
    myComputerName = sTemp
End Function
qui nécessitent ces déclarations : 
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
2
Réponse 2 / 7
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 78
18 mai 2011 à 23:53
Je le pense, oui.
La ligne SQL Server a toujours été a compatibilité ascendante. Seuls varient les capacités (tailles, types de données, ...) et la sécurité, mais 95% de chance que, une fois la connexion effectuée, que tes requètes 2000 fonctionnent sur les versions supérieures.
1
Réponse 3 / 7
harrycossek
Messages postés
3
Date d'inscription
mercredi 18 mai 2011
Statut
Membre
Dernière intervention
19 mai 2011
18 mai 2011 à 23:49
Que dire? Merci infiniment pour cette réponse lumineuse!
Pour aller plus loin, une appli sous VB6 prévue pour fonctionner avec SQL 2000 fonctionnera t elle obligatoirement avec un serveur SQL 2008?
0
Réponse 4 / 7
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 78
18 mai 2011 à 23:49
Et l'objet est, bien entendu, ADO 
Public cnnSqlServer  As ADODB.Connection     ' Accès à la database SQL Server
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
harrycossek
Messages postés
3
Date d'inscription
mercredi 18 mai 2011
Statut
Membre
Dernière intervention
19 mai 2011
19 mai 2011 à 09:47
Encore merci!
0
Réponse 6 / 7
isidor82
16 oct. 2012 à 17:10
comment puis je alors travailler avec sql 2000
0
Réponse 7 / 7
obedndele
13 juin 2013 à 15:02
salut, je veux savoir s'il y a moyen de connecter sql server à Vb6 à partir de l'objet DATA?
0