delhi自带的ado和SDAC控件那个快?我没有只设置基本的, 然后查询, ADO比较SDAC快.
我的中间层KBMMW使用ADO测试的时候28小时后自杀了,在管理器里面连尸体都找不到阿,看WINDOWS的日志才发现是------------
事件類型: 資訊
事件來源: DrWatson
事件類別目錄: 無
事件識別碼: 4097
日期: 2007/01/18
時間: 16:21:35
使用者: N/A
電腦: FTEGDN08
描述:
應用程式 產生一應用程式錯誤 此錯誤發生於 01/18/2007 @ 16:21:34.953 所產生的例外為 c0000025 於位址 77FACC94 (RtlTraceDatabaseEnumerate)-------------------然后就想换ADO访问控件试试,但比较自带的ADO和SDAC速度,ADO快点, 在2十万的时候更明显朋友们有没有这方面的经验?求教
我的中间层KBMMW使用ADO测试的时候28小时后自杀了,在管理器里面连尸体都找不到阿,看WINDOWS的日志才发现是------------
事件類型: 資訊
事件來源: DrWatson
事件類別目錄: 無
事件識別碼: 4097
日期: 2007/01/18
時間: 16:21:35
使用者: N/A
電腦: FTEGDN08
描述:
應用程式 產生一應用程式錯誤 此錯誤發生於 01/18/2007 @ 16:21:34.953 所產生的例外為 c0000025 於位址 77FACC94 (RtlTraceDatabaseEnumerate)-------------------然后就想换ADO访问控件试试,但比较自带的ADO和SDAC速度,ADO快点, 在2十万的时候更明显朋友们有没有这方面的经验?求教
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, Grids, DBGrids, MemDS, DBAccess, MSAccess, SdacVcl,
ADODB;type
TForm2 = class(TForm)
MSConnectDialog1: TMSConnectDialog;
MSConnection1: TMSConnection;
MSQuery1: TMSQuery;
ds1: TDataSource;
btn1: TButton;
edt1: TEdit;
btn2: TButton;
con1: TADOConnection;
qry1: TADOQuery;
dbgrd1: TDBGrid;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.btn1Click(Sender: TObject);
begin
with msquery1 do
begin
Close;
SQL.Text := edt1.Text;
tag := gettickcount;
Open;
tag := gettickcount - tag;
text := inttostr(tag div 1000) ;
ds1.DataSet := msquery1;
end;
end;procedure TForm2.btn2Click(Sender: TObject);
begin
with qry1 do
begin
Close;
SQL.Text := edt1.Text;
tag := gettickcount;
Open;
tag := gettickcount - tag;
text := inttostr(tag div 1000) ;
ds1.DataSet := qry1;
end;
end;end.
//--------------------------------------------------------------------------
object Form2: TForm2
Left = 267
Top = 110
Width = 870
Height = 640
Caption = 'Form2'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object btn1: TButton
Left = 72
Top = 128
Width = 75
Height = 25
Caption = 'btn1'
TabOrder = 0
OnClick = btn1Click
end
object edt1: TEdit
Left = 80
Top = 160
Width = 745
Height = 21
TabOrder = 1
Text = 'select top 10000 * from dbilldata'
end
object btn2: TButton
Left = 80
Top = 200
Width = 75
Height = 25
Caption = 'btn2'
TabOrder = 2
OnClick = btn2Click
end
object dbgrd1: TDBGrid
Left = 272
Top = 264
Width = 320
Height = 120
DataSource = ds1
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object MSConnectDialog1: TMSConnectDialog
Caption = 'Connect'
UsernameLabel = 'User Name'
PasswordLabel = 'Password'
ServerLabel = 'Server'
ConnectButton = 'Connect'
CancelButton = 'Cancel'
Left = 280
Top = 96
end
object MSConnection1: TMSConnection
Database = '0300'
Authentication = auServer
Pooling = True
Username = 'E3'
Password = 'ftegmm'
Server = '192.168.11.234'
ConnectDialog = MSConnectDialog1
Left = 176
Top = 88
end
object MSQuery1: TMSQuery
Connection = MSConnection1
Left = 496
Top = 176
end
object ds1: TDataSource
DataSet = MSQuery1
Left = 312
Top = 320
end
object con1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Password=ftegmm;Persist Security Info=True;U' +
'ser ID=e3;Initial Catalog=0300;Data Source=192.168.11.234'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 160
Top = 360
end
object qry1: TADOQuery
Connection = con1
Parameters = <>
Left = 136
Top = 304
end
end
价格4000RBM左右(499$)