Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcossaraeywo

Prolemas com Datas

Recommended Posts

Boa tarde Gente,

 

Sei que hoje não e o dia para pedir ajuda para resolver um grande problema com datas no VB2008 e SQL2008.

 

Não consigo fazer o filtro entre duas datas, no VB 6 isso era tranqüilo para mim mas no VB2008 estou apanhando muito já tentei de tudo e não consigo fazer este filtro.

 

Peco por favor se alguem puder me ajudar agradeço desde já.

 

Vou mostrar tudo detalhado como segue abaixo:

 

NO Sql Server segue exemplo da criação da tabela e a população da mesma:

 

create table Arrecadacao

 

(codigo integer,

 

numenvelope integer primary key,

 

descricao varchar(20)not null,

 

especie varchar(20)not null,

 

valor decimal(6,2)not null,

 

nome varchar(40)not null,

 

data date not null,

 

situacao varchar(30)not null);

 

 

 

insert into Arrecadacao (codigo,numenvelope ,descricao, especie ,valor ,nome ,data ,situacao )

 

Values(1,34343,'Dizimo','Dinheiro','100','Marcos Saraiva','12/24/2009','M.Comungante')

 

 

 

 

 

Agora no VB2008 estou gerando um Relatorio com Crystal mas quando tento filtar os dados entre o campo (data date not null)como segue o meu Select abaixo da o seguinte erro (INCORRET SINTAX NEAR '13') ou (INCORRET SINTAX NEAR '24')

 

VB2008

 

Private Sub CmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOk.Click

 

Dim rpt As New CrystalReport2

 

Dim conn As SqlConnection

 

Dim cmd As New SqlCommand

 

Dim da As New SqlDataAdapter

 

Dim ds As New DataSet

 

Try

 

conn = New SqlConnection("integrated security=sspi;initial catalog=Igreja_Presbiteriana;data source=(local)")

 

cmd.Connection = conn

 

 

cmd.CommandText = ("Select * FROM Arrecadacao Where data BETWEEN #" & datainicial.Value & "# AND #" & datafinal.Value & "# Order By data")

 

cmd.CommandType = CommandType.Text

 

da.SelectCommand = cmd

 

da.Fill(ds, "Arrecadacao")

 

rpt.SetDataSource(ds)

 

CrystalReportViewer2.ReportSource = rpt

 

Catch ex As Exception

 

MsgBox(ex.Message)

 

End Try

 

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá marcossaraeywo,

 

Conforme o aviso existente no fórum de origem deste post, não é permitida a postagem de dúvidas nesta área, motivo pelo qual este tópico será movido para o fórum principal deste assunto.

 

Tópico Movido

 

Origem: Artigos, Tutoriais e Matérias (SQL Server) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: SQL Server

 

Abraços

 

Mário Monteiro

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.