ado1.CommandText :='SELECT COUNT(*),Format(发布时间,:pk1) FROM wbdata GROUP BY Format(发布时间,:pk1)';
ado1.Parameters.ParamByName('pk1').Value :='HH';
ado1.Open ;
ado1.CommandText :='SELECT COUNT(*),Format(发布时间,:pk1) FROM wbdata GROUP BY Format(发布时间,:pk1)';
ado1.Parameters.ParamByName('pk1').Value :='HH';
ado1.Open ;