求助大师:在SHEET2可以查在SHEET3 不能用

凯哥003 · 发表于 2018-2-28 10:03

本帖最后由凯哥003 于 2018-2-28 10:29 编辑

在SHEET2设查询可以，为何同样查询在SHEET3不能用，请大师帮忙，谢谢！

凯哥003 · 发表于 2018-2-28 11:16

本帖最后由凯哥003 于 2018-2-28 23:27 编辑

感谢大师:在SHEET2可以查在SHEET3 不能用

凯哥003 · 发表于 2018-2-28 13:02

求助大家的帮忙,谢谢!

蓝桥玄霜 · 发表于 2018-2-28 13:46

Private Sub CommandButton1_Click()
Dim cnn As Object, SQL$
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.ACE.Oledb.12.0;data source=" & ThisWorkbook.Path & "" & "数据.accdb" '连接数据库
SQL = "select * from 登记表 where 姓名='" & [a1].Value & "'"
With Sheets("Sheet3")
.UsedRange.Offset(1).ClearContents
.Range("a2").CopyFromRecordset cnn.Execute(SQL)
.Activate
End With
cnn.Close
Set cnn = Nothing
End Sub

复制代码

凯哥003 · 发表于 2018-2-28 14:19

蓝桥玄霜发表于 2018-2-28 13:46

版主好历害.技术顶顶的

凯哥003 · 发表于 2018-2-28 14:30

蓝桥玄霜发表于 2018-2-28 13:46

老师:如果在SHEET1中的:B2输入(职工号)如何往回查询,并修改再更新原数据位置

凯哥003 · 发表于 2018-2-28 14:46

本帖最后由凯哥003 于 2018-2-28 15:40 编辑

蓝桥玄霜发表于 2018-2-28 13:46

老师:如果在SHEET1中的:B2输入(职工号)如何往回查询,并修改再更新原数据位置

急支糖浆 · 发表于 2018-2-28 14:51

通讯地址写错了，写成“通迅”了，应该为通讯

凯哥003 · 发表于 2018-2-28 15:04

急支糖浆发表于 2018-2-28 14:51
通讯地址写错了，写成“通迅”了，应该为通讯

谢谢你!我老人家眼花了,如果在SHEET1表中B2输入(职工号)往回原表格式调取查询,并修改更新在原数据库位置如何写代码

急支糖浆 · 发表于 2018-2-28 15:13

凯哥003 发表于 2018-2-28 15:04
谢谢你!我老人家眼花了,如果在SHEET1表中B2输入(职工号)往回原表格式调取查询,并修改更新在原数据库位置 ...

抱歉，第一我没明白你的意思。第二我刚接触SQL和ACCESS

		自动登录	找回密码
密码			免费注册

[已解决] 求助大师:在SHEET2可以查在SHEET3 不能用