VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
程序开发范例宝典 光盘\mingrisoft\09\238的问题
发表在VB答疑区
2010-05-24
是否精华
是
否
版块置顶:
是
否
代码如下：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Dim row As Long, col As Long
Dim viewdata
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\[font color=#FF0000]Wr\公共程序[/font]\jswd.mdb;Persist Security Info=false;jet oledb:database password=123"
rs.Open "select * from jq", cn, , , adCmdText
rs.MoveFirst
While Not rs.EOF
viewdata = rs.GetRows(10)
For row = 0 To UBound(viewdata, 2)
s = ""
For col = 0 To UBound(viewdata, 1)
s = s & viewdata(col, row) & vbTab
Next
List1.AddItem s
Next
Wend
rs.Close
End Sub
这里红色字体的代码是什么意思
而且我把它改成app.path后能打开，但只看到列表中的内容。
谢谢
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Dim row As Long, col As Long
Dim viewdata
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\[font color=#FF0000]Wr\公共程序[/font]\jswd.mdb;Persist Security Info=false;jet oledb:database password=123"
rs.Open "select * from jq", cn, , , adCmdText
rs.MoveFirst
While Not rs.EOF
viewdata = rs.GetRows(10)
For row = 0 To UBound(viewdata, 2)
s = ""
For col = 0 To UBound(viewdata, 1)
s = s & viewdata(col, row) & vbTab
Next
List1.AddItem s
Next
Wend
rs.Close
End Sub
这里红色字体的代码是什么意思
而且我把它改成app.path后能打开，但只看到列表中的内容。
谢谢
分享到：
