数据库类型问题,该怎么改呢

mingnianjinri 2004-05-05 06:06:20
Private Sub Command2_Click()
Dim msg
msg = Trim(InputBox("请输入" + Combo1.Text, "查询"))
If Combo1.Text = "职工编号" Then
msg = "职工编号 = " & msg
End If
If Combo1.Text = "姓名" Then
msg = "姓名 = " & msg
End If
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
End Sub
按姓名查找时类型不匹配,我的数据库中的姓名是用Text型,该怎么改, 谢谢!

...全文
7 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wumy_ld 2004-05-05
字符型前后需要加单引号
  • 打赏
  • 举报
回复
wumylove1234 2004-05-05
msg = "姓名 =' " & msg & "'"
  • 打赏
  • 举报
回复
daisy8675 2004-05-05
select * from Name='"& text1.text &"'
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1190

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-05 06:06
社区公告
暂无公告