关于将窗体字段值存入数据表

money

曾在本站看过一段可行的语句:

dim db as database
dim rst as recordset
set db=currentdb()
set rst=db.openrecordset("数据表名称")
rst.edit
rst.field("字段名")=forms!窗体名!控件名!.value
rst.update

    问题是:  假设是要修改当前操作员的密码(员工编号已知),那么上面语句又应如何写，使得按员工编号修改“员工资料表”对应的密码呢？

zhuyiwen

CurrentProject.Connect.Execute "Update 员工表 Set 密码='asdads' Where 员工编号=123"

money

明白了您写的语句啦! 但如何根据窗体已输入的[txt密码]和[员工ID](即窗体上的变量)来修改[员工表]呢?可以写具体一点吗?谢谢!!

李啸林

"Update 员工表 Set 密码='" & [txt密码] & "' Where 员工编号=" & [员工ID]

money

哦! 谢谢版主!

money

本站的大侠曾提供将窗体字段值存入数据表的语句:
dim db as database
dim rst as recordset
set db=currentdb()
set rst=db.openrecordset("数据表名称")
rst.edit
rst.field("字段名")=forms!窗体名!控件名!.value
rst.update

问题:
set rst=db.openrecordset("员工表")
rst.edit
rst.field("密码")=forms![修改密码窗]![txt密码]
这几句中如何加入条件:  员工编号=forms![修改密码窗]![txt员工编号]  呢?
备注: 员工编号和密码都是文本不是数字

风鸣

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
        
rs.Open "员工表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
Do While Not rs.EOF
        
      If rs.Fields("员工编号") = txt员工编号 Then
            
             rs.Fields("密码") = 密码
               
      End If
            
rs.MoveNext
        
Loop




-----------------
如有雷同，并非巧合！

money

谢过风鸣师兄指教!