非常简单,同志们,快来抓分呀? 我只用过SQLSERVER,不知是否一样? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我只用过SQLSERVER,不知是否一样? 呵呵.sql server的alter table tablename add columnname char(10) null 试试 alter table tablename add (列名 char(10)) 注意括号 alter table tablename add (列名 char(10));应该没问题了! alter table temptable.db add column char(10) var InputStr: string;begin InPutstr := InputBox('输入要增加的字段名', 'Field:', ''); if Trim(Inputstr) = '' then Exit; Query1.close; Query1.requestlive := True; Query1.SQL.Clear; Query1.SQL.Add('ALTER TABLE DynicPara add Column '+InputStr+' char(10)'); Query1.ExecSQL; Query1.requestlive := False; Query1.Close;var InputStr: string;begin InPutstr := InputBox('输入要删除的字段名', 'Field:', ''); if Trim(Inputstr) = '' then Exit; Query1.close; Query1.requestlive := True; try Query1.SQL.Clear; Query1.SQL.Add('ALTER TABLE DynicPara drop Column '+InputStr); Query1.ExecSQL; except showmessage('我找不到这个字段:['+ Inputstr+ '] 不能进行此操作!'); end; delphi初学者,遇到问题了,求解 关于TImage的简单问题! 新到公司第二天,半搞定公司的漂亮女秘书 新手求教:怎样在一个运行时间长,结果多的程序中添加暂停和继续的功能? 急!!!! 转换时间格式 小问题 经常在一些表格中见到 N/A ,它到底是是什么意思? 使用InputBox输入口令,要在输入框中显示全为"*",怎么办? 我用DELPHI 6 给 printer.PageHeight赋值为什么提示出错:READ-ONLY PROPERTY? 如何完成组件的这种功能? 今日无话可说,翻箱倒柜,翻出废话一堆。
alter table tablename add columnname char(10) null
应该没问题了!
InputStr: string;
begin
InPutstr := InputBox('输入要增加的字段名', 'Field:', '');
if Trim(Inputstr) = '' then Exit;
Query1.close;
Query1.requestlive := True;
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE DynicPara add Column '+InputStr+' char(10)');
Query1.ExecSQL;
Query1.requestlive := False;
Query1.Close;var
InputStr: string;
begin
InPutstr := InputBox('输入要删除的字段名', 'Field:', '');
if Trim(Inputstr) = '' then Exit;
Query1.close;
Query1.requestlive := True;
try
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE DynicPara drop Column '+InputStr);
Query1.ExecSQL;
except
showmessage('我找不到这个字段:['+ Inputstr+ '] 不能进行此操作!');
end;