chaine de connection SQL SERVER en VB.net Fermé

Question

Bonjour, 
Est ce que toutes les version de SQL SERVER peuvent utiliser le nom 
".\sqlexpress" comment nom de serveur ou c'est limité à L'edition Express ? 

Merci d'avance  

Configuration: Windows 7 / Firefox 5.0

saidjulio · Answer

bonjour,

dans vb.net 8 je fais comme ca:


Imports System
Imports System.Data
Imports System.Data.SqlClient

Module Module1

    Friend con As SqlConnection


    Sub Brancher()

        Dim PWD As String
        Dim Suser As String
        Dim Srv As String
        PWD = "cogito"
        Suser = "sa"
        Srv = "HAMRIS\SQLEXPRESS"

        con = New SqlConnection("Data Source=.\SQLEXPRESS;Password=" & PWD & ";Persist Security Info=true;User ID=" & Suser & ";Initial Catalog=G_TICKETS;Data Source=" & Srv & "")


    End Sub


'connexion

    Public Sub Connect()
        Try
            con.Open()
        Catch ex As Exception
            con.Close()
            con.Open()
        End Try
    End Sub

'deconnexion

    Public Sub Deconnect()
        Try
            con.Close()
        Catch ex As Exception
            con.Open()
            con.Close()
        End Try
    End Sub

End Module


et en vb6 je fais comme ca:

Public Con As New ADODB.Connection

Public Usario, TpUser As String

Public ErrDt As Boolean

Public D_R, D_A, F_R, F_A, F_F, BL_C, BL_F, V_C, B_C, D_P, Av_C, Av_F, R_C, R_F, S_C, S_F, Ch_C, Ch_F As Boolean

Public Cas_Modif, Ref_Rep As Boolean

'Public Err_con As Boolean


Public Sub Brancher()
Dim sConnect As String
Dim PWD As String
Dim Suser As String
Dim Srv As String
On Error GoTo err_cnparc

PWD = "cogito"
Suser = "sa"
'Srv = "HAMRIS\SQLEXPRESS"
'Srv = ".\SQLEXPRESS"
Srv = "192.168.1.10\SQLEXPRESS"
'Srv = "IRRITER\SQLEXPRESS"

Con = "Provider=SQLOLEDB.1;Password=" & PWD & ";Persist Security Info=true;User ID=" & Suser & ";Initial Catalog=IRRI_TER;Data Source=" & Srv

Con.Open 

If Con.State = adStateOpen Then
  'MsgBox "Connexion ok "
  Else
        MsgBox "Connexion impossible "
  End If
err_cnparc:
    If Con.State <> adStateOpen Then
            MsgBox Err.Description, vbOKOnly + vbExclamation, "Erreur de connexion"
            
            'Err_con = True
            'Ressayer_Connexion.Show
    End If
End Sub


_____________________
mais pour voir tous les types de connexions au bd voir ca:

http://www.connectionstrings.com/


bonne courage.

Chaine de connection SQL SERVER en VB.net

1 réponse

Discussions similaires