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:  Trabalhando com Recordsets Dinâmicos - ADO
Postada em 11/8/2003 por d@®l@n            
Digamos que em um programa qualquer você precise usar um recordset para guardar dados em memória... Dados que não serão salvos num banco de dados, ou que poderão vir a ser salvos mais tarde ou não.
Um exemplo disso seria num cadastro de vendas. Enquanto a venda não é salva, os produtos que estão sendo vendidos nessa venda não serão cadastrados. Quando a venda for salva, aí sim isto seria salvo numa tabela de produtos da venda, a qual guarda também o código da venda.
Então veja como fazer:
'No declarations do Form:
Dim RS As ADODB.Recordset

No evento Form_Load:
Private Sub Form_Load()
  Set RS = New ADODB.Recordset
  'Cria os campos necessários
  With RS.Fields
    .Append "Campo1", AdInteger, 100
    .Append "Campo2", adVarChar, 100
  End With
  'No caso, o nome dos campos são "Campo1" e
  '"Campo2".
  '"Campo1" é do tipo numérico inteiro e
  '"Campo1" é do tipo caracter de 100 espaços...

  RS.Open
End Sub
Bom, depois disso você poderá navegar por este Recordset (RS.MoveFirst, RS.MovePrevious, RS.MoveNext, RS.MoveLast), fazer procuras nele com o Find, com o Seek, apagar, adiciona e atualizar registros. Veja:
RS.AddNew
RS![Campo1] = Text1.Text
RS![Campo2] = Text1.Text
RS.Update
Você pode até salvar esse Recordset num arquivo e depois abri-lo novamente, veja:
'Salvando
RS.Save "c:\temp\arq.dat"
 


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