1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[VB6]Criar Recordset sem Base de Dados

Discussão em 'Programação' iniciada por Armadillo, 5 de Agosto de 2008. (Respostas: 0; Visualizações: 2915)

Estado do Tópico:
Fechado a novas mensagens.
  1. Armadillo

    Armadillo Folding Member

    Este código surgiu após alguns devaneios meus com recordsets neste tópico.

    Coisa simples, que dá também para usar em vbscript (com as devidas adpatações).
    Para esta coisa funcionar, criem um projecto no VB6, num form qualquer adicionem uma listbox com o nome List1. Precisam também de adicionar a Reference "Micrososft ActiveX Data Objects 2.8 Library" (também deve dar com versões mais antigas que a 2.8).
    Segue o código:

    Código:
    Option Explicit
    
    Private Sub Form_Load()
    Dim baralho As New ADODB.Recordset
    
    
    'criar [I]Tabela[/I] Baralho
    Set baralho.ActiveConnection = Nothing
    baralho.Fields.Append "carta", adChar, 10, adFldRowID
    baralho.CursorType = adOpenKeyset
    baralho.LockType = adLockOptimistic
    baralho.Open
    
    'carregar [I]tabela[/I] com cartas
    
    Dim naipe As Integer
    Dim num_carta As Integer
    
    
    For naipe = 1 To 4
        For num_carta = 1 To 13
            baralho.AddNew
            baralho.Fields("carta").Value = naipe & "-" & num_carta
            baralho.Update
        Next
    Next
    
    
    baralho.MoveFirst
    
    'carregar listbox
    Dim i As Integer
    For i = 1 To 52
          List1.AddItem baralho.Fields("carta")
          baralho.MoveNext
    Next
    
    End Sub
    
    
    cumps
     
Estado do Tópico:
Fechado a novas mensagens.

Partilhar esta Página