小编San*_*per的帖子

当我执行此函数时,我得到一个运行时错误,"操作必须使用可更新的查询".是什么造成的？

Function updateConfigFile(strQuery As String)

Dim cnn As ADODB.Connection         
Dim objMyCmd As ADODB.Command

Set cnn = New ADODB.Connection
Set objMyCmd = New ADODB.Command

constConfigFile = "MyWorkbookName"

With cnn

    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ActiveWorkbook.Path & constConfigFile & ";" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    .Open

End With

strQuery = "update [test$] Set [test]='Hello' WHERE [Test]='h'"

objMyCmd.CommandType = adCmdText
objMyCmd.CommandText = strQuery
objMyCmd.ActiveConnection = cnn

objMyCmd.Execute


Set objMyCmd = Nothing
Set cnn = Nothing


End Function

我正在使用WordPress 3.8.1.我想使用此函数来使用粘性标头

<script>
$(document).ready(function() {
    var $header = $("header"),
        $clone = $header.before($header.clone().addClass("clone"));

    $(window).on("scroll", function() {
        var fromTop = $(window).scrollTop();
        console.log(fromTop);
        $("body").toggleClass("down", (fromTop > 200));
    });
});        
</script>

但它不适合我,我不知道为什么.我知道jQuery是与我的WordPress共享的,因为Flexslider 2现在工作正常.

我目前有一个包含1列和多行的Excel文件.该列包含名字,姓氏和可能的中间名(例如:John Abe Smith).我正在写一个有1个文本框和1个按钮的宏.在excel表中我有几个名字:

Column A
--------
John Abe Smith
Cindy Troll Bee
Randy Row
Joe Jumbo
Katie Kool Kat

我想编写一个宏,当我在文本框中键入内容并单击按钮时,它将在此列中查找名称.如果找到它,那么只需在消息框中说"找到"即可.

我想在搜索名字时使用通配符"*",但我不知道如何.我目前有一些像这样的代码,但通配符不起作用:

Private Sub search_Click()
    For firstloop = 3 To 10
        If Range("G" & firstloop).Text = name.Text & "*" Then
            MsgBox "Found!"
            Exit Sub
        Else
            MsgBox "NOT FOUND"
        End If
    Next
End Sub

例如,假设我在文本框中输入" Troll ",然后单击按钮.我希望循环遍历列以查找包含"Troll"的任何内容.示例数据的结果就是这样Cindy Troll Bee.

我怎么能这样做？

我正在编写一个脚本,将各种类型的数据插入到工作表(ws)中.

Dim ws as Worksheet
Dim Index_Array(0 to 5) As Variant
Dim i as Integer

Set ws = ActiveSheet

Index_Array(0) = "This is some text."
Index_Array(1) = "This is also some text."
Index_Array(2) = "22004"
Index_Array(3) = 42
Index_Array(4) = 2.34657
Index_Array(5) = "=55"       'Yes, this should in fact be a string, not a formula or a number

For i = LBound(Index_Array) To UBound(Index_Array)
    ws.Cells(1, i + 1).Value = Index_Array(i)
Next i

问题是当我尝试将字符串=55插入单元格A5时,它给了我

运行时错误1004:应用程序定义的错误或对象定义的错误.

除了在这种情况下,脚本完全正常工作,我相信这是因为它试图使它成为一个公式.我不想强迫一切都以一个'角色开始,因为并非一切都是一个字符串.有一种简单的方法可以让Excel接受以等号作为单元格值开头的字符串吗？

我正在制作带有4个UIBezierArcs的Simon Says风格的车轮。我不能只制作具有不同颜色和白色部分的单个弧，因为我需要能够识别出按下了哪个弧。

但是，当我将圆弧放置在一个圆中时，内部边缘之间的白色空间小于外部边缘之间的白色空间，并使这些空间看起来像楔形而不是均匀的矩形。

如何调整外弧边缘，使其开始/结束角度长于内弧边缘？

private struct Constants {
    static let width: CGFloat = 115;
    static let height: CGFloat = 230;
}

override func draw(_ rect: CGRect) {
    let center = CGPoint(x: bounds.width / 2, y: bounds.height / 2)

    let radius: CGFloat = bounds.height

    let startAngle: CGFloat = 0 + .pi / 44
    let endAngle: CGFloat = .pi / 2 - .pi / 44

    shapePath = UIBezierPath(arcCenter: center,
                            radius: radius/2 - CGFloat(Constants.width/2),
                            startAngle: startAngle,
                            endAngle: endAngle,
                            clockwise: true)

    shapePath.lineWidth = Constants.width …

当导入选项卡中没有文件路径时，此代码会产生错误。因此，我包含On Error Resume Next为了运行下一个循环。但是，在On Error Resume Next代码继续运行复制操作之后，这弄乱了我要复制到的选项卡。

我发现解决方案是 On Error 代码应该进入下一个循环而不是继续操作。有没有人对如何更改错误处理有任何意见？

Sub ImportBS()

Dim filePath As String
Dim SourceWb As Workbook
Dim TargetWb As Workbook
Dim Cell As Range
Dim i As Integer
Dim k As Integer
Dim Lastrow As Long


'SourceWb - Workbook were data is copied from
'TargetWb - Workbook were data is copied to and links are stored

Application.ScreenUpdating = False

Set TargetWb = Application.Workbooks("APC Refi Tracker.xlsb")
Lastrow = TargetWb.Sheets("Import").Range("F100").End(xlUp).Row - 6


    For …

我试图将表的记录提取到csv文件中.SQL查询就像这样简单

SELECT * FROM MY_TABLE_NAME

它给出了一个假设的记录集

A B C D
E F G H
I J K L

我想要的是一个记录集,其中所有列连接在一起,例如

A, B, C, D
E, F, G, H
I, J, K, L

我接触过LISTAGG,但我不想汇总记录.我想维护每个单独的行条目的结构,只用分隔符分隔.有什么想法吗？

编辑:

我需要将查询应用于多个表,我不知道列数是多少.此外,表结构会定期更改,我需要它足够灵活以解决这个问题.

我有一张员工表。请在下面找到表结构和数据。

我想找到最高工资和最低工资以及员工姓名。

预期输出将是：

为了找出最高工资以及员工姓名，我编写了以下查询：

SELECT name,salary FROM  employee where salary
= (select max(salary) from employee);

为了找出最低工资以及员工姓名，我编写了以下查询：

SELECT name,salary FROM  employee where salary
= (select min(salary) from employee);

但我无法合并这两个查询。

有人可以指导我构建 SQL 查询，该查询将返回最高工资和最低工资以及员工姓名吗？

我需要在几分钟内找到两个日期之间的差异.这是我一直在使用的select语句:

 select date ('05.04.2017  11:12:00') - date('now');

它正在返回,-4 mins -21 secs但我想看到只有4分钟.我在参考指南中找不到答案,不知道如何以我需要的格式显示它？

我在使用flask时遇到了问题，现在我想知道是否有一种方法可以在没有Python虚拟环境的情况下使用flask。为什么我们需要带烧瓶的虚拟环境？

$ sudo pip install virtualenv

$ sudo apt-get install python-virtualenv
$ virtualenv venv
$ . venv/bin/activate
$ venv\Scripts\activate

我在谷歌上搜索，找不到一个好的答案！如果有一种方法可以在没有虚拟环境的情况下使用烧瓶，请告诉我如何使用？