小编Tom*_*Tom的帖子

我正在尝试将我的网站停靠.我已经启动并运行了Nginx和PHP,除了我无法连接到数据库之外它正在查找.当页面加载时我得到错误:

Fatal error: Uncaught Error: Class 'MySQLi' not found in /private/conn.php:8 Stack trace: #0 /public_html/index.php(2): require() #1 {main} thrown in /private/conn.php on line 8

我在第8行的连接线是:

$db = new mysqli("$host", "$user", "$pass", "$db", "$port");

现在这在我的旧设置上工作得很好但是因为转移到新的并安装php7.1.5我无法让它运行.现在,我没有使用mysqlnd所以这可能是我的误解,但mysqlnd包括mysqli驱动程序.

phpinfo的输出:

我该如何运行？或者我现在应该使用不同的驱动程序？

我在Workbook_Open()上的VBA中设置一个公共字典.我想在电子表格中创建的任何模块中访问此词典中的项目.

我的代码ThisWorkbook是:

Option Explicit
Public Dic As Scripting.Dictionary

Private Sub Workbook_Open()
    Set Dic = New Scripting.Dictionary
    Dic.Add Key:="cat", item:="Database"
    Dic.Add Key:="pwd", item:="Password"
    Dic.Add Key:="col", item:="Server"  
End Sub

当我转到任何模块并使用该msgbox函数调用项目时,它不起作用:

MsgBox (Dic("col"))

任何提示请如何使这项工作？

我们的想法是在电子表格的开头设置这个字典,并且在任何后续模块中都需要访问它.

干杯

我想知道是否有人可以帮助我。我正在尝试从 sql 表返回的记录集填充公共字典。

除了一部分外，一切似乎都很好。我不知道它是否没有正确计算字典中的键数，或者它们没有被正确输入，但是无论出于何种原因，当我尝试显示总计数时，它总是只返回 1（应该是大约 15) 并且只显示第一行详细信息。

任何人都可以帮忙吗？

Public UserList As New scripting.Dictionary
Sub UserDL()
Dim USList As Range
Dim USArr(0 To 11) As Variant

Call ConnecttoDB

Set Cmd = New adodb.Command: Set rs = New adodb.Recordset

With Cmd
    .CommandTimeout = 30
    .ActiveConnection = cn
    .CommandText = "CSLL.DLUsers"

    Set rs = .Execute
End With

With rs
    If Not .BOF And Not .EOF Then
        .MoveLast
        .MoveFirst
        While (Not .EOF)
            For i = 1 To 11
                USArr(i - 1) = rs(i)
            Next …

大家好,我有一个excel列,其中包含一些数据.问题是,所述列中的每个条目都有不必要的前导换行符,如快照中所示.如何以快速自动的方式删除这些前导换行符？谢谢大家 :)