Discussion :

[med_tijani]

s'il vous plais expliquez moi cette fonction

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

merci