中科新闻网改造手扶拖拉机:要用VB做一个简单的通讯录
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 07:49:43
要求用到数据库,想在里面用一个"查询"的控件,在编代码时,想用find方法,可是为什么不管如何操作都会条出"无此人"的对话框?而且在输入姓名的时候要用微软拼音才可以?代码如下
Private Sub Command4_Click()
Dim mno As String
mno = InputBox$("请输入姓名", "查找窗")
Data1.Recordset.FindFirst "name='" & mon & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此人!", , "查找结果"
End Sub
Private Sub Command4_Click()
Dim mno As String
mno = InputBox$("请输入姓名", "查找窗")
Data1.Recordset.FindFirst "name='" & mon & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此人!", , "查找结果"
End Sub
如果不用ADO，可以使用：
Data1.DatabaseName = 数据库所在路径和名称
Data1.Refresh
Data1.RecordSource = "select * from 表名 where name =" & "'" & mno & "'"
你看看你的参数是否对应一致，mno定mon.
使用VB操作数据库，建议使用ADO来连接和操作数据库。
对啊，怎么不用ADO呢？那么方便。