宁武吧 百度贴吧:跪求详细每一句的解释
来源:百度文库 编辑:中科新闻网 时间:2024/05/08 22:57:58
Dim strsql As String
strsql = "select 密码 from 权限设置 where 姓名='" & Strxm & "'"
Data1.RecordSource = strsql
Data1.Refresh
Data1.Recordset.MoveFirst
strsql = "select 密码 from 权限设置 where 姓名='" & Strxm & "'"
Data1.RecordSource = strsql
Data1.Refresh
Data1.Recordset.MoveFirst