Public Shared Function GetData(Query As String) As DataTable
Try
Dim connString As String = WebConfigurationManager.ConnectionStrings("myConnectionString").ToString
Using con As New SqlConnection(connString)
Using cmd As New SqlCommand()
cmd.CommandText = Query
Using sda As New SqlDataAdapter()
cmd.Connection = con
sda.SelectCommand = cmd
Using ds As New DataSet()
Dim dt As New DataTable()
sda.Fill(dt)
Return dt
End Using
End Using
End Using
End Using
Catch ex As Exception
Return Nothing
End Try
End Function
No comments:
Post a Comment