Concatenar SQL+String

2024 - VBA & Macros

Post Recente por badchico 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,115 Visualizações

RSS

badchico

(@badchico)

Posts: 35

Eminent Member

Topic starter

Srs, bom dia

Alguém sabe como faz para concatenar a string abaixo?
Estou ficando perdido, já utilizei tudo que é de caracteres: (', " ", &) :geek:

A questão é o seguinte, já tenho a string que funciona certinho no banco SQL, porem preciso adaptar para a planilha, para o usuário digitar a as datas e exibir somente o período selecionado:

Eu defini como STRING:
Dim d_inicio As String
Dim d_fim As String

E a string é a seguinte:
SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >='2017-01-01' AND DATA<='2017-02-02' AND MOEDA=978 AND TIPO = 1

Nos campos que tem as datas: 2017-01-01 e 2017-02-02, como concateno d_inicio e d_fim ???? :cry:

Obrigado Senhores!

Postado : 01/03/2017 7:43 am

hronconi

(@hronconi)

Posts: 314

Reputable Member

Tenta assim

Dim d_inicio As Date
Dim d_fim As Date

d_inicio = "01/01/2017"
d_fim = "02/02/2017"

E a string é a seguinte:
SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >=d_inicio AND DATA<=d_fim AND MOEDA=978 AND TIPO = 1

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado!

Postado : 01/03/2017 7:56 am

badchico

(@badchico)

Posts: 35

Eminent Member

Topic starter

hronconi, não deu certo

devido meu banco de dados esta com a data da seguinte forma: 2017-02-01 (ano - mês - dia)
não sei se vem ao caso, mais defini uma variável do tipo String para a select:

Dim lSql As String
lSql = "SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >= d_inicio AND DATA <= d_fim AND MOEDA=220 AND TIPO = 1"

problema não consigo concatenar essas variaveis: d_inicio e d_fim
:/

Postado : 01/03/2017 8:12 am