问vb一个语句,以下是代码

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:28:26
Private Sub Command1_Click()
Data1.Refresh
Dim sqlstr As String
sqlstr = "select * from user where 用户名 = '" & Trim(Text1.Text) & " 'and 密码 = '" & Trim(Text2.Text) & "'"
Data1.RecordSource = sqlstr （这句赋值句前面那部分data1....是什么东西）
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then（这一句有何含义？）
MsgBox "用户名/密码错误", , "提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Formdl.Hide
Formcd.Show
If Data1.Recordset.Fields(2) = 0 Then
Formcd.tjyh.Enabled = False
Formcd.rxdj.Enabled = False
FrmClassAdd.Command2.Enabled = False
FrmClassAdd.Command1.Enabled = False
FrmClassFind.Command2.Enabled = False
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Formtjpuyh.Show
End Sub

sqlstr = "select * from user where 用户名 = '" & Trim(Text1.Text) & " 'and 密码 = '" & Trim(Text2.Text) & "'"
Data1.RecordSource = sqlstr
（这句赋值句前面那部分data1....是什么东西）

'回复:这个是把sqlstr的查询结果给 Data1作为它的recordSource 记录数据源。
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then（这一句有何含义？）
'回复：查询结果有的有记录，有的没有记录，那么，看查询结果显示。
data1 包含查询结果，如果 Data1.Recordset.RecordCount 记录数是0，说明没有查询结果，就提示：
MsgBox "用户名/密码错误", , "提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
这个用户登陆用户名称和密码不在数据库里，出现错误。
谢谢你的提问。

Data1.RecordSource = sqlstr （这句赋值句前面那部分data1....是什么东西）
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then（这一句有何含义？）

Data1 是VB工具栏中的一个控件，你添加这个控件的时候就会自动引用DAO

If Data1.Recordset.RecordCount = 0 Then
的意思是：

如果 Data1 的数据集 的记录数 ＝ 0 则