使用“插入到”时关闭对象时，不允许进行操作

问题描述

希望您能对此有所帮助。尝试执行Operation is not allowed when the object is closed查询但在Insert into中工作时出现错误Select。我正在使用vb.net btw（Microsoft Visual Studio 2010）。

我使用以下语句在模块中打开数据库：

On Error GoTo Connprob

        DARHS_Connect = False

        conEmail = New ADODB.Connection
        conEmail.ConnectionString = "Provider=sqlOLEDB;Driver={sql Server Native Client 10.0};Server=" + Server + ";Database=DatabaseName;Uid=" & User& ";Pwd=" & Password & ";"
        conEmail.open()

        DARHS_Connect = True
Exit Function

然后是没有错误的代码：

rsX = New ADODB.Recordset
        EmQuery = "SELECT * FROM TABLE_NAME WHERE COLUMN1 = '" & Recipient & "' AND COLUMN2 = '1'"
        rsX.Open(EmQuery,conEmail,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockReadOnly)

        If Not rsX.EOF Then
            do while Not rsX.EOF

                EmQuery = "INSERT INTO TABLE(COLUMN1,COLUMN2,COLUMN3,COLUMN4) VALUES"
                EmQuery = EmQuery & "('" & RQuote(rsX.Fields.Item("EMAIL").Value) & "',"
                EmQuery = EmQuery & "'" & Message & "',"
                EmQuery = EmQuery & "'" & ServerDate & "'"
                EmQuery = EmQuery & "'PCO')"
                conEmail.Execute(EmQuery)

                rsX.MoveNext()
            Loop

        End If

这是给我错误的代码：

EmQuery = "INSERT INTO TABLE_NAME(COLUMN1,COLUMN4) VALUES"
        EmQuery = EmQuery & "('" & Recipient & "',"
        EmQuery = EmQuery & "'" & Message & "',"
        EmQuery = EmQuery & "'" & ServerDate & "',"
        EmQuery = EmQuery & "'PCO')"
        conEmail.Execute(EmQuery)

希望你们可以帮助我，因为这是我项目的障碍。 预先感谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）