CORRECÇÃO: "não é possível salvar" erro ocorre ao tentar salvar um conjunto de registros ADO para um arquivo

Passos para reproduzir o problema

1. Inicie o Microsoft Visual Basic 6.0.
2. No menu arquivo , clique em New Project . Na caixa de diálogo New Project , clique em Standard Exe . Por padrão, é criado o Form1.
3. No menu Project , clique em referências . Clique em Microsoft ActiveX Data Objects 2.7 Library 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 "YourSQLServer" na seqüência de conexão pelo nome do SQL Server.
7. Salve o projeto na pasta C:\Arquivos de Programas\Test .
8. No menu Executar , clique em Iniciar .
9. Clique em RecordSet persistência e em seguida, clique em Recarregar dados . Não ocorre nenhum erro.
10. Faça logon no computador como um usuário não administrador (por padrão, a não administradores não têm acesso de gravação para C:\Program Files\ pasta).
11. Execute novamente o projeto. Você receber a mensagem de erro descrita na seção "Sintomas".

Voltar para o início