使用 ACCESS OR SQL 2000 資料庫 如 ftname varchar(30) 如何增長 ftname varchar(40) 如何判斷該欄size=30作變更ㄋ? if Length(adoquery1.FieldByName('ftname').AsString) = 30 then /// 此行只求資料值的長度無法知size,如何取size值? ALTER Table AccHead ALTER COLUMN ftname Varchar(40)

您好﹗    使用SQL語法可以達到效果﹕ Alter Table 資料表名稱 Alter Column 欄位名 Char(40)    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

謝謝 cashxin2002 如何得知該欄 size 值(預設值) if Length(adoquery1.FieldByName('ftname').AsString) = 30 then ...... ftname size:30 資料內容不定有長有短 Length(adoquery1.FieldByName('ftname').AsString) 有的6 ,有的 12.....

引言: 謝謝 同事chubby 搶先幫我回覆 希望有前輩幫忙解難題?

chubby, nick167﹕您好﹗    使用資料集元件的欄位編輯器﹐雙擊資料集元件的欄位編輯器﹐在空白處點Mouse右鍵﹐然后選擇[add all Fields...]﹐在欄位編輯器中加入所有的欄位﹐然后用程式碼回傳相關欄位的Size長度﹕

Var
  I: Integer;
begin
  I := ADOQuery1Name.Size;
  //比如說ADOQuery1中的有個欄位名為Name﹐在加入到欄位編輯器中
  //此欄位的名稱即為ADOTableName
  ShowMessage(IntToStr(I));
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

procedure TForm1.Button1Click(Sender: TObject); Var Q1:TQuery; begin Table1.Close; Table1.Open; if Table1.FieldByName('ftNAME').Size =30 then begin Q1:=TQuery.Create(nil); Q1.Close; Q1.SQL.Clear; Q1.SQL.Add('ALTER TABLE Cust ALTER Column ftNAME varchar(40) '); Q1.ExecSQL; Q1.Destroy; end; end; 山即是我 我即是山

------
學了這麼久還是沒進步

謝謝 ph

請問各位先進
最近開始學DELPHI,想要對資料庫作處理,
如果要擷取資料欄位的長度和型態,不知要如何做
因為我用下面的方法,欄位若是字元能秀出來位數,但是如果是數字欄位都是0,請幫忙解答!謝謝!
For i := 0 to tb.fields.count - 1 do
cb.items.add(tb.fields.FieldName '-' IntToStr(tb.fieldByName(tb.Fields.FieldName).size));
字元OK
數字=0