为Table添加删除固定字段 在程序运行中想添加删除Table中的固定字段,如何操作啊谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ALTER TABLE MyTable ADD/DROP COLUMN ALTER TABLE table_name ADD column_name datatypeALTER TABLE table_name DROP COLUMN column_namehttp://www.w3schools.com/sql/sql_alter.asp ALTER TABLE tablename ADD/DROP COLUMN 呵呵,不好意思,没说明白。我是指delphi中为table 增加固定字段 table 跟 sql 表是对应的, 没法加 data 字段, 只能加 calc 字段 表中的内容是由Query BATCHMOVEF进去的,Query查询的结果不同,Table中的字段不同 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; 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 对象,然后添加 这个sql语句怎么写? suipack这个控件在哪里有啊? application Servic 问题! 急 分不够还有! 事务处理的问题 能根据自己的需要设置磁盘分区卷的序列号吗? 怎样新建一个文件夹。并将其设为隐藏? 我想让我的程序无论在什么分辨率的情况下都出现在右上方,怎么做?? 如何利用Edit的keyup事件对Edit进行输入控制。 今年开始复习考研,看书看得快要痴呆.郁闷至极!!散分~~~~~~~~~~~~~~~ 如何在StringGrid使用ComboBox输入内容 请问大家 GetPropInfo 函数有什么作用,用法是怎样的! 求教一个关于 scrollbox 控件问题!
ADD column_name datatypeALTER TABLE table_name
DROP COLUMN column_name
http://www.w3schools.com/sql/sql_alter.asp
begin
ShowMessage(IntToStr(ADOQuery1.Fields.Count));
ADOQuery1.Fields.Remove(ADOQuery1F_ID);//这里面是你的字段的名字
ShowMessage(IntToStr(ADOQuery1.Fields.Count));
DBGrid1.DataSource:=nil;
DBGrid1.DataSource:=DataSource1;
end;
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 对象,然后添加