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 45 46 47 48 49 50
| Class BDD
Shared server As String = "127.0.0.1"
Shared prt As String = "3306"
Shared user As String = "root"
Shared pass As String = "************"
Shared db As String = "dbs*******"
Shared conn As MySqlConnection
Shared str As String
Shared cmd As New MySqlCommand
Shared dr As MySqlDataReader
Shared Function TestConnexionDB() As Boolean
Try
str = "server=" & server & ";user=" & user & ";database=" & db & ";port=" & prt & ";password=" & pass
conn = New MySqlConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
If ConnectionState.Open Then
Return True
conn.Close()
Else Return False
'MessageBox.Show("Connection BDD Failed!", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Function
Shared Function OpenConnexionDB()
Try
str = "server=" & server & ";user=" & user & ";database=" & db & ";port=" & prt & ";password=" & pass
conn = New MySqlConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
If ConnectionState.Open Then
Return True
Else
Return False
MessageBox.Show("Connection BDD Failed!", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Function |
Partager