SELECCIONAR O MES DOS ANIVERSARIANTES
Eu pretendo, numa caixa de texto escrever o Mês "Jan" , só com três letras.
Depois preciso de seleccionar todos as aniversariante do mês de Janeiro.
(eu na BD tenho um campo [nascimento] tipo data dd/mm/yyyy)
Alguem me dá uma dica de como fazer ???
Tks.
Depois preciso de seleccionar todos as aniversariante do mês de Janeiro.
(eu na BD tenho um campo [nascimento] tipo data dd/mm/yyyy)
Alguem me dá uma dica de como fazer ???
Tks.
Crie um campo na consulta que retorne apenas o mês e use o critério.
Para selecionar os aniversariantes de março:
Para selecionar os aniversariantes de março:
ect Tabela.*,Month(Nascimento) As Mes From Tabela Where Mes = 3
[c]Select Tabela.*,Month(Nascimento) As Mes From Tabela Where Mes = 3
Quem inventou a tecla Insert???
Quem inventou a tecla Insert???
[c]
DAO
Dim rs as Recordset
Set rs = db.openrecordset("Select * from Clientes where Day(Datnasc) = '" & day(date) & "' and Month(DATNASC) = '" & month(date) & "'")
[txt-color=#00ff00]'---------------------------------------------- [/txt-color]
ADO
DIm rs as Adodb.Recordset
rs.locktype = 3
rs.open "Select * from Clientes where Day(Datnasc) = '" & day(date) & "' and Month(DATNASC) = '" & month(date) & "'", db, adopendynamic
[txt-color=#0000ff]DB eh Conexão ativa e Rs eh a Tabela. DatNasc eh no caso o campo de data de Nascimento da Tabela de Clientes [/txt-color]
DAO
Dim rs as Recordset
Set rs = db.openrecordset("Select * from Clientes where Day(Datnasc) = '" & day(date) & "' and Month(DATNASC) = '" & month(date) & "'")
[txt-color=#00ff00]'---------------------------------------------- [/txt-color]
ADO
DIm rs as Adodb.Recordset
rs.locktype = 3
rs.open "Select * from Clientes where Day(Datnasc) = '" & day(date) & "' and Month(DATNASC) = '" & month(date) & "'", db, adopendynamic
[txt-color=#0000ff]DB eh Conexão ativa e Rs eh a Tabela. DatNasc eh no caso o campo de data de Nascimento da Tabela de Clientes [/txt-color]
Tópico encerrado , respostas não são mais permitidas