在程序运行中想添加删除Table中的固定字段,如何操作啊
谢谢

解决方案 »

  1.   

    ALTER TABLE MyTable ADD/DROP COLUMN
      

  2.   

    ALTER TABLE table_name 
    ADD column_name datatypeALTER TABLE table_name 
    DROP COLUMN column_name
    http://www.w3schools.com/sql/sql_alter.asp
      

  3.   

    ALTER TABLE tablename ADD/DROP COLUMN
      

  4.   

    呵呵,不好意思,没说明白。我是指delphi中为table 增加固定字段
      

  5.   

    table 跟 sql 表是对应的, 没法加 data 字段, 只能加 calc 字段
      

  6.   

    表中的内容是由Query BATCHMOVEF进去的,Query查询的结果不同,Table中的字段不同
      

  7.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(IntToStr(ADOQuery1.Fields.Count));
      ADOQuery1.Fields.Remove(ADOQuery1F_ID);//这里面是你的字段的名字
      ShowMessage(IntToStr(ADOQuery1.Fields.Count));
      DBGrid1.DataSource:=nil;
      DBGrid1.DataSource:=DataSource1;
    end;
      

  8.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type
      TForm1 = class(TForm)
        ADOConnection1: TADOConnection;
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        DBGrid1: TDBGrid;
        Button1: TButton;
        Button2: TButton;
        ADOQuery1F_ID: TStringField;
        ADOQuery1F_RYID: TStringField;
        ADOQuery1F_NAME: TStringField;
        ADOQuery1F_USER: TStringField;
        ADOQuery1F_PASS: TStringField;
        ADOQuery1F_DATE: TStringField;
        ADOQuery1F_TIME: TStringField;
        ADOQuery1F_SY: TStringField;
        ADOQuery1F_ORDER: TIntegerField;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
    //删除
      //ShowMessage(IntToStr(ADOQuery1.Fields.Count));
      ADOQuery1.Fields.Remove(ADOQuery1F_ID);//这里面是你的字段的名字
      //ShowMessage(IntToStr(ADOQuery1.Fields.Count));
      DBGrid1.DataSource:=nil;
      DBGrid1.DataSource:=DataSource1;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
    //添加
      ADOQuery1.Fields.Add(ADOQuery1F_ID);
      DBGrid1.DataSource:=nil;
      DBGrid1.DataSource:=DataSource1;
    end;end.
    这是全部代码,另外,你需要自己创建 ADOQuery1F_ID 对象,然后添加