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
| Public Sub CONNEXION()
Dim sw As New StreamReader(Application.StartupPath + "\connexe.txt")
If File.Exists(Application.StartupPath + "\connexe.txt") = False Then
NATPATH = ""
Else
NATPATH = sw.ReadLine
NATPATH = UCase(NATPATH)
End If
BD = New SqlConnection("Data Source= " & NATPATH & ";PASSWORD = secundia84;Integrated Security =SSPI; Persist Security Info =True;user ID =sa;initial Catalog = TRADER; ")
With BD
Try
BD.Open()
Catch ex As Exception
MsgBox("Serveur de Données mal configuré...")
End Try
End With
End Sub
Sub Main()
CONNEXION()
frconnexio.ShowDialog()
End Sub |