求助：单击窗体中按钮，根据关键字直接读取ACCESS库内容，并全屏显示某一条记录 - 编程论坛

#2

apull2013-07-28 00:08

事件贴出来看看。

#3

wangshixin2013-07-28 00:32

只有本站会员才能查看附件，请登录

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

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

#4

LK8682013-07-28 11:15

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

#5

wangshixin2013-07-28 12:37

不好意思，可能是我表达错误，第二张图有误导，刚删除。
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表，将符合条件的记录全屏显示出来

#6

apull2013-07-28 15:40

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

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

#7

wangshixin2013-07-28 20:25

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

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 编辑 ]

#8

LK8682013-07-29 08:19

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

#9

Artless2013-07-29 11:52

不好意思，可能是我表达错误，第二张图有误导，刚删除。
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表，将符合条件的记录全屏显示出来Me.Adodc1.RecordSource = "select * from chuji where id =‘"text1.text"'"
这句有何错误，请赐教（如果将id =‘"text1.text"改为id =2）就可正常执行

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

#10

wangshixin2013-07-30 13:22

回复 9楼 Artless

"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 编辑 ]