跪求大侠、数据查询库可以动态更新吗？

李春风

我的数据库查询要动态更新，也就是说当数据源有所加入或更改，查询库也能查询到新加入的数据。是不是修改SQL语句就能实现啊？

以下是现有的语句；

SELECT `欠货汇总$`.类别, `欠货汇总$`.型号, `欠货汇总$`.色号, `欠货汇总$`.现状, `欠货汇总$`.欠货, `欠货汇总$`.尚欠数量, `欠货汇总$`.未排数量, `欠货汇总$`.需补数量, `欠货汇总$`.现工艺段, `欠货汇总$`.工艺数量, `欠货汇总$`.订货人备注, `欠货汇总$`.已排数量
FROM `E:\yasi\a黑蚂蚁总订单汇总.xlsx`.`欠货汇总$` `欠货汇总$`
ORDER BY `欠货汇总$`.欠货, `欠货汇总$`.类别

mn860429

可以定时更新，比如每隔n分钟

李春风

这个更新查询库的更新，数据源更新了他还是查不到

李春风

你说的这个是刷新

mn860429

sql查询的区域是动态的

yrysf

当然可以啦!这就是数据库的好处

李春风

我找到原因了，原来是我存的文件名后援不支持，我存的是带宏的工作簿

zhangjimfu

这点的确很麻烦，一不小心就把连接破坏了！

Private Sub Workbook_Open()
    Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
    strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
    Select Case Left(strCon, 5)
    Case "ODBC;"
        iFlag = "DBQ="
    Case "OLEDB"
        iFlag = "Source="
    Case Else
        Exit Sub
    End Select
    iStr = Split(Split(strCon, iFlag)(1), ";")(0)
    iPath = Left(iStr, InStrRev(iStr, "\") - 1)
    With ActiveSheet.PivotTables(1).PivotCache
        .Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
        .CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
    End With
End Sub

自动修改路径！