CONSULTA A BD ACCESS COM APLICATIVO VB-6
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...
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...
[Ô]Select * from produto where DataCad= #[Ô] & Format(variveldata1,[Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(variveldata2,[Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô][Ô]
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
Ah como carregar a grid tbm atraves de codigo : http://www.macoratti.net/vb_flex2.htm
Espero ter ajudado...
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...
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 .
Coloquei assim em meu script:
e tá apresentando erro de sintaxe na expressão...e aponta para a linha da consulta
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
Descobrà !!!
Pesquisando na NET encontrei outra forma...para SQL mas foi só adaptar...ficou assim:
Fonte: http://www.w3schools.com/sql/sql_between.asp
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