Etapa 6: As alterações são enviadas para o servidor (Tutorial rds)
Se o Recordset objeto for editado, quaisquer alterações (ou seja, linhas adicionadas, alteradas ou excluídas) poderão ser enviadas de volta ao servidor.
Nota
O comportamento padrão do RDS pode ser invocado implicitamente com objetos ADO e o Provedor de Comunicação Remota do Microsoft OLE DB. As consultas podem retornar conjuntos de registros , e conjuntos de registros editados podem atualizar a fonte de dados. Este tutorial não invoca o RDS com objetos do ADO, mas é assim que seria se ele tivesse:
Dim rs as New ADODB.Recordset
rs. "SELECT * FROM Authors","=MS Remote;=Pubs;" & _
=https://yourServer;=SQLOLEDB;"
... ' Edit the Recordset.
rs. ' The equivalent of
...
Parte A Suponha para esse caso que você tenha usado apenas o RDS.DataControl e que um objeto Recordset agora está associado ao RDS.DataControl. O método SubmitChanges atualiza a origem dos dados com qualquer alteração no objeto Recordset, desde que as propriedades Server e Connect ainda estejam definidas.
Sub RDSTutorial6A()
Dim DC as New RDS.DataControl
Dim RS as ADODB.Recordset
DC. = "https://yourServer"
DC. = "DSN=Pubs"
DC. = "SELECT * FROM Authors"
DC.
...
Set RS = DC.
' Edit the Recordset.
...
DC.
...
Parte B Como alternativa, você pode atualizar o servidor com o objeto RDSServer.DataFactory, especificando uma conexão e um objeto Recordset.
Sub RDSTutorial6B()
Dim DS As New RDS.DataSpace
Dim RS As ADODB.Recordset
Dim DC As New RDS.DataControl
Dim DF As Object
Dim blnStatus As Boolean
Set DF = DS.("RDSServer.DataFactory", "https://yourServer")
Set RS = DF. ("DSN=Pubs", "SELECT * FROM Authors")
DC. = RS ' Visual controls can now bind to DC.
' Edit the Recordset.
blnStatus = DF."DSN=Pubs", RS
End Sub
Este é o final do tutorial.
Importante
A partir do Windows 8 e do Windows Server 2012, os componentes do servidor RDS não estão mais incluídos no sistema operacional Windows (consulte o Windows 8 e o Windows Server 2012 Compatibility Cookbook para obter mais detalhes). Os componentes do cliente RDS serão removidos em uma versão futura do Windows. Evite usar esse recurso em um novo trabalho de desenvolvimento e planeje modificar aplicativos que atualmente usam esse recurso. Os aplicativos que usam RDS devem migrar para WCF Data Service.
Consulte Também
provedor de comunicação remota do Microsoft OLE DB (Provedor de Serviços do ADO)
Tutorial de RDS
Tutorial de RDS (VBScript)