求助老鸟们,能编译,但取不到数据.

Question

{检查了好久,还不知道那个地方有问题,求老鸟给看下.}
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ComObj;const
  adOpenStatic = $00000003;
  adLockOptimistic = $00000003;
  adCmdText = $00000001;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  cn, rs: variant;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  cn := Createoleobject('ADODB.Connection');
  cn.Open ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb;' +
           'Persist Security Info=False;Jet OLEDB:Database Password=123');
end;procedure TForm1.Button2Click(Sender: TObject);
var
SQL : string;
begin
  rs := Createoleobject('ADODB.Connection');
  rs.Activeconnection := cn;
  SQL := 'Select * Form 表';
  rs.open (SQL, cn, adOpenStatic, adlockOptimistic, adcmdText);
  edit1.text := cn.Fields['ID'].value;
  edit2.text := cn.Fields['A'].value;
  edit3.text := cn.Fields['B'].value;
end;end.

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  SQL : string;
begin
  rs := Createoleobject('ADODB.Recordset');
  SQL := 'Select * Form 表';
  rs.open (SQL, cn, adOpenStatic, adlockOptimistic, adcmdText);
  edit1.text := rs.Fields['ID'].value;
  edit2.text := rs.Fields['A'].value;
  edit3.text := rs.Fields['B'].value;
end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ComObj;const
  adOpenStatic = $00000003;
  adLockOptimistic = $00000003;
  adCmdText = $00000001;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  cn, rs: variant;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  cn := Createoleobject('ADODB.Connection');
  cn.Open ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb;' +
           'Persist Security Info=False;Jet OLEDB:Database Password=123');
end;procedure TForm1.Button2Click(Sender: TObject);
var
SQL : string;
begin
  rs := Createoleobject('ADODB.RecordSet');//改这里
  rs.Activeconnection := cn;
  SQL := 'Select * Form 表';
  rs.open (SQL, cn, adOpenStatic, adlockOptimistic, adcmdText);
  edit1.text := rs.Fields['ID'].value;//cn改为rs
  edit2.text := rs.Fields['A'].value;//cn改为rs
  edit3.text := rs.Fields['B'].value;//cn改为rs
end;end.

Answer 3

'Select * Form 表'改为SQL := 'Select * From 表';

Answer 4

一般部這么做，直接用個adoquery和DataSource就好了，然後綁定
edit2.Text:=adoquery1.Fields[0].AsString; 

Answer 5

var
  Form1: TForm1;
  cn, rs: variant;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  cn := Createoleobject('ADODB.Connection');
  cn.Open ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb;' +
           'Persist Security Info=False;Jet OLEDB:Database Password=123');
end;procedure TForm1.Button2Click(Sender: TObject);
var
SQL : string;
begin
  rs := Createoleobject('ADODB.Recordset');  //這裏的RS應該是數據集。 連接CN在上面已經創建了
  rs.Activeconnection := cn;
  SQL := 'Select * Form 表';
  rs.open (SQL, cn, adOpenStatic, adlockOptimistic, adcmdText);
  edit1.text := cn.Fields['ID'].value;
  edit2.text := cn.Fields['A'].value;
  edit3.text := cn.Fields['B'].value;
end;