高校问答沃尔夫林 五对概念:请帮我看看这段vb代码
来源：百度文库 编辑：高校问答 时间：2024/05/05 12:34:35
Dim rs As New ADODB.Recordset
Private Sub Combo1_Change()
user = Combo1.Text
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gzgl.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
mysql = "select * from 密码管理"
Randomize
Text2.Text = ""
Set rs = con.Execute(mysql)
For j = 0 To rs.RecordCount - 1
Combo1.AddItem rs.Fields(j).Value
Next
Combo1.Text = rs.Fields(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set con = Nothing
Set rs = Nothing
End Sub
这是我毕业设计下载的一段代码,请高人给我讲讲具体每句代码的作用,小妹感激不尽~~
如果想把数据库gzgl中表单"管理"中的所有用户名都显示在combo的下拉框中,而且实现用户名与密码一一对应,应该怎么办呢?
Dim i, j, a, b, c As Integer 定义变量i,j,a,b,c都是整型
Dim rs As New ADODB.Recordset 定义rs记录集
Private Sub Combo1_Change() 下面是个过程(当这个列表框的内容发生变化的时候就执行)
user = Combo1.Text 装列表框选中的内容赋给变量user
End Sub 过程结束
Private Sub Form_Load() 这是窗口过程,当窗口调用的时候,执行.
Set con = New ADODB.Connection 定义数据库连接con
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gzgl.mdb;Persist Security Info=False" 连接数据库的字符串,是ACCESS,数据库的名字是gzgl.mdb
con.CursorLocation = adUseClient 使用客户端游标
con.Open 连接数据库
mysql = "select * from 密码管理" SQL查询语句,选取密码管理表中所有的东东
Randomize 这个是随机数的初始化
Text2.Text = "" text2的文本设为空
Set rs = con.Execute(mysql) 执行上面sql语句,产生的结果放在rs中.
For j = 0 To rs.RecordCount - 1 这是一个循环,rs.RecordCount返回表密码管理表中总的记录数,如果上面不使用客户端游标的话,这里就得不到正确的结果.
Combo1.AddItem rs.Fields(j).Value 这个是将表中的字段增加到列表框中j=0时，就把第一个字段放进去．
Next
Combo1.Text = rs.Fields(0) 使列表的内容为第一个字段．
End Sub
Private Sub Form_Unload(Cancel As Integer) 这个是窗口卸载过程
Set con = Nothing 释放资源
Set rs = Nothing 释放资源
End Sub