返回DataTable对象，怎么写？
'=====================================
' 执行语句，返回DataTable对象
'=====================================
Public Function gOpenDataTableSQL(ByVal strSQL As String) As DataTable
End Function
问题点数：30、回复次数：6Top
1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2006-03-02 18:14:52 得分 0
用sqlhelper返回个dataset
ds.table(0)不就返回了,嘿嘿Top
2 楼zhanqiangz（闲云野鹤－Overriding）回复于 2006-03-02 18:27:45 得分 0
用dataset.Tables[0]这样可以，手工创建的datatable一样可以直接返回。Top
3 楼qjfu（村长）回复于 2006-03-02 18:28:22 得分 0
不好意思，刚开始学习，麻烦把代码写给我行吗？
Public Function gOpenDataTableSQL(ByVal strSQL As String) As DataTable
执行strSQL查询语句，返回DataTable对象
End FunctionTop
4 楼qjfu（村长）回复于 2006-03-02 18:42:23 得分 0
这样写对吗？
'======================================================
' 执行语句，返回DataTable对象
'======================================================
Public Function gOpenDataTableSQL(ByVal strSQL As String) As DataTable
Dim objConn As New OleDbConnection
objConn.ConnectionString = gGet_DSN()
objConn.Open()
Dim ObjCmd As New OleDbDataAdapter
ObjCmd = New OleDbDataAdapter(strSQL, objConn)
Dim Ds As New DataSet
Ds = New DataSet
Return Ds.Tables(0)
End FunctionTop
5 楼qjfu（村长）回复于 2006-03-02 19:02:08 得分 0
' 执行语句，返回DataTable对象
'======================================================
Public Function gOpenDataTableSQL(ByVal strSQL As String) As DataTable
'Return CConnect.OpenDataTableSQL(strSQL)
Dim MyConnection As New OleDbConnection
MyConnection.ConnectionString = gGet_DSN()
Dim MyCommand As New OleDbCommand(strSQL, MyConnection)
Dim MyAdapter As New OleDbDataAdapter(MyCommand)
MyAdapter.SelectCommand = MyCommand
Dim MyDS As New DataSet
MyAdapter.Fill(MyDS, "table1")
Return MyDS.Tables("table1")
End FunctionTop
6 楼flyinging（一路走来）回复于 2006-03-02 20:19:52 得分 0
楼上写的挺对的啊
应该没什么问题Top
