Imports MySql.Data.MySqlClient
Public Class DBconnect
Private Connection As MySqlConnection
Private SERVER As String
Private UID As String
Private PASSWORD As String
Private DATABASE As String
Public Sub DBconnect()
initialiser()
End Sub
Private Sub initialiser()
SERVER = "localhost"
UID = "root"
PASSWORD = ""
DATABASE = "btgestion"
Dim machaine As String = "Server" + SERVER + ";" + "DATABASE" + DATABASE + ";" + "UID" + UID + ";" + "PASSWORD" + PASSWORD + ";"
Connection = New MySqlConnection(machaine)
End Sub
Public Function open() As Boolean
Try
Connection.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
Public Function close() As Boolean
Try
Connection.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class
Partager