sql 与 vba 方面的问题, 请高手帮解决一下，谢谢了

富之宝

出入记录.rar (8.27 KB, 下载次数: 12)

2013-11-5 19:35 上传

点击文件名下载附件

Sub chaxun1()
       Dim bm As Variant
        bm = Worksheets("查询").Range("c1")

        With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data

Source=C:\Documents and Settings\Administrator\桌面\出入记录.xls;Mode=" _
        , _
        "Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System

database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Passw" _
        , _
        "ord="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet

OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tran" _
        , _
        "sactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System

Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:" _
        , _
        "Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica

Repair=False;Jet OLEDB:SFP=False" _
        ), Destination:=Range("A2"))
        .CommandType = xlCmdTable
        .CommandText = Array( _
        "select * from [入库$a:g] where 物料编码=bm by 日期 asc")
        .Name = "出入记录"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "C:\Documents and Settings\Administrator\桌面\出入记录.xls"
        .Refresh BackgroundQuery:=False
        End With
End Sub


想实现查询功能，附件里面有说明，还有就是当查询时会后移怎么解决?

苍海拾贝

启用自动刷新，输入参数回车开始查询，详见附件。请测试。

富之宝

苍海拾贝 发表于 2013-12-2 21:19
启用自动刷新，输入参数回车开始查询，详见附件。请测试。

非常感谢您啊，但是我还不知道你是怎么做的，我还没见过,我用时出现以上的问题，还不会修改，不知能否向你学习一下吗

苍海拾贝

富之宝 发表于 2013-12-5 18:39
非常感谢您啊，但是我还不知道你是怎么做的，我还没见过,我用时出现以上的问题，还不会修改，不知能否向 ...

做个演示视频，供参考。文件路径调整一下即可。 演示视频.rar (1.27 MB, 下载次数: 23)

2013-12-5 20:54 上传

点击文件名下载附件

富之宝

苍海拾贝 发表于 2013-12-5 20:54
做个演示视频，供参考。文件路径调整一下即可。

专家,真是太感谢你了!!! 以后有问题还向你请教老师{:soso_e179:}

富之宝

苍海拾贝 发表于 2013-12-2 21:19
启用自动刷新，输入参数回车开始查询，详见附件。请测试。

不知能否再帮个忙呢？地址为
http://club.excelhome.net/forum. ... =1078722&extra=

苍海拾贝

富之宝 发表于 2013-12-8 16:54
不知能否再帮个忙呢？地址为
http://club.excelhome.net/forum.php?mod=viewthread&tid=1078722&extra=

好的                          

富之宝

苍海拾贝 发表于 2013-12-8 18:29
好的

大哥，我想请请教你一个问题呀， 地址如下，能否帮我解决一下呢？先谢谢了
http://club.excelhome.net/thread-1133328-1-1.html

苍海拾贝

不好意思，刚看到，我看看能否帮上你