Connection source sql server

Soyez le premier à donner votre avis sur cette source.

Vue 27 796 fois - Téléchargée 279 734 fois

Description

Les différentes possibilités pour se connecter à une source SQL Server et accéder
aux tables

Conclusion :


Nécessite d'avoir SQL Server

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
6
creer un objet connection ado
dim gOcnx As New ADODB.Connection
gOcnx=ConnectString = "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=API;Data Source=boutresse\sqlexpress"

ou catalog est le nom de la base chez moi API
Data source est le nom du serveur sql chez moi Data Source=boutresse\sqlexpress"

Le mieux est de creér fichier texte sur le bureau, le renommer en .udl puis ensuite en double cliquant établir la connection sur le serveur SQL ensuite ouvrir le fichier UDL avec notepad et récupérer la chaine de connection.
Afficher les 15 commentaires

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.