Microsoft.Ass.OLEDB.12.0 Aktuelle Recordset unterstützt keine Aktualisierung-Fehler empfangen, wenn Sie versuchen zu aktualisieren, Zugriff

Ich habe eine ASP Seite, wo ein Benutzer laden Sie eine excel-Datei. Nachdem die Datei erfolgreich hochgeladen ist, will ich die Zeilen, die in der REGION Registerkarte und legen Sie Sie in eine MS-Access-2007-Tabelle. Unten ist der code, den ich verwendet, und ich bin immer diese Fehlermeldung. Kann ich den recordset aktualisieren mit dem Microsoft.Ass.OLEB.12.0 Anbieter? Gibt es einen besseren Weg, dies zu tun?
ADODB.Recordset-Fehler '800a0cb3'

Aktuelle Recordset unterstützt keine Aktualisierung. Dies kann eine Einschränkung des providers oder des gewählten locktypes.

Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & strExcelFile & ";" & _
                    "Extended Properties=" &  Chr(34) & "Excel 12.0 Xml;HDR=Yes;IMEX=1" & Chr(34) & ";" 
Response.Write "Excel connection opened<BR>"

' Load ADO Recordset with Excel Data
Set rstExcel = Server.CreateObject("ADODB.Recordset")
rstExcel.Open "Select * from [REGION$]", cnnExcel, adOpenStatic 
Response.Write "Excel Recordset loaded<BR>"

' Open Access Connection
Set cnnAccess = Server.CreateObject("ADODB.Connection")
cnnAccess.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strAccessFile & ";Persist Security Info=False;" 
Response.Write "Access connection opened<BR>"
Const adOpenStatic = 1
Const adLockOptimistic = 3
Const adCmdText = &H0001
' Load ADO Recordset with Access Data
Set rstAccess = Server.CreateObject("ADODB.Recordset")
rstAccess.Open "REGION", cnnAccess, adOpenStatic, adLockOptimistic, adCmdTable
Response.Write "Access Recordset loaded<BR>"

' Synchronize Recordsets and Batch Update
Do Until rstExcel.EOF

        ' .AddNew
        For each field in rstExcel.Fields
            If field.Name = "% Over/Under" Then
                rstAccess.AddNew field.Name,0
            Else
                rstAccess.AddNew field.Name,field.Value
            End If
        Next

    rstExcel.MoveNext
Loop
rstAccess.UpdateBatch

Ich habe gerade bemerkt, dass man "server". Haben Sie überprüft, die Berechtigungen auf den Ordner?
Auch ist es Ihre Absicht, dass Sie sollten einen neuen Datensatz für jedes Feld? Wenn nicht, müssen Sie eine AddNew -, Feld-Schleife und eine update. Was immer Sie auch tun, loszuwerden, BatchUpdate. Ich glaube nicht, dass Sie tut, was Sie denken.

InformationsquelleAutor shresthaal | 2012-07-25

Danke Hans, Tim und Remou. Ich folgte diesem Beispiel Mit INSERT INTO schreiben von Daten in access-Datenbank

  ' Open Access Connection
Set cnnAccess = Server.CreateObject("ADODB.Connection")
cnnAccess.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strAccessFilePath & ";Persist Security Info=False;"   
cnnAccess.Execute "DELETE * FROM REGION"
'Open Excel Connection
Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & strExcelFilePath & ";" & _
                    "Extended Properties=" &  Chr(34) & "Excel 12.0 Xml;HDR=Yes;IMEX=1" & Chr(34) & ";" 
Response.Write "Excel connection opened<BR>"
cnnExcel.Execute "INSERT INTO REGION IN 'C:\inetpub\wwwroot\FolderName\App_Data\AccessFileName.accdb' " & _
                "Select col1,col2,col3,col4" & _
               "from [REGION$]"


' Clean up    
cnnExcel.Close
Set cnnExcel = Nothing
cnnAccess.Close
Set cnnAccess = Nothing

Schön. Ich hatte keine Ahnung, dass IN möglich war...

InformationsquelleAutor shresthaal

1

Müssen Sie einen anderen cursor-Typ - adOpenStatic unterstützt keine updates.

http://www.w3schools.com/ado/prop_rs_cursortype.asp
- Ja. Jedoch wird es immer noch nicht richtig funktioniert mit dieser Schleife, die einen neuen Datensatz hinzufügen, für jedes Feld und fällt auf rstAccess.UpdateBatch da die Datensätze sind alreadt Hinzugefügt.
- Vereinbart - gibt es möglicherweise andere Probleme gibt. Sie beachten, die Sie nicht brauchen, update, batch, wenn Sie die parametrisierte version von AddNew.
InformationsquelleAutor Tim Williams
1

Sagte Sie, " ... ich möchte die Zeilen, die in der REGION Registerkarte und legen Sie Sie in eine MS-Access-2007 Tabelle".

Obwohl ich nicht vollständig verstehen, Ihre Beispielcode, Sie scheinen sich zu öffnen ein recordset für die Tabelle und eine für die Excel-Arbeitsblatt, dann bewegt sich durch die Excel-recordset und einfügen (etwas für) jede Zeile in der Access-recordset.

Wenn der Access recordset wurde bearbeitbar (also nicht nur Lesen), könnten Sie einfügen etwas. Aber selbst wenn Sie es geschafft habe, würden Sie immer noch Links mit einer RBAR (Zeile Durch Quälende Zeile) Ansatz. Es wäre besser, verwenden Sie einen set-basierten Ansatz, so dass Sie alle importieren das Arbeitsblatt Zeilen als eine einzelne operation.

Hier ist eine Access-Abfrage, die nachahmt, was ich denke, Sie versuchen zu tun. Meine Region Arbeitsblatt hat 4 Spalten von Daten: % Over/Under; fld2; fld3; und fld4. Der Zugang REGION Tabelle hat die gleichen 4 Spalten mit kompatiblen Datentypen.
```
INSERT INTO REGION ( [% Over/Under], fld2, fld3, fld4 )
SELECT 0 AS [% Over/Under], fld2, fld3, fld4
FROM [Excel 12.0 Xml;HDR=Yes;IMEX=1;DATABASE=C:\share\Access\regions.xlsx].[Region$];
```
Wenn Sie können eine ähnliche Abfrage arbeiten in Ihrer Access-Datenbank, ändern Sie Ihre ASP-zum öffnen der ADO-Verbindung zu Ihrem Access-db, dann nutzen Sie die Verbindung zu Execute Ihre INSERT - Anweisung. ASP-code wäre viel einfacher als das, was Sie jetzt haben, und sollten die arbeiten deutlich schneller.
- stackoverflow.com/questions/9103867/...
- Hans aus irgendeinem Grund kann ich nur 1 upvote. Wie gebe ich mehr, weil ich noch nicht erforscht haben, die Sie EINFÜGEN, wenn Sie hatte nicht vorgeschlagen.
- Sie können nur upvote eine Antwort einmal. Ich bin froh, dass mein Vorschlag war hilfreich, und ich danke Ihnen für Ihre Stimme. Eine Stimme ist in Ordnung. 🙂
InformationsquelleAutor HansUp

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.