Início / coding / Perguntas / 77885481
Accepted
Ілля Марко
Asked: 2024-01-26 18:10:43 +0800 CST

Como desconectar o conjunto de registros obtido da tabela local no MS Access?

  • 772

Estou procurando uma maneira de criar um formulário de folha de dados na memória. E gosto da ideia de usar um conjunto de registros desconectado. Mas me deparei com o problema de travamento do aplicativo após reatribuir o conjunto de registros desconectado ao formulário. No stackoverflow, fui solicitado por uma postagem do Sr. HK1 , onde ele escreveu o seguinte:

Se você obtiver o conjunto de registros de uma tabela (mesmo que seja uma tabela vazia) e desconectá-lo, poderá solucionar esse problema.

Mas como fazer isso? No caso de DAO.Recordset recebo o erro: A operação não é suportada para este tipo de objeto. Tentei todos os tipos de conjunto de registros, mas não ajudou:

Sub testDynaset()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenDynaset)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testForwardOnly()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenForwardOnly)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testOpenSnapshot()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenSnapshot)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testOpenTable()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenTable)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

No caso do ADODB.Recordset, não sei como obtê-lo de uma tabela nativa local ou vinculada do MS ACCESS. Por favor ajude!

ms-access

1 respostas

  1. Best Answer

    Você pode usar CurrentProject.Connectionwhich é uma conexão ADO com o banco de dados atual. Ele oferece suporte a tabelas locais e vinculadas.

    Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM MyLocalTable", CurrentProject.Connection, adOpenStatic, adLockReadOnly
Set rs.ActiveConnection = Nothing

    Dependendo do que você deseja fazer exatamente, talvez seja necessário ajustar o conjunto de registros e o tipo de bloqueio. Não sei bem por que você deseja usar um conjunto de registros na memória; um conjunto de registros estático normal já contém uma cópia dos registros na memória e não os buscará novamente.

    O sentimento compartilhado entre a maioria dos desenvolvedores do Access em relação à vinculação de formulários a eles é "não", eles geralmente têm suporte insuficiente para filtros/classificações/atualização/solicitação e, mesmo se você desativá-los, o Access poderá travar (veja também sua postagem vinculada, o autor comenta que mudou para uma tabela temporária).

    • 2

relate perguntas