CONNECTION SOURCE SQL SERVER

Signaler
Messages postés
9
Date d'inscription
vendredi 3 mai 2002
Statut
Membre
Dernière intervention
29 mai 2002
-
Messages postés
4
Date d'inscription
samedi 6 février 2010
Statut
Membre
Dernière intervention
7 décembre 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2751-connection-source-sql-server

Messages postés
4
Date d'inscription
samedi 6 février 2010
Statut
Membre
Dernière intervention
7 décembre 2010

voila mon module de connection :

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public UserName As String
Public PROV As String
Public Password As String
Public ServerName As String
Public DBName As String
'Public TypUser As String
'Public DtDeb, DtFin As Date
'Public fMainForm As furmMain
Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv&, ByVal fDirection%, ByVal szDSN$, ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, ByVal cbDescriptionMax%, pcbDescription%) As Integer
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)

Sub Main()
Data Source = DELL
initial catalog = culture
'persist security info=True
'user id=ID
workstation id = DELL \ BMB
packet Size = 4096
'Password = Password
Provider = MSSQLServer
'dsn = w2000pro
'uid = administrateur
'pwd = naza
Database = "culture"

UserName = "DELL \ BMB"
'Password = "naza"
ServerName = "DELL"
PROV = "MSSQLServer"
i = SQLAllocEnv(lHenv)

'Dim strServerName As String
'strServerName = MsChatPr1.ServerName


DBName = "culure"

'Set connection properties.

db.ConnectionTimeout = 25 ' Set the time out.
db.Provider = PROV ' Specify the OLE DB provider.
db.Properties("Data Source").Value = ServerName ' Set SQLOLEDB connection properties.
db.Properties("Initial Catalog").Value = DBName ' Set SQLOLEDB connection properties.
db.Properties("Integrated Security").Value = "SSPI" ' Set SQLOLEDB connection properties.


'db.Open "PROVIDER=sqloledb;dsn=w2000pro;uid=administrateur;database=burordre;"


db.Open
db.CursorLocation = adUseClient
Dim flogin As New frmLogin
flogin.Show vbModal
If Not flogin.OK Then
'L'ouverture de session a échoué. Application terminée
End
End If
Unload flogin

frmSplash.Show
frmSplash.Refresh

Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash

fMainForm.Show
End Sub

Sub LoadResStrings(frm As Form)
On Error Resume Next

Dim ctl As Control
Dim obj As Object
Dim fnt As Object
Dim sCtlType As String
Dim nVal As Integer

'Définit la légende de la feuille
frm.Caption = LoadResString(CInt(frm.Tag))


'Définit la police
Set fnt = frm.Font
fnt.Name = LoadResString(20)
fnt.Size = CInt(LoadResString(21))


'Définit les légendes des contrôles en utilisant la
'propriété caption pour les éléments de menu et la propriété Tag
' pour tous les autres contrôles
For Each ctl In frm.Controls
' Set ctl.Font = fnt
sCtlType = TypeName(ctl)
If sCtlType = "Label" Then
ctl.Caption = LoadResString(CInt(ctl.Tag))
ElseIf sCtlType = "Menu" Then
ctl.Caption = LoadResString(CInt(ctl.Caption))
ElseIf sCtlType = "TabStrip" Then
For Each obj In ctl.Tabs
obj.Caption = LoadResString(CInt(obj.Tag))
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
Next
ElseIf sCtlType = "Toolbar" Then
For Each obj In ctl.Buttons
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
Next
ElseIf sCtlType = "ListView" Then
For Each obj In ctl.ColumnHeaders
obj.Text = LoadResString(CInt(obj.Tag))
Next
Else
nVal = 0
nVal = Val(ctl.Tag)
If nVal > 0 Then ctl.Caption = LoadResString(nVal)
nVal = 0
nVal = Val(ctl.ToolTipText)
If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
End If
Next

End Sub
Messages postés
4
Date d'inscription
samedi 6 février 2010
Statut
Membre
Dernière intervention
7 décembre 2010

je travaille avec vb6 et SQL server 2000 et j'ai pas pu connecter les 2.lors de l'execution il m'affiche "impossible d'utiliser cette connexion pour effectuer cette opération .elle est fermé ou non valide dans ce contexte"
Messages postés
1
Date d'inscription
vendredi 11 décembre 2009
Statut
Membre
Dernière intervention
7 janvier 2010

bonjour,je trouve un problème pour se connecter avec sql sever managment :il demande le nom du serveur et l'authentificateur?alors comment remplir ce champ!!merci
Messages postés
62
Date d'inscription
mercredi 22 février 2006
Statut
Membre
Dernière intervention
20 novembre 2008

Bonjour, je souhaite me connecter à mon server SQL 2005 à travers un réseau local.
Ai je besoin d'installer SQL Native Client sur le poste
Merci
Afficher les 15 commentaires