Bonjour à tous ,

Mes questions vont être 'débiles' pour certains mais j'ai parcourus par mal de forum tuto ou autre et rien n'éclaire ma lanterne :

Je me lance dans VB (Visual basic 2008) et (MSSQL server) , a ce jour j'ai déployer une base MSSQL en locale mais qui va migré vers un serveur (local), et par la suite sur une VM.

Mon application (Gestionnaire d'immobilisation technologique) est déstinée a plusieurs profil différents donc pour me connecter je fait un formulaire avec les champs suivants :
Nom , Mot de passe , Serveur , Nom de la base (facultatif)

Pour le moment j'ai fait ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 Private Sub GPI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Me.txt_UserName.Text = "User"
        Me.txt_Password.Text = "Test12/"
        Me.txt_BaseServerName.Text = "UserTest\SQLEXPRESS"
        Me.txt_BaseName.Text = "GPI"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim maCnx As New ADODB.Connection()
        Dim maCmd As New Command
 
        ' Variables de connection
        Dim ConnectionString As String
        Dim ActiveConnection As String
 
        Dim Password As String
        Dim User As String
        Dim Database As String
        Dim Server As String
 
        Password = Me.txt_Password.Text
        User = Me.txt_UserName.Text
        Database = Me.txt_BaseName.Text
        Server = Me.txt_BaseServerName.Text
 
 
        With maCnx
            On Error GoTo ErreurFatale
            .ConnectionTimeout = 30
            .Provider = "SQLOLEDB"
            .ConnectionString = "Trusted_Connection=yes;" & _
                                "Data source = " & Server & ";" & _
                                "Initial catalog = " & Database & ";"
            '"User ID = " & User & ";" & _
            .Open()
        End With
 
ErreurFatale:
        MsgBox("Erreur N° :" & Err.Number & vbLf & Err.Description)
        End
    End Sub
1.Seulement je ne n'arrive pas à me connecter à la base il me retourne l'erreur 0 mais avec aucun message d'erreur (juste Erreur : 0 ).

2.Au cas ou ma connexion serai active comment faire pour afficher un message box du type :

If connexion = true then
msgbox('Connecté')
End if

Je me remet donc à vos lumières pour éclairer ce premier obstacle .
Merci pour tout