系统win2000server
delphi 7
dbexpmysql.dll 版本 9.0.1761.24408. Borland dbExpress MySQL 4.0.xx driver
libmysql.dll mysql4.020a自带的的驱动库,现在"systerm32"下
数据库本地:mysql4.020a
控件连接:
TSQLConnection---TSQLQuery问题:使用不同名的TSQLQuery控件进行查询(使用同一个连接,autoclone设为false),是在查询完一个后关掉,再进行另一个查询,就会报错.
这个我在重装系统之前运行是没问题的,老总那台运行是没问题的。
可是重装后就运行就会报错.再装同样,公司另一台也是。
可是在宿舍里的那台win2003 + delphi2005
写同样的代码却不会报错,运行通过.
怎么回事?源码:
-----------------------------------------------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, SqlExpr, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
SQLConnection1: TSQLConnection;
SQLQuery1: TSQLQuery;
SQLQuery2: TSQLQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
SQLConnection1.AutoClone := false; SQLQuery1.SQL.Text := 'select * from user limit 1';
SQLQuery1.Open;
SQLQuery1.Close; SQLQuery2.SQL.Text := 'select * from user limit 1';
SQLQuery2.Open; // 这句报错Multiple connections not supported by mysql driver
SQLQuery2.Close;
end;end.
delphi 7
dbexpmysql.dll 版本 9.0.1761.24408. Borland dbExpress MySQL 4.0.xx driver
libmysql.dll mysql4.020a自带的的驱动库,现在"systerm32"下
数据库本地:mysql4.020a
控件连接:
TSQLConnection---TSQLQuery问题:使用不同名的TSQLQuery控件进行查询(使用同一个连接,autoclone设为false),是在查询完一个后关掉,再进行另一个查询,就会报错.
这个我在重装系统之前运行是没问题的,老总那台运行是没问题的。
可是重装后就运行就会报错.再装同样,公司另一台也是。
可是在宿舍里的那台win2003 + delphi2005
写同样的代码却不会报错,运行通过.
怎么回事?源码:
-----------------------------------------------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, SqlExpr, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
SQLConnection1: TSQLConnection;
SQLQuery1: TSQLQuery;
SQLQuery2: TSQLQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
SQLConnection1.AutoClone := false; SQLQuery1.SQL.Text := 'select * from user limit 1';
SQLQuery1.Open;
SQLQuery1.Close; SQLQuery2.SQL.Text := 'select * from user limit 1';
SQLQuery2.Open; // 这句报错Multiple connections not supported by mysql driver
SQLQuery2.Close;
end;end.
KeepConnection 修改为 false;
什么错误? -------------------
到下午6:00前结帖