[vb.net]比较好用的一个返回DATATABLE对象的函数

分享一段函数,返回DATATABLE对象的,

它的意义就是在于,设置好一个SQL连接对象后,根据查询语句,返回一个DATATABLE对象

2.     Public Function GetDataTable(ByVal sql As String, ByVal sqlcon As SqlConnection) As DataTable
3.         '实例一个DataTable对象
4.         Dim dt As New DataTable
5.         Try
6.             '实例一个SqlDataAdapter对象,并指定其SqlCommand对象
7.             Dim SqlAda As New SqlDataAdapter(New SqlCommand(sql, sqlcon))
8.             '填充上面实例的DataTable对象
9.             SqlAda.Fill(dt)
11.             '如果出错,则调用写错函数
12.         Catch ex As Exception
13.             WriteErr(ex)
14.             dt = Nothing
15.         End Try
16.         Return dt
17.     End Function