Tag: sql

Power Query Mstring到date时间转换

我试图调用一个可以为空的date时间值的存储过程，但我正在用这个循环运行。 在下面你可以看到我试过的所有组合以及相关的错误： FromDate = Excel.CurrentWorkbook(){[Name="FromDate"]}[Content]{0}[Column1], FromDateQuery = if FromDate = "" then "" else "@FromDate = '"& DateTime.From(FromDate)&"',", Expression.Error: We cannot apply operator & to types Text and DateTime. Details: Operator=& Left=@FromDate = ' Right=15/03/2017 00:00:00 如果我按照说明，并删除＆build议我得到以下内容：Expression.SyntaxError：令牌逗号预计。 试过把它作为一个string传递： FromDate = Excel.CurrentWorkbook(){[Name="FromDate"]}[Content]{0}[Column1], FromDateQuery = if FromDate = "" then "" else "@FromDate = '"& Text.From(FromDate) &"',", […]

如何根据SAS / SQL中的行值进行条件计数？

重新上传，因为我上一篇文章有​​一些问题，我不知道我们应该发布样本数据。 我对SAS相当陌生，而且我有一个问题，我知道如何在Excel中解决问题，而不是SAS。 但是，数据集太大，无法在Excel中合理使用。 我有四个variables：id，year_start，groupname，test_score。 样本数据： id year_start group_name test_score 1 19931231 Red 90 1 19941230 Red 89 1 19951231 Red 91 1 19961231 Red 92 2 19930630 Red 85 2 19940629 Red 87 2 19950630 Red 95 3 19950931 Blue 90 3 19960931 Blue 90 4 19930331 Red 95 4 19940331 Red 97 4 19950330 […]

试图使代码更有效和稳定

我有一个程序，这是有效的，我只是觉得它运行速度比它应该慢，我觉得它比它应该更不稳定。 我正在寻找写“更好”的代码，使我的程序更稳定的提示。 我现在正在寻找更好的这部分代码： Private Sub Worksheet_Activate() Application.ScreenUpdating = False 'Removes shapes already there that will be updated by the getWeather function For Each delShape In Shapes If delShape.Type = msoAutoShape Then delShape.Delete Next delShape 'Calls a function to get weather data from a web service Call getWeather("", "Area1") Call getWeather("", "Area2") Call getWeather("", "Area3") 'Starting […]

ADODB插入另一张表

我想创build另一个Excel插入命令与SQL插入命令的logging我可以select与查询，但我不知道如何插入一个logging我的代码是： Function database_add(Urun_barkodu, Urun_kodu, Urun_adi, Urun_kategori) As String Dim cn As Object, rs As Object, output As String, sql As String, Insert As String Dim add_data As String Dim rst As ADODB.Recordset '—Connecting to the Data Source— Set cn = CreateObject("ADODB.Connection") Set rst = New ADODB.Recordset With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" […]

select不同的值一列到多列

我有以下数据：第1列与许多类别和第2列与每个类别的值。 我需要转换或透视这些信息，以显示跨多列的类别组的每个值。 col1 col2 —————- 1 a 2 b 2 c 2 d 3 e 3 f 4 g 4 h 而需要这个结果： col1 col2 col3 col4 col5 col6 ———————————————– 1 a 2 bcd 3 ef 4 gh 每tb1计数（第2列）组（第1列）不超过7个值。 来自tb1第2列的所有值是不同的，大约+50logging。

如何在查询列值上触发一个sql例程并将结果合并到powerquery中

我正在与办公室2016 excel和连接到Oracle分贝 我正在创build一个用于获取订单的文件，零件编号，他们想要的交货date，实际交货date，平均交付时间，平均消耗量以及最终的当前库存水平。 我创build了一个sql来获取订单，date和交货时间。 但是，在数据库中，当前的库存水平是通过input零件号和位置的程序得到的（对于总库存水平可以是“％”）。 现在，我可以build立一个查询，其中包含所有的订单，所有的零件号码，并为每个零件号码运行程序，然后build立我的powerquery，但这似乎是一个可怕的浪费处理能力。 问题是：在过滤了初始源结果之后，是否有方法通过调用过程追加或合并到powerquery中？ 因此，只运行过去一个月订单的过程，或者仅仅过滤零件编号？ 我已经尝试寻找通常的地方，support.office，谷歌和这里，但我的问题是我（绝大多数）只得到如何追加或合并查询结果（这是微不足道的，基本上是一个不需要的情况下的版本）

sqlembedded式查询单元格范围为参数excel 2010

我想通过一个parameter passing一个单元格的范围，但每当我做，是否我做一个列表框或连接所有的值，我的输出是空的。 这里是我的SQL查询：select不同的k.USN，k.is_commodity，k.Import_SKU从ods..SKU k其中k.usn在（？） 我的参数是Sheet1，单元格A9：A69

如果数据匹配，Excel VBA ADODB SQL总和

这是我目前用来生成我的SQLstring，目前正在获取正确的信息的查询。 Dim colArray As Variant: colArray = Array(7,9,6,8,10,11,15,25) szSQL = "SELECT sWIR.[F" & Join(colArray, "], sWIR.[F") & "], sCodes.[F7] FROM [" & SourceWIR & "] sWIR INNER JOIN [" & SourceCODES & "] AS sCodes ON sWIR.[F5] = sCodes.[F6] WHERE sWIR.[F1] =""" & Address & """ ORDER BY sCodes.[F7], sWIR.[F7];" 我需要的是，如果第7,9,6列的数据与第10列的数据相等 下面是完整的代码，我用于ADODB连接 Dim szConnect As […]

检查Excel VBA中的对象是否为空

我无法检查从SQL到Excel导入的值是否为空。 在debugging模式下，我可以认为分配的值是Null，即不是string“Null”。 试过是没有在我的代码示例，但也是空和=“空” 。 这是行如果dbList（2）是没有然​​后在下面的代码，我遇到了麻烦。 如何检查logging集是否为空？ … Dim CmdSP As New ADODB.Command CmdSP.CommandType = adCmdText CmdSP.CommandText = "SELECT FundName, FundId, SRL.Comment FROM XXX SRL ON XXX = XXX ORDER BY FundName ASC" CmdSP.ActiveConnection = dbConn Dim dbList As ADODB.Recordset Set dbList = CmdSP.Execute Dim row As Integer row = 1 While Not dbList.EOF DataStorage.Range("dsFundsTopLeft")(row, 2) […]

Excel – SQL'INSERT INTO'查询语法错误

我正在尝试使用Excel中的数据对MS Access数据库进行简单的插入查询。 我正在使用硬编码值进行testing的参数化查询。 直接在Access中运行查询，但试图通过VBA执行它会导致语法错误。 该查询当前插入Access表中的自动生成的ID以外的每个字段。 Sub Test_SQL() Dim conn As ADODB.Connection Dim cmd As ADODB.Command Dim result Dim id As Integer Dim year As Integer Dim month As String Dim combocode As String Dim credamt As Double Dim qty As Integer Dim itemcode As String Dim sepbundleamt As Double Dim prodname As String '*********query variables******************** […]