s'il vous plais expliquez moi cette fonction
merci
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 Shared Function OpenTable(ByVal NomTable As String, ByVal SqlSource As String, ByVal Cnx As String) As DataTable 'retourn le resultat du requette ds un table ' sera util ds les reque de select Dim Cn As New SqlConnection Dim Cmd As SqlCommand Dim DAdap As SqlDataAdapter Dim DSet As New DataSet Dim DTable As DataTable Cn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings.Item(Cnx).ToString Cmd = New SqlCommand(SqlSource) Cmd.Connection = Cn DAdap = New SqlDataAdapter(Cmd) DAdap.Fill(DSet, NomTable) DTable = DSet.Tables(NomTable) Return DTable End Function
Partager