delphi-DELPHI 查询sql2008r2问题!

问题描述

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列 可查询,全表 对象已打开 错误

解决方案四:
打开前要关闭 数据集

时间: 2024-11-05 14:54:59

delphi-DELPHI 查询sql2008r2问题!的相关文章

delphi HttpQueryInfo查询响应头信息,执行成功,但是返回的是空字符串

问题描述 delphi HttpQueryInfo查询响应头信息,执行成功,但是返回的是空字符串 procedure Get(url: string;res: TStream); var hInt,hUrl:HINTERNET; buffer,hBuf:PChar; dwRead:cardinal; flag:Boolean; Len,index:Cardinal; stream:TStringStream; var value: DWORD; begin GetMem(buffer, 6553

delphi ++-delphi 的问题~~~~~~~~~~

问题描述 delphi 的问题~~~~~~~~~~ 我在CreateForm里面调用这个方法,就给报Access violation的错误..求解救. Form1->Images->Canvas->StretchDraw(TRect(0, 0, 480, 320), gBufs);这句在就报~~~ void PaintAlls() { gBufs->SetSize(gMapData.bgImageDis->Width, gMapData.bgImageDis->Heig

第十九章-Delphi自定义部件开发(三)(2)

19.2.2.4 注册部件 编写部件及其属性.方法和事件只是部件创建过程的一部分.尽管部件具有这些特征就可用,但部件真正功能强大的是在设计时操作它们的能力. 使部件在设计时可用需要经过如下几步: ● 用Delphi注册部件 ● 增加选择板位图 ● 提供有关属性和事件的帮助 ● 存贮和读取属性 1. 用Delphi注册部件 为了让Delphi识别自定义部件,并将它们放置于Component Palette上,你必须注册每一个部件. 注册一个部件要在部件所在单元里加入Register方法,这包括两个

delphi 怎么获取txt文本里我想要的字符

问题描述 delphi 怎么获取txt文本里我想要的字符 例如 文本里面 aaaaaaaa='4'bbbbbbbb='2'怎么可以把4和2取出来然后放在delphi的查询数据库的语句作为条件去查询 解决方案 你可以去处每一行,然后获取等号位置,然后取它后面的字符,当然最好还是用正则

关注Delphi.NET,呵呵,我们又要吞并一个版了(转自CSDN)

嗯,我又被点名了.本来我已经在整理一篇文章,有关Delphi/Delphi.NET和Microsoft.NET的内容,但是我一直没有时间完成(我已经在论坛上说了好几次了).有些事情我并不方便说,这些事情应该由Borland的人来说,例如Tomm兄(转贴者注:台湾宝兰产品经理),他有关Borland的信息应该是比较正确的,因为我是Delphi 6的Beta Tester,也是Microsoft .NET的Beta Tester. 我可以简单的说一下我的看法,不过这些看法是我个人的意见,各位可以参考

Delphi FireDAC 下的 Sqlite(一) 前言

很长时间没静下心来写博客了, 现在回来, 是 Delphi 不断地进步让我感动.振奋. Delphi XE5 并入了 FireDAC, 第一印象非常好, 恐怕 dbExpress 等等都要靠边站了. 让我最高兴地是 FireDAC 对 Sqlite 的支持! 优秀的 Sqlite 早就有很多 Delphi 的包装(http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers, 从 https://code.google.com/ 等还能搜到更多). 有静

Delphi中正则表达式语法(1) 关于大小写与中文

//替换一般字符串 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '我爱DELPHI, 但Delphi不爱我!'; reg.RegEx := 'Delphi'; reg.Replacement := '◆'; reg.ReplaceAll; ShowMessage(reg.Subject); //返回: 我爱DELPHI, 但◆不爱我! FreeAndNil(reg); end; //不区分大小写

Delphi 2009新增单元 Character[1]

ToUpper.ToLower - 字符与字符串的大小写转换 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TBu

075_《Delphi图形和游戏编程突破》

<Delphi图形和游戏编程突破> Delphi 教程 系列书籍 (075) <Delphi图形和游戏编程突破> 网友(邦)整理 EMail: shuaihj@163.com 下载地址: Pdf by John Ayres Wordware Publishing, Inc. ISBN: 1556226373 Pub Date: 12/01/99 内容简介 In the beginning, there was darkness. In this Age of Innocence,