Notifications
Clear all

Concatenar SQL+String

4 Posts
2 Usuários
0 Reactions
1,123 Visualizações
(@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)
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
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Eu consegui!!!
era seguir com as aspas simples, duplas, & dai vem a variavel &, aspa dupla e simples.

SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >= '" & d_inicio & "' AND DATA <= '" & d_fim & "' AND MOEDA=220 AND TIPO = 1

 
Postado : 01/03/2017 1:05 pm