DELPHI 查询sql2008r2问题！

疯了，群里有会delphi的没，2008R2 查询一个月数据没问题，查询一年数据 报错，“对象被打开”

如果只查询一列，一年数据可正常查询！

C# 其他程序查询都没问题。。。。。
主程序是delphi的，所以需要用主程序！
使用 delphi7开发简单链接，一个月可以查询，一年数据报错！
尝试使用 delphi xe7 问题一样！使用 .net写个简单链接无问题！

delphi xe7写的简单查询

delphi7 写的简单查询

http://blog.csdn.net/xjzdr/article/details/26530323

将代码贴出来，才能帮你分折。否则，都是杂谈。问一下，你是直接读数据库，还是c/s三层。本人用MssQL2008未见此情。

代码如下：

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh,
DBGridEhToolCtrls, DynVarsEh, Vcl.StdCtrls, Data.DB, Data.Win.ADODB, EhLibVCL,
GridsEh, DBAxisGridsEh, DBGridEh, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBGridEh1: TDBGridEh;
DataSource1: TDataSource;
Button1: TButton;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
self.ADOQuery1.Close;
self.ADOQuery1.Active:=false;
self.ADOConnection1.Close;
//self.ADOConnection1.Open;
self.ADOConnection1.LoginPrompt:=false;
ADOQuery1.Prepared;
self.ADOQuery1.Active:=true;
end;

end.

 完全拖拽控件，没编写自己的代码问题依旧，查询 全年数据 1列 可查询，全表 对象已打开 错误

打开前要关闭 数据集