vb组件返回数组函数例子
作者:stardust 日期:2007-12-05
Public Function Return_usermsg(id) As Variant
Dim frs As New adodb.Recordset
frs.Open "select * from stone_usermsg where id=" & id, Conn, 1, 1
Return_usermsg = Array(Trim(frs("msg_title")), Trim(frs("msg_content")), Trim(frs("msg_user")), Trim(frs("msg_fromuser")), Trim(frs("msg_addtime")), Trim(frs("msg_isview")), Trim(frs("msg_isback")))
frs.Close
Dim frs As New adodb.Recordset
frs.Open "select * from stone_usermsg where id=" & id, Conn, 1, 1
Return_usermsg = Array(Trim(frs("msg_title")), Trim(frs("msg_content")), Trim(frs("msg_user")), Trim(frs("msg_fromuser")), Trim(frs("msg_addtime")), Trim(frs("msg_isview")), Trim(frs("msg_isback")))
frs.Close
- 1
