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
|
Imports System.Data.SqlClient
Imports System.Net
<System.Serializable()> Public Class connection
Implements acces_connection.interface_connection
Private requete As String
Dim con As New connection ' classe
Dim inter As acces_connection.interface_connection ' interface
Private Function modification(ByRef requete As String) As SqlDataReader Implements acces_connection.interface_connection.modification
Try
con = inter
' creer un objet sql command pour communiquer avec la base de données
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(requete, connection)
'creer un objet sql data reader pour exécuter puis afficher le resultat
Dim reader1 As SqlClient.SqlDataReader = command.ExecuteReader()
While reader1.Read
Return (reader1)
End While
Catch ex As Exception
MsgBox("demande non traité", MsgBoxStyle.Exclamation)
End Try
End Function
End Class |
Partager