单击窗体中按钮，根据关键字直接读取ACCESS库内容，并全屏显示某一条记录。我先做好了窗体文件，也做到了ACCESS数据库文件，只是单击窗体中按钮事件有问题。无法按关键字在屏幕上显示

事件贴出来看看。

我希望点击“打开”后，以文件框中数字和1、2、3级为关键字，直接读取ACCESS库中的文件在屏幕上全屏显示，按钮代码一直不对，现在直接打开的是一张表中所有字段。我希望只打开一条记录。希望大神帮忙，感谢感谢！！ACCESS库名为kt，在d:\vb\下，

[ 本帖最后由 wangshixin 于 2013-7-28 12:25 编辑 ]

Adodc1.RecordSource = "select * from kt where ..... "
Text1 = Adodc1.Recordset.Fields("AAA").Value
Text2 = Adodc1.Recordset.Fields("BBB").Value
Text3 = Adodc1.Recordset.Fields("CCC").Value

不好意思，可能是我表达错误，第二张图有误导，刚删除。
Private Sub Command1_Click()
Dim sqlStr As String
sqlStr = "Select id from chuji where id='" & Text1.Text & "' "  
End Sub
执行后无反应，（ACCESS库名为kt，在d:\vb\下。表名chuji，字段名id、tm ）

希望用关键字id搜索chuji表，将符合条件的记录全屏显示出来

Private Sub Command1_Click()
Dim sqlStr As String
sqlStr = "Select id from chuji where id='" & Text1.Text & "' "  
End Sub

只是定义了一个字符串变量，并复制了。什么都没干啊。
读取access数据库需要data控件， Recordset 对象等等。。
具体看看书，你需要补的东西还很多

确实，本人菜鸟，刚学，希望给能完成操作的代码，非常需要，谢谢了



rivate Sub Command2_Click()
Me.Adodc1.RecordSource = "select * from chuji where id =‘"text1.text"'"
Set Me.Text1.DataSource = Me.Adodc1
Set Me.Text2.DataSource = Me.Adodc1
Me.Text1.DataField = "id"
Me.Text2.DataField = "tm"
End Sub

Me.Adodc1.RecordSource = "select * from chuji where id =‘"text1.text"'"
这句有何错误，请赐教（如果将id =‘"text1.text"改为id =2）就可正常执行

[ 本帖最后由 wangshixin 于 2013-7-28 23:10 编辑 ]

Adodc1.RecordSource = "select * from chuji where id ='"& text1.text &"'"

"Select id from chuji where id='" & Text1.Text & "'"
"Select id from chuji where id=" & val(Text1.Text)  

"Select id from chuji where id='" & Text1.Text & "'"   运行显示“标准表达式中数据类型不匹配”
"Select id from chuji where id=" &val（Text1.Text）    运行显示“实时错误545，不能绑定的字段或数据成员”
id为自动编号，tm为文本

[ 本帖最后由 wangshixin 于 2013-7-30 13:25 编辑 ]