小编Dou*_*ats的帖子

AttributeError:模块“lib”没有属性“X509_V_FLAG_CB_ISSUER_CHECK”

最近,由于可执行文件损坏,我不得不重新安装 Python。这使得我们的 Python 脚本之一崩溃并出现以下错误:

\n
\n

AttributeError:模块“lib”没有属性“X509_V_FLAG_CB_ISSUER_CHECK”

\n
\n

导致它爆炸的代码行是:

\n
from apiclient.discovery import build\n
Run Code Online (Sandbox Code Playgroud)\n

我尝试 pip 卸载和 pip 升级google-api-python-client,但我可以 \xe2\x80\x99t 似乎找到有关此特定错误的任何信息。

\n

无论如何,我正在尝试通过 API 调用获取Google Analytics信息。

\n

以下是命令提示符错误的输出:

\n
from apiclient.discovery import build\n
Run Code Online (Sandbox Code Playgroud)\n

python google-analytics-api

149
推荐指数
8
解决办法
24万
查看次数

对 VBA 数组的 SQL 查询

正如标题所示,我正在研究将查询内容存储到数组中的不同方法。我一直在尝试不同的方法,但似乎大多数方法的输出都是正确的。这当然是因为我不了解如何正确地完成此操作,因此经过一段时间的实验后,我决定问最好的方法是什么?我将与您分享迄今为止我的一些方法,您可以看到我的调查对我的影响。

Dim MyArray() As Variant
MyArray = rst.GetRows(rst.RecordCount)
Run Code Online (Sandbox Code Playgroud)

这没问题,但它垂直而不是水平存储所有信息。有办法翻转吗?这是通过使用 ReDim 实现的吗?或者这是因为行存储在数组维度中,因此它们自然垂直?

        Index = 0
        Do While Not rst.EOF
                ReDim Preserve MyArray(1, Index)
                MyArray(0, Index) = CStr(rst.Fields(0).Value)

                'Safety check to make sure the value isn't null (was having problems before)
                If rst.Fields(1).Value <> vbNullString Then
                    MyArray(1, Index) = CStr(rst.Fields(1).Value)
                End If
            Index = Index + 1
            rst.MoveNext
        Loop

        sheet.Range("a1:ba10000").Value = MyArray
Run Code Online (Sandbox Code Playgroud)

这再次垂直存储内容,但没有正确输出记录,实际上只提取每个记录的前两列信息,其余的输出为#N/A#。我认为我更接近我原来的方法,但我决定尝试可能会让我到达某个地方。

你们有什么建议或者能给我指出正确的方向吗?

sql arrays excel vba recordset

5
推荐指数
1
解决办法
2万
查看次数

我的代码中断栏中的黑旗是什么?

这是什么?我用手指指着一个组合键,我不知道它是什么。

我知道这是一个愚蠢的问题,但我尝试对其进行谷歌搜索,但没有任何反应。也许我不知道该如何用Google自己回答?

在此处输入图片说明

sql-server

2
推荐指数
1
解决办法
32
查看次数

Excel中的多个If条件

我显然有一个语法问题,想知道我在哪里神奇地忽略了这一点.厌倦了试图找到答案所以我决定问.

代码只是想检查是否X不是三个特定变量中的任何一个,如果不是,则P = 3其他P将等于12基于组合框结果.

我尝试使用Or语句而没有运气.

 If X <> 15 Then
     P = "3"
 Else
     If X <> 18 Then
         P = "3"
     End If
         Else
             If X <> 20 Then
                 P = "3"
             End If
 ElseIf ComboBox <> "Other Condition" Then
     P = 1
     Else: P = 2
 End If
Run Code Online (Sandbox Code Playgroud)

excel vba if-statement

0
推荐指数
1
解决办法
5万
查看次数