Question

多年来，我已经建立了大量的数据工具，用于读取as400上的写入和更新数据（通常是批量更新）在大约2014年之后，所有使用rs.fields（索引）方法提取数据的人现在都崩溃了，但我在网上看到的很少。一个非常简单的例子如下：

Function UserconnArray() As Boolean
    Dim CommString As String
    s = "username"
    t = "password"    
    CommString = "select field from table"

    Dim wb As String
    wb = "SystemNAme or IP"

    Dim c As New ADODB.Connection
    Dim cm As New ADODB.Command
    On Error GoTo endpgm
    c.Open "Driver=Client Access ODBC Driver (32 bit);" & _
    "SYSTEM=" & wb & ";QueryTimeOut=0;UID=" & s & ";PWD=" & t & ";" & _
    "BLOCKFETCH=0;"
    cm.ActiveConnection = c
    cm.CommandText = CommString


    Dim rs As ADODB.Recordset
    Set rs = cm.Execute()
    If rs.EOF Then GoTo endpgm


    If Not rs.EOF Then

    Cells(2, 2).Value = rs.Fields(0)
    UserconnArray = True

    End If

    c.Close

    Exit Function

endpgm:

'no data or error routine

UserconnArray = False

End Function

任何人都有任何想法改变了这种类型的代码崩溃？哦，我已经将微软的活动对象放入其中，正如我所说，我有数百个这些都在工作到2014年（ish）

提前感谢您提供任何帮助

vba崩溃旧数据访问方法

0 个答案: