芯片大哥，可否把，vb.net里面的连接贴出来

Question

芯片大哥，可否把，vb.net里面的连接贴出来，另外是不是只是装IBM   iSeries   Access   for   Windows，然后配置下odbc数据源，谢谢赐教

Answer 1

  Dim conn As SqlConnection
            conn = New SqlConnection
            conn.ConnectionString = ConfigurationSettings.AppSettings("Conn")            '定义数据访问对象
            Dim subdepartda As SqlDataAdapter
            Dim subdepartds As New DataSet
            Dim subdepartdt As DataTable            subdepartda = New SqlDataAdapter(strSql, conn)
            subdepartda.Fill(subdepartds, "listDataSet")
            subdepartdt = subdepartds.Tables("listDataSet")            '返回结果集
            Return subdepartdt

Answer 2

 Public Shared Function ExecuteSqlResult(ByVal strSql As String) As DataTable
            '建立数据库连接
            Dim conn As SqlConnection
            conn = New SqlConnection
            conn.ConnectionString = ConfigurationSettings.AppSettings("Conn")            '定义数据访问对象
            Dim subdepartda As SqlDataAdapter
            Dim subdepartds As New DataSet
            Dim subdepartdt As DataTable            subdepartda = New SqlDataAdapter(strSql, conn)
            subdepartda.Fill(subdepartds, "listDataSet")
            subdepartdt = subdepartds.Tables("listDataSet")            '返回结果集
            Return subdepartdt
        End Function