CONSULTA A BD ACCESS COM APLICATIVO VB-6

DANLEONHART 23/02/2011 15:18:04
#366375
Tenho um aplicativo desenvolvido em VB-6 com banco de dados em Access, e gostaria de saber como faço uma consulta ao BD onde o resultado dependa das variáveis colocada...

Tipo assim:

Tenho um BD onde lanço dados diariamente referente a valores de produção...quero criar uma consulta onde será colocada as datas para se fazer a busca:

EX: de 05/02/2011 a 20/02/2011...então ele mostraria o resultado do que está entre este periodo de datas...
LUIZCOMINO 23/02/2011 15:35:13
#366378
[Ô]Select * from produto where DataCad= #[Ô] & Format(variveldata1,[Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(variveldata2,[Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô][Ô]
ANABON 23/02/2011 17:10:22
#366399
Olá DANLEONHART.... eu estva com esse mesmo problema então eu criei um form coloquei um datagrid carreguei ela com um objeto adodc dps acrecentei dois DTPicker um que indica a data de inicio e o outro que indica a data final da pesquisa, coloquei um comand botão onde eu carrego o cogigo que o amigo LUIZCOMINO postou acima
Citação:

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = [Ô]Select * from venda where data_venda= #[Ô] & Format(DTPicker1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(DTPicker2, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Adodc1.Refresh



Ah como carregar a grid tbm atraves de codigo : http://www.macoratti.net/vb_flex2.htm

Espero ter ajudado...
DANLEONHART 23/02/2011 18:18:07
#366407
Obrigado ANABON mas só estou precisando mesmo da string de consulta...e que coincidência cara ! também tenho DTPickers...mas apresento os resultados em FlexGrid .
DANLEONHART 24/02/2011 01:22:30
#366430
Coloquei assim em meu script:

Dim SQLcons As String
Dim vVal1 As Variant
Dim vVal2 As Variant

vVal1 = Format(DPicker1.Value, [Ô]DD/MM/YYYY[Ô])
vVal2 = Format(DPicker2.Value, [Ô]DD/MM/YYYY[Ô])

SQLcons = [Ô]SELECT * FROM ProdGeral WHERE ProData= #[Ô] & vVal1 & [Ô]# AND #[Ô] & vVal2 & [Ô]#[Ô][Ô][Ô]


e tá apresentando erro de sintaxe na expressão...e aponta para a linha da consulta


DANLEONHART 24/02/2011 02:15:59
#366433
Descobrí !!!

Pesquisando na NET encontrei outra forma...para SQL mas foi só adaptar...ficou assim:


Public Sub Pesquisar()

Dim SQLcons As String
Dim vVal1 As Variant
Dim vVal2 As Variant

vVal1 = Format(DPicker1.Value, [Ô]DD/MM/YYYY[Ô])
vVal2 = Format(DPicker2.Value, [Ô]DD/MM/YYYY[Ô])

SQLcons = [Ô]SELECT * FROM ProdGeral WHERE ProdData BETWEEN [ô][Ô] & vVal1 & [Ô][ô] AND [ô][Ô] & vVal2 & [Ô][ô][Ô]
script......


Fonte: http://www.w3schools.com/sql/sql_between.asp

Tópico encerrado , respostas não são mais permitidas