添加ADO组件修复工具

Signed-off-by: lqq <lqq@wswin.cn>

Log/AccessDBCase.dfm

@@ -0,0 +1,49 @@
+object Form7: TForm7
+  Left = 0
+  Top = 0
+  Caption = 'Form7'
+  ClientHeight = 570
+  ClientWidth = 615
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object dbgrd1: TDBGrid
+    Left = 0
+    Top = 0
+    Width = 615
+    Height = 570
+    Align = alClient
+    DataSource = ds2
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+  end
+  object con1: TADOConnection
+    LoginPrompt = False
+    Provider = 'Microsoft.Jet.OLEDB.4.0'
+    Left = 104
+    Top = 168
+  end
+  object ds1: TADODataSet
+    Connection = con1
+    Parameters = <>
+    Left = 192
+    Top = 192
+  end
+  object ds2: TDataSource
+    DataSet = ds1
+    Left = 272
+    Top = 192
+  end
+end

Log/AccessDBCase.pas

@@ -0,0 +1,48 @@
+unit AccessDBCase;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, Grids, DBGrids, DB;
+
+type
+  TForm7 = class(TForm)
+    con1: TADOConnection;
+    ds1: TADODataSet;
+    ds2: TDataSource;
+    dbgrd1: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form7: TForm7;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm7.FormCreate(Sender: TObject);
+begin
+  con1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=MessageHistory.DAT;';
+  ShowMessage('1');
+  con1.Connected := True;
+  ShowMessage('2');
+  ds1.CommandText := 'SELECT TOP 8 * FROM MESSAGES';
+  ShowMessage('3');
+  ds1.Open;
+  ShowMessage('4');
+end;
+
+procedure TForm7.FormDestroy(Sender: TObject);
+begin
+  ds1.Close;
+  con1.Connected := False;
+end;
+
+end.