下列語法用在 sql2000資料庫可行  原:ADOQuery1.SQL.Add('ALTER TABLE SalInternet WITH NOCHECK ADD ');
ADOQuery1.SQL.Add('CONSTRAINT FK_SalInternet Primary Key CLUSTERED ');
ADOQuery1.SQL.Add('(SidSort,Sidno) on [Primary] '); ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('ALTER TABLE SalInternet drop Constraint FK_SalInternet ');
ADOQuery1.ExecSQL; 可變更SQL2000 Primary Key

但ACCESS就是不行
ADOQuery1.SQL.Add('ALTER TABLE SalInternet NOCHECK Primary Key (SidYeara,SidSort,Sidno) ');
請問Access如何改變 Primary Key ?
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('ALTER TABLE SalInternet nocheck Primary key(SidYeara,SidSort,Sidno)');
ADOQuery1.ExecSQL;
不行 ?

試試如下的方式: 
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
// 刪除 Primarykey
s := 'ALTER TABLE SalInternet DROP CONSTRAINT PrimaryKey ';
ADOConnection1.Execute(s);
// 新增 Primarykey
s := 'ALTER TABLE table1 ADD CONSTRAINT NewPK PRIMARY KEY (SidYeara, SidSort, Sidno)');
ADOConnection1.Execute(s);
ShowMessage('done!');
end;

謝謝 大大
在 刪除 Primary key 時 { 會出現 CHECK 條件Primarykey 不存在 } 錯誤訊息 ? 不知
s := 'ALTER TABLE SalInternetDROP CONSTRAINT PrimaryKey ';
ADOConnection1.Execute(s);

新增 Primarykey 已 ok 可行

試試如下的方式來刪除 Primary Key
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
ADOConnection1.OpenSchema(siPrimaryKeys, EmptyParam, EmptyParam, ADODataSet1);
ADODataSet1.Open;
if not ADODataset1.Locate('TABLE_NAME', 'table1', []) then
ShowMessage('No Primarykey Specified!')
else
begin
s := 'ALTER TABLE table1 DROP CONSTRAINT ' ADODataset1.FieldByName('PK_NAME').AsString;
ADOConnection1.Execute(s);
ShowMessage('done!');
end;
end;

謝謝 hagar 幫我解決我困擾多時問題
真的謝謝妳