Visual Basic relembrem-me

PHP, Java, JavaScript, XML, XHTML, HTML, CSS, ASP, Delphi, Assembly, LaTeX, C, UML, Flash, Perl, SQL, Python, Zope, Pascal, WML. Se conhece mais de 3 siglas referidas, este é o forum para si.

Moderadores: Administradores, Moderadores

Visual Basic relembrem-me

Mensagempor nunoemanuel » Sexta Mai 11, 2007 15:27

Boas, estou a fazer um projecto em que irei por uma especie de lembrete...

O programa utiliza uma base de dados em access, com um campo de aniversário de clientes....

O que eu queria era, ao comprar a data de sistema com o campo 'aniversário' de todos os registos da base de dados, e apresentar uma msg....

O problema é que ja nao me lembro nem a função que mostra a data(foi a primeira coisa que aprendi em VB :oops: ), nem como percorrer apenas um dos campos de todos os registos....

Vai funcionar mais ou menos assim:

Private Sub Command5_Click()
while not EOF
if x='campo aniversario' then a=a+1
end while
msgbox('Existem 'a' aniversariantes')
End Sub

x seria a data de sistema guardada numa variavel.....
e o 'a' é apenas umas contadora


Cumprimentos
nunoemanuel
Membro de Ouro
Membro de Ouro
 
Mensagens: 583
Registado: Sexta Mar 24, 2006 21:38
Localização: Por aí

Mensagempor SkylineGTR » Sexta Mai 11, 2007 18:12

Penso que isto deve ser o que queres:

Código: Seleccionar todos
Dim sysDate As DateTime = DateTime.Today
i7 920 | ASUS P6T Deluxe V2 | 6GB Corsair Dominator PC3-12800 | BFG GTX285 OC2 | 2x WD 640GB + WD 750GB + Seagate 750GB + Samsung F1 1TB | Corsair HX-620 | HP w2207 | Lian Li PC-V1110B
SkylineGTR
Membro Vitalício
Membro Vitalício
 
Mensagens: 4184
Registado: Terça Dez 28, 2004 22:26


Voltar para Programação

Quem está ligado:

Utilizador a ver este Fórum: Nenhum utilizador registado e 1 visitante

cron