請問各問先進... 小弟遇到一個有關於MDB的問題, 如果我要修改Table Schema要設此欄位可允許Null又 可允許零長度的字串, 我的SQL要如何下呢? (欄位原來已被設為不允許Null) 我有試過在程式裡面下 "Alter Table TableName Alter Column ColumnName Text(30) NULL;" 的SQL Command,但是沒有辦法Work, 而User端又有沒有安裝Office的問題, 請問我要如何解決這個問題呢?

Hi:    alter table TableName modify ColumnName null;    我用的是 Oracle 不知 SQL Server 是否適用 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

HI:    看來你的是 SQL Server，我試了一下，原則上指令是正確的，但請注意原欄位之 type

procedure TForm1.Button18Click(Sender: TObject);
begin
    Database1.Connected := True;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('alter table TableName alter column ColumnName char(30) null');
    Query1.ExecSQL;
    Database1.Connected := False;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

引言: HI: 看來你的是 SQL Server，我試了一下，原則上指令是正確的，但請注意原欄位之 type

procedure TForm1.Button18Click(Sender: TObject);
begin
    Database1.Connected := True;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('alter table TableName alter column ColumnName char(30) null');
    Query1.ExecSQL;
    Database1.Connected := False;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 不好意思ㄟ... 這位先進, 小弟用的不是SQL Server而是Access 我想這Command在SQL Server應該是OK的 但是在Access的資料庫中, 是有問題的

兩個辦法    1.用vba,或是import jet4.0 的 type library 到delphi,vba的程式碼:    

Sub ChangeFieldDef()
    
    Dim dbs As DAO.Database
    Dim tbl As DAO.TableDef
    
    Set dbs = CurrentDb()
    Set tbl = dbs.TableDefs("YourTable")
    
    tbl.Fields("YourField").Required = False        Set tbl = Nothing
    Set dbs = Nothing
    
End Sub

2.一樣用sql step1 加個新欄位: alter table yourtable add column newfield char(10) null step2 把舊欄位資料複製到新欄位 update yourtable set newfield=oldfield step3 移除舊攔位 alter table yourtable drop oldfield step4 讓舊欄位再度復活 alter table yourtable add column oldfield char(10) null step5 把新欄位資料複製到舊欄位 update yourtable set oldfield=newfield step6 移除新欄位 alter table yourtable drop newfield 發表人 - hahalin 於 2004/01/14 13:43:01

引言: 兩個辦法 1.用vba,或是import jet4.0 的 type library 到delphi,vba的程式碼:

Sub ChangeFieldDef()
    
    Dim dbs As DAO.Database
    Dim tbl As DAO.TableDef
    
    Set dbs = CurrentDb()
    Set tbl = dbs.TableDefs("YourTable")
    
    tbl.Fields("YourField").Required = False        Set tbl = Nothing
    Set dbs = Nothing
    
End Sub

2.一樣用sql step1 加個新欄位: alter table yourtable add column newfield char(10) null step2 把舊欄位資料複製到新欄位 update yourtable set newfield=oldfield step3 移除舊攔位 alter table yourtable drop oldfield step4 讓舊欄位再度復活 alter table yourtable add column oldfield char(10) null step5 把新欄位資料複製到舊欄位 update yourtable set oldfield=newfield step6 移除新欄位 alter table yourtable drop newfield 發表人 - hahalin 於 2004/01/14 13:43:01

Fishman與hahalin兄謝謝你們的Replay囉問題已經解決了 不過是有點麻煩...應該算是Access的Bug吧...