delphi access导出到ComboBox TADOConnection+TADOTable

access导出到ComboBox TADOConnection+TADOTable

界面如下

源码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ADOC1: TADOConnection;
    ADO_user: TADOTable;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//**********初始化数据***********
procedure TForm1.FormCreate(Sender: TObject);
begin
ADO_user.Close;
ADO_user.Open;
ADO_user.Sort := 'id ASC';
while not ADO_user.Eof do
      begin
         ComboBox1.Items.Add(ADO_user.fieldbyname('name').AsString);
         ADO_user.Next;
      end;
    ComboBox1.ItemIndex:=0;
ADO_user.Close;
end;

end.

运行后的截图