CONVERTER DATAS FIREBIRD
Olá amigos,
A consulta a seguir retorna um datagridview com os dados entre duas datas de uma tabela sql server:
Dim dataIni As String = dtpDataInicial.Text
Dim dataFin As String = dtpDataFinal.Text
Try
Dim strCom As String = [Ô]SELECT idReceita, Data, NumDoc, Conta, SubConta, Forma, Descricao, Valor, Observacoes [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE Descricao LIKE [ô]%[Ô] & txtLocalizar.Text & [Ô]%[ô] [Ô] & _
[Ô]AND Data BETWEEN [ô][Ô] & dataIni & [Ô][ô] AND [ô][Ô] & dataFin & [Ô][ô][Ô]
Dim sqlCom As FbCommand = New FbCommand(strCom, con)
Dim da As New FbDataAdapter(sqlCom)
Dim dt As DataTable = New DataTable([Ô]Receita[Ô])
Dim ds As DataSet = New DataSet
dgvReceita.Columns.Clear()
da.Fill(ds)
Funciona perfeitamente com o banco de dados sql server.
Mas ao fazer a mesma consulta em Firebird retorna o seguinte erro:
Erro de conversão de string.
Desde já agradeço qualquer ajuda
A consulta a seguir retorna um datagridview com os dados entre duas datas de uma tabela sql server:
Dim dataIni As String = dtpDataInicial.Text
Dim dataFin As String = dtpDataFinal.Text
Try
Dim strCom As String = [Ô]SELECT idReceita, Data, NumDoc, Conta, SubConta, Forma, Descricao, Valor, Observacoes [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE Descricao LIKE [ô]%[Ô] & txtLocalizar.Text & [Ô]%[ô] [Ô] & _
[Ô]AND Data BETWEEN [ô][Ô] & dataIni & [Ô][ô] AND [ô][Ô] & dataFin & [Ô][ô][Ô]
Dim sqlCom As FbCommand = New FbCommand(strCom, con)
Dim da As New FbDataAdapter(sqlCom)
Dim dt As DataTable = New DataTable([Ô]Receita[Ô])
Dim ds As DataSet = New DataSet
dgvReceita.Columns.Clear()
da.Fill(ds)
Funciona perfeitamente com o banco de dados sql server.
Mas ao fazer a mesma consulta em Firebird retorna o seguinte erro:
Erro de conversão de string.
Desde já agradeço qualquer ajuda
Faz assim OK
Dim strCom As String = [Ô]SELECT idReceita, Data, NumDoc, Conta, SubConta, Forma, Descricao, Valor, Observacoes [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE BETWEEN [ô][Ô] & txtLocalizar.Text & [Ô]%[ô] [Ô] & _
[Ô]AND Data BETWEEN [ô][Ô] & Format$(dataIni.Value, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô] AND [ô][Ô] & Format$(dataFin.Value, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô][Ô]
Dim strCom As String = [Ô]SELECT idReceita, Data, NumDoc, Conta, SubConta, Forma, Descricao, Valor, Observacoes [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE BETWEEN [ô][Ô] & txtLocalizar.Text & [Ô]%[ô] [Ô] & _
[Ô]AND Data BETWEEN [ô][Ô] & Format$(dataIni.Value, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô] AND [ô][Ô] & Format$(dataFin.Value, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô][Ô]
Remova a %
Boa tarde NILTON_VIANNA
Muito obrigado, acertou na mosca.
Não foi necessário remover %
Estou encerrando o tópico. Valeu mesmo...
Muito obrigado, acertou na mosca.
Não foi necessário remover %
Estou encerrando o tópico. Valeu mesmo...
Tópico encerrado , respostas não são mais permitidas