CONSULTA ENTRE DATAS
Bom dia, Pessoal.
Tenho um consulta para preencher uma msflex grid gostaria só aparece as mensalidades em atraso. segue a consulta. na query o campo data que ta se chama (MES).
Dim sql As New ADODB.Recordset
sql.Open [Ô]Select TOP 40 * from tblFinanceiroConsulta where CODSOCIO like[ô][Ô] & txtCodSocio & [Ô][ô][Ô], Con, adOpenDynamic, adLockOptimistic
MSFlexGrid1.Rows = 2
Do While Not sql.EOF
MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, 0) = sql.Fields(1).Value & [Ô][Ô]
MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, 1) = Format(sql.Fields(3).Value, [Ô]DD/MM/YYYY[Ô]) & [Ô][Ô]
MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
sql.MoveNext
Loop
Tenho um consulta para preencher uma msflex grid gostaria só aparece as mensalidades em atraso. segue a consulta. na query o campo data que ta se chama (MES).
Dim sql As New ADODB.Recordset
sql.Open [Ô]Select TOP 40 * from tblFinanceiroConsulta where CODSOCIO like[ô][Ô] & txtCodSocio & [Ô][ô][Ô], Con, adOpenDynamic, adLockOptimistic
MSFlexGrid1.Rows = 2
Do While Not sql.EOF
MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, 0) = sql.Fields(1).Value & [Ô][Ô]
MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, 1) = Format(sql.Fields(3).Value, [Ô]DD/MM/YYYY[Ô]) & [Ô][Ô]
MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
sql.MoveNext
Loop
seria assim
Select TOP 40 * from tblFinanceiroConsulta where mes > month(date())[Ô], Con, adOpenDynamic, adLockOptimistic
Opa marcelo, a questão que também tem o criterio do codigo do socio, pois tem que filtrar apenas as mensalidades em atraso daquele socio. como consulta que eu fiz, que segue como exemplo.
uma vez que você saiba o código não use o like e sim um =
ex:
sql.Open [Ô]Select TOP 40 * from tblFinanceiroConsulta where CODSOCIO=[ô][Ô] & txtCodSocio & [Ô][ô] AND mes > month(date())[Ô], Con, adOpenDynamic, adLockOptimistic
ex:
sql.Open [Ô]Select TOP 40 * from tblFinanceiroConsulta where CODSOCIO=[ô][Ô] & txtCodSocio & [Ô][ô] AND mes > month(date())[Ô], Con, adOpenDynamic, adLockOptimistic
Faça seu login para responder