如何将recordset记录集中的数值赋给窗体的文本框

黄小超　发表于：2013-04-23 22:10:49 　

窗体是数据表结构的

代码如下
rivate Sub Form_Load()
Dim cn As New ADODB.Connection                      '定义一个Ado连接
Dim rs As New ADODB.Recordset                      '定义一个Ado记录集
Dim sql As String                                  '定义一个字符串变量
Set cn = CurrentProject.Connection                '定义cn等于当前连接
sql = "select * from qry_cUnMonthGjJh_TrueGj"       '给字符串赋值
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1  '打开一个记录集并赋给rs
Do Until rs.EOF                                     '当不是记录集的结束就循环
      Me.txt1 = rs("aa")                            '将rs的“jydm”列赋给窗体的“txt1”文本框
Me.txt2 = rs("bb")
Me.txt3 = rs("01")
Me.txt4 = rs("02")
Me.txt5 = rs("03")
Me.txt6 = rs("One")
Me.txt7 = rs("Two")
Me.txt8 = rs("Three")
      rs.MoveNext                                     '移至下一个记录
Loop                                              '循环
rs.Close                                           '关闭记录集
cn.Close                                           '关闭连接
Set cn = Nothing
End Sub
但是不行，如何将recordset记录集中的数值赋给窗体的文本框?

Top

殷小宝发表于：2013-04-23 22:28:36

rs.MoveNext '移至下一个记录

下一条记录赋给哪个文本框去呢？

Top

黄小超发表于：2013-04-24 10:25:49

可以无视它，就是想知道怎么把一个查询的某条记录赋值到文本框？

Top

殷小宝发表于：2013-04-24 11:23:22

sql = "select * from qry_cUnMonthGjJh_TrueGj" 后面加一个where条件,使其只有一条记录,再按上面的方法赋予.如:

Me.txt1 = rs("aa")
Me.txt2 = rs("bb")
Me.txt3 = rs("01")
Me.txt4 = rs("02")
Me.txt5 = rs("03")
Me.txt6 = rs("One")
Me.txt7 = rs("Two")
Me.txt8 = rs("Three")

去掉do until.....loop.

Top

黄小超发表于：2013-04-24 16:07:35

谢谢你的回答，还有一个问题，就是如何判断光标放在子窗体上的那条记录？

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

如何将recordset记录集中的数值赋给窗体的文本框