USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consultas SQL o q esta acontecendo? URGENTE
DM MASTER
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 08:41 hs            
Estou fazendo uma consulta sql num banco de dados access em vb net.
Qdo eu coloco a seguinte instrução: "Select * from contato" funciona q é uma beleza, só que qdo eu coloco a instrução:
"Select * from contato where Month(DtNascto) = Month('9/1/2005') and Day(DtNascto) >= Day('9/1/2005') and Month(DtNascto) = Month('15/1/2005') and Day(DtNascto) <= Day('15/1/2005') order by day(DtNascto)"
não funciona...
Eu coloco essa mesma instrução na consulta do access e a resposta são 2 registros.
Alguem saberia me dizer o q esta errado?
O codigo que eu utilizo é o seguinto:

Private Sub Aniversariantes(Optional ByVal data = "")

Dim i As Integer = 0

Dim csql As String

Dim DataAntes As Date = Today

Dim DataDepois As Date = Today

If data = "" Then

data = Date.Today

End If

doc.Load(Application.StartupPath & "conf.xml")

If doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText > 0 Then

DataAntes = DataAntes.AddDays("-" & doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText)

DataDepois = DataDepois.AddDays(doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText)

End If

Dim dt As New DataTable

Dim dtrow As DataRow

dt.Columns.Add("Nome")

dt.Columns.Add("DtNascto")

dt.Columns.Add("FoneRes")

dt.Columns.Add("FoneCel")

dt.Columns.Add("FoneCom")

dt.Columns.Add("Email")

dt.Columns.Add("Obs")

AbreDB()

sSql.Connection = cnn

sSql.CommandText = "Select * from contato where Month(DtNascto) = Month('" & DataAntes & "') and Day(DtNascto) >= Day('" & DataAntes & "') and Month(DtNascto) = Month('" & DataDepois & "') and Day(DtNascto) <= Day('" & DataDepois & "') order by day(DtNascto)"

sSql.CommandType = CommandType.Text

dr = sSql.ExecuteReader

While dr.Read

i = i + 1

Dim dataformatada As Date

dataformatada = dr("DtNascto")

dtrow = dt.NewRow()

dtrow.Item("Nome") = dr("Nome")

dtrow.Item("DtNascto") = Convert.ToString(FormatDateTime(dataformatada, DateFormat.ShortDate))

dtrow.Item("FoneRes") = dr("FoneRes")

dtrow.Item("FoneCel") = dr("FoneCel")

dtrow.Item("FoneCom") = dr("FoneCom")

dtrow.Item("Email") = dr("Email")

dtrow.Item("obs") = dr("Obs")

dt.Rows.Add(dtrow)

End While

dgAniversariantes.DataSource = dt

DesabilitaBotoes()

fraAniversariantes.Visible = True

cnn.Close()

If i > 0 Then

MessageBox.Show("Na sua lista de contatos existe " & i & " aniversariante(s)!")

ElseIf i = 0 Then

If data = Date.Today Then

MessageBox.Show("Não tem nenhum aniversariante na sua lista de contatos para hoje!")

fraAniversariantes.Visible = False

HabilitaBotoes()

Else

MessageBox.Show("Não tem nenhum aniversariante na sua lista de contatos para a data escolhida!")

fraAniversariantes.Visible = False

HabilitaBotoes()

End If

End If

End Sub

 

Obrigado desde já


DM MASTER":.
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 08:55 hs         
Coloca assim:
 
"Select * from contato where Month('" & DtNascto & "') = Month('" & DataAntes & "') and Day('" & DtNascto & "') >= Day('" & DataAntes & "') and Month('" & DtNascto & "') = Month('" & DataDepois & "') and Day('" & DtNascto & "') <= Day('" & DataDepois & "') order by day('" & DtNascto & "')"
   
DM MASTER
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 09:05 hs            
KerPlunk, dessa forma q vc colocou o DtNascto teria q ser uma variavel, porem DtNascto é o nome do campo na minha tabela......
 

DM MASTER":.
   
DM MASTER
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 11:06 hs            
Alguem saberia dizer o q esta dando errado?
Obrigado

DM MASTER":.
   
Natarelli
não registrado
ENUNCIADA !
Postada em 12/01/2005 16:17 hs   
Tenta:
"Select * from contato where Month(DtNascto) = Month(#" & DataAntes & "#) and Day(DtNascto) >= Day(#" & DataAntes & "#) and Month(DtNascto) = Month(#" & DataDepois & "#) and Day(DtNascto) <= Day(#" & DataDepois & "#) order by day(DtNascto)"
   
DM MASTER
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2005 19:56 hs            
Essa opção tbm não funcionou....
Não sei mais o que fazer....
Me ajudem.... por favor.....
 

DM MASTER":.
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página