Jump to content
peenas

Ajuda em programa de visual basic para alertar quando alguém faz anos

Recommended Posts

peenas

Boas, tenho um programa para fazer, ligado a uma base da dados com a tabela clientes e quando abrirem o programa o programa deve dizer numa msgbox ou numa label quais são os clientes que fazem anos.

Precisava de ajuda para o fazer não sei bem como o deva fazer.

Desde já obrigado

Share this post


Link to post
Share on other sites
Retsu9

isso é mesmo VBA ou uma aplicação tipo VB.net ?

parece me mais uma aplicação estilo vb.net... so falas em aplicação e uma base de dados (access por exemplo)

se assim for é simples, quando inicias o programa fazes um select à tabela clientes onde a data de nascimento seja igual à data de hoje

Share this post


Link to post
Share on other sites
peenas

Boas, desde já Obrigado por responderes, já consegui fazer!

O que fiz foi o seguinte:

form1_load

Me.ClientesTableAdapter.Fill(Me.DataBaseNameDataSet.Clientes)

con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\nomedopc\Documents\DataBaseName.accdb")

cmd = New OleDbCommand("SELECT * from clientes where Day(DataNascimento) = Day(Now()) and month(DataNascimento) = month(now())", con)

da = New OleDbDataAdapter(cmd)

ds = New DataSet()

If con.State = ConnectionState.Open Then

con.Close()

End If

con.Open()

da.Fill(ds, "consulta")

DataGridView1.DataSource = ds.Tables(0)

Estava a fazer em VisualBasic

Edited by peenas

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.