Connexion sql server 2008 depuis VB6 [Résolu]
harrycossek
- Messages postés
- 3
- Date d'inscription
- mercredi 18 mai 2011
- Dernière intervention
- 19 mai 2011
A voir également:
- Chaine de connexion sql server authentification windows
- Sql server vb6 - Meilleures réponses
- Chaine de connexion sql server - Meilleures réponses
- CHAINE DE CONNEXION SQL SERVER ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Connexion sql server avec ado.net - CodeS SourceS - Guide
- C# / .NET : Class connexion (sql server, oracle, oledb) - CodeS SourceS - Guide
- Problème de connexion SQL Server avec Mono ✓ - Forum - C# / .NET
- Quelle est la chaine de connection sql server 2005 ? ✓ - Forum - C# / .NET
7 réponses
Meilleure réponse
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Statut
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 :
avec les fonctions annexes suivantes :
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)
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 Functionqui 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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 3
- Date d'inscription
- mercredi 18 mai 2011
- Dernière intervention
- 19 mai 2011
- Messages postés
- 3
- Date d'inscription
- mercredi 18 mai 2011
- Dernière intervention
- 19 mai 2011
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.