|
|
|
|
|
|
|
|
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"
|
|
|
|
|
