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:
cumps
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