USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Fazendo uma cópia de um Recordset ADO
Postada em 24/8/2003 por Ð@®l@n            
Vamos mostrar como fazer uma cópia de um recordset ADO usando código. A dica é salvar os registros do recordset no formato XML e então abrir um segundo recordset usando o arquivo gerado.

Vamos usar uma conexão com o SQL Server 2000 e abrir  a tabela Authors do banco de dados Pubs. A seguir vamos filtrar alguns autores, usando um critério, para em seguida fazer a cópia deste recordset gerado  usando ADO Stream . Depois é só abrir um novo recordset e abrir o arquivo gerado.

Private Sub Command1_Click()
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim oStm As ADODB.Stream
Dim oRs2 As ADODB.Recordset

' Cria e abre uma nova conexão
Set oConn = New ADODB.Connection
oConn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=pubs;User ID=sa;Password=;"

' Cria e abre um novo recordset baseado na tabela Authors do banco de dados Pubs
Set oRs = New ADODB.Recordset
oRs.CursorLocation = adUseClient
oRs.Open "Select * From authors", oConn, adOpenStatic, adLockBatchOptimistic, adCmdText
Label5.Caption = oRs.RecordCount

' Filtra e exibe somente os autores com o criterio - state = 'CA'
oRs.Filter = "state = 'CA'"
Label6.Caption = oRs.RecordCount

' Salva os registros filtrados em um ADO Stream
Set oStm = New ADODB.Stream
oStm.Open
oRs.Save oStm, adPersistXML

' Cria um novo Recordset baseado no recordset inicial(via Stream)
Set oRs2 = New ADODB.Recordset
oRs2.Open oStm
Label1.Caption = oRs2.RecordCount  
End Sub

fonte:www.macoratti.net
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página