盒子论坛 v2.1

ADO+ACCESS，我取得数据库里的表名添加到COMBOBOX里，然后选择表名后点修改按钮，把所选表里的名称那一览里的数据前面加上表明和一条竖线。改了几个表了有些对有些错，为什么错啊？所有数据字段都是字符，长度50。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
oname:string;
begin
adotable1.Active :=true;
adotable1.First ;
while not adotable1.eof do
begin
oname:= adotable1['名称'];//.asstring;
label1.caption:=oname;
adotable1.Edit;
adotable1['名称']:=combobox1.Text +'|'+oname;
adotable1.Post;
oname:=';
adotable1.Next ;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.GetTableNames(combobox1.Items, False);
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
adotable1.Active :=false;
adotable1.TableName :=combobox1.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Active :=true;
end;

end.

此帖子包含附件:

大小:30.8K

----------------------------------------------
写点代码混饭吃！
==========

信息

登陆以后才能回复