Connexion avec la base de donnée

**bt-med** · 28/10/2015, 15h22

Bonjour tout le monde.
Je veux connecter avec une base de données dans un serveur soit local ou distant.
j'ai ajouté dans "app.config" ces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
<appSettings>
		<add key="DBServerName" value="Localhost"></add>
		<add key="DatabaseName" value="suivieDAM"></add>
		<add key="DatabaseUserID" value="sa"></add>
		<add key="DatabasePwd" value="sql.2005"></add>
	</appSettings>

et dans la forme "connexion"

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
Private Sub user_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
      ' Dim lines() As String = IO.File.ReadAllLines("C:\Conf_GAM.txt")
      '  T1.Text = lines(0)
      '  T2.Text = lines(1)
       ' T3.Text = lines(3)
      '  T4.Text = lines(4)
 
        T1.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DBServerName")
       T2.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseName")
        T3.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseUserID")
        T4.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabasePwd")
 
        Try
 
 
 'classuser.sqlcon.ConnectionString = "Data Source=SQL\DAM;Initial catalog=suivieDAM;Integrated security=true"
 
 classuser.sqlcon.ConnectionString = "Data Source='" & T1.Text & "' + ;Initial catalog= '" & T2.Text & "' +  ;Integrated security=true + ;User ID= '" & T3.Text & "' + ;Password='" & T4.Text & "'"
 
            MsgBox("Connection Réussie", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub