Fehler Update: "kann nicht speichern" beim Versuch, ein ADO-Recordset in einer Datei speichern

Schritte zum Reproduzieren des Verhaltens

1. Starten Sie Microsoft Visual Basic 6.0.
2. Klicken Sie im Menü Datei auf Neues Projekt . Klicken Sie im Dialogfeld Neues Projekt auf Standard Exe . Standardmäßig wird jetzt Form1 erstellt.
3. Klicken Sie im Menü Projekt auf Verweise . Klicken Sie auf Microsoft ActiveX Data Objects 2.7 Library , und klicken Sie dann auf OK .
4. zwei Befehlsschaltflächen dem Formular hinzufügen.
5. Right-click Form1, click View Code, and then add the following code:

   Option Explicit
   
   Private Sub Command1_Click()
      Dim cn As New Connection
      Dim rs As New Recordset
   
      On Error GoTo ErrHandler
      cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=YourSQLServer"
      cn.Open
         
      ' Open the RecordSet
      rs.Open "SELECT * FROM CUSTOMERS", cn, adOpenDynamic, adLockPessimistic
      
      ' Persist the RecordSet
      rs.Save "C:\Documents and Settings\NonAdminUserName\My Documents\Customer.dat"
      
      Exit Sub
      
   ErrHandler:
      MsgBox "Error : " & Err.Description
   End Sub
   
   Private Sub Command2_Click()
      Dim rs As New ADODB.Recordset
      
      On Error GoTo ErrHandler:
      
      ' Read the Persisted RecordSet
      rs.Open "C:\Documents and Settings\NonAdminUserName\My Documents\Customer.dat"
      
      ' Save the RecordSet
      rs.Save "C:\Documents and Settings\NonAdminUserName\My Documents\Customer.dat"
      
      Exit Sub
   
   ErrHandler:
      MsgBox "Error Number: " & Err.Number
      MsgBox "Error Description: " & Err.Description
   End Sub
   
   Private Sub Form_Load()
      Command1.Caption = "Persist RecordSet"
      Command2.Caption = "Reload Data"
   End Sub
   

6. Ersetzen Sie "YourSQLServer" in der Verbindungszeichenfolge durch den Namen Ihres SQL Servers.
7. Speichern Sie das Projekt im Ordner C:\Programme\Microsoft Files\Test .
8. Klicken Sie im Menü Ausführen auf Starten .
9. Klicken Sie auf RecordSet beibehalten , und Klicken Sie dann auf erneut . Kein Fehler auftritt.
10. Der Computer als Benutzer ohne Administratorrechte anmelden (standardmäßig nicht Administratoren haben keinen Schreibzugriff Zugriff zu C:\Programme\Microsoft Dateien\ Ordner).
11. Führen Sie das Projekt erneut aus. Sie erhalten die Fehlermeldung in den Abschnitt "Problembeschreibung" beschriebene.

Zum Anfang