UC知道access中的vb代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 10:44:50
功能是要使“代号”的内容变化时，“部门”，“姓名”中的内容也同表“员工信息”中的内容一致相改变；但在运行时显错“运行时错误'-2147217913(80040e07)':标准表达式中数据类型不匹配。”
Private Sub 代号_LostFocus()
Dim con As Object
Dim rs As New ADODB.Recordset
Set con = Application.CurrentProject.Connection
strsql = "select * from 员工信息 where 代号 =" + Me.代号.Text + ""
rs.Open strsql, con, 1, adLockBatchOptimistic 这一行显示有错
If rs.RecordCount > 0 Then
Form.AllowEdits = True
Me.部门.SetFocus
Me.部门.Text = rs("部门")
Me.姓名.SetFocus
Me.姓名.Text = rs("姓名")
End If
End Sub
Private Sub 代号_LostFocus()
Dim con As Object
Dim rs As New ADODB.Recordset
Set con = Application.CurrentProject.Connection
strsql = "select * from 员工信息 where 代号 =" + Me.代号.Text + ""
rs.Open strsql, con, 1, adLockBatchOptimistic 这一行显示有错
If rs.RecordCount > 0 Then
Form.AllowEdits = True
Me.部门.SetFocus
Me.部门.Text = rs("部门")
Me.姓名.SetFocus
Me.姓名.Text = rs("姓名")
End If
End Sub
很明显
strsql = "select * from 员工信息 where 代号 =" + Me.代号.Text + ""
有问题 我不搞数据库不知道语法 你自己检查下 或许 漏了引号什么的。
strsql = "select * from 员工信息 where 代号 ="" + Me.代号.Text + """