62,050
社区成员
发帖
与我相关
我的任务
分享
sub ini()
dim da as new Dim da As New SqlDataAdapter("select * from table",conn)
dim i as Integer
dim table as new datatable
da.fill(table)
Dim arr(Tables.Rows.Count) As String
for i =0 to table.rows.Count - 1
arr(i)=table.row(i).item(0)//没条数据的第一个字段是图片的URL
next
end sub