CORRECÇÃO: 'não é possível guardar' erro ocorre quando tenta guardar um conjunto de registos ADO para um ficheiro

Passos para reproduzir o comportamento

1. Inicie o Microsoft Visual Basic 6.0.
2. No menu ficheiro , clique em novo projecto . Na caixa de diálogo novo projecto , clique em Exe padrão . Por predefinição, é criado o Form1.
3. No menu projecto , clique em References . Clique em Microsoft ActiveX Data Objects Library 2.7 e, em seguida, clique em OK .
4. Adicione dois botões de comando ao formulário.
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. Substitua o nome do SQL Server "YourSQLServer" na cadeia de ligação.
7. Guarde o projecto na pasta C:\Programas\Microsoft Files\Test .
8. No menu Run , clique em Iniciar .
9. Clique em Conjunto de registos Persist e clique em Voltar a carregar dados . Erro não ocorre.
10. Iniciar sessão no computador como um utilizador não administrador (por predefinição, os administradores não não não têm acesso escrita Files\ pasta pasta).
11. Execute novamente o projecto. Receberá a mensagem de erro é descrita na secção "Sintomas".

Voltar ao topo