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
| Public Function GetDatas(ByRef StringSql As String, ByRef TableName As String, ByRef Connexion As String) As DataSet
Dim Ds As DataSet
Dim Da As SqlDataAdapter
Dim ConnexionData As SqlConnection
Dim StrSql As String = Nothing
Try
ConnexionData = New SqlConnection(Connexion)
ConnexionData.Open()
Da = New SqlDataAdapter(StringSql, Connexion)
Ds = New DataSet
Da.Fill(Ds, TableName)
ConnexionData.Close()
Return Ds
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
End Try
End Function |
Partager