Question

请问这段VB代码是什么意思呢？是连接数据库的

Private Sub Form_Load() Adodc1.ConnectionString = cnn.ConnectionString Dim rec Dim i As Integer rs.Open "select * from usertb", cnn, adOpenKeyset, adLockOptimistic rec = rs.RecordCount ReDim Asc(rec - 1) rs.MoveFirst For i = 1 To rec Combo.AddItem rs.Fields("名称") Asc(i - 1) = Val(rs.Fields("密码")) rs.MoveNext If rs.EOF Then Exit For Next rs.Close End Sub 请详细说说，谢谢了

Answer 1

Private Sub Form_Load() Adodc1.ConnectionString = cnn.ConnectionString Dim rec Dim i As Integer rs.Open "select * from usertb", cnn, adOpenKeyset, adLockOptimistic --查询数据 rec = rs.RecordCount --得到记录数 ReDim Asc(rec - 1) -- ReDim：在过程级中声明动态数组变量并分配或重新分配存储空间。 rs.MoveFirst --定位到第一条 For i = 1 To rec --循环 Combo.AddItem rs.Fields("名称") --添加名称到下拉框中 Asc(i - 1) = Val(rs.Fields("密码")) --对数组赋值 rs.MoveNext --移动到下一条 If rs.EOF Then Exit For --判断是否到了记录的尾部，是就退出循环 Next rs.Close End Sub

麻烦采纳，谢谢!