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 :
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 ).
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
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
Partager