資料庫都是用mssql，有兩個表格,temp及Export。temp的欄位有thing_no(char),weight(float),money(money);Export的欄位有thing_no(char),weight(float),money(money)..... 與sql連線是用Database，Query,Table。Table連temp表格。 新增的動作如下 Table.first; while not Table.Eof do begin Query.close; Query.sql.add('insert into Export(thing_no,weight,money)'); Query.sql.add('values ("' Table.fields[0].asstring '",?????????,)'); Query.Excesql; Table.next; end; 請問大大們，??的地方該怎麼寫，因為是float格試我試了很多還是寫不出來，請大大教一下....

Hi jacosun,    

Table.first;
while not Table.Eof do 
    begin
        Query.close;
        Query.sql.add('insert into Export(thing_no,weight,money) ');
        Query.sql.add('values ('  QuotedStr(Table.Fields[0].AsString)   ','   
                                  Table.Fields[1].AsString   ','   
                                  Table.Fields[2].AsString   ')');
        Query.Excesql;
        Table.next;
    end;
        假設 temp 與 Export 來源為同一個 DataBase 則可以
Query.close;
Query.sql.add('insert into Export(thing_no,weight,money) ')   
              'select thing_no,weight,money from TempTable');
Query.Excesql;
Table.next;

發表人 -

------
Fishman

引言: Hi jacosun,

Table.first;
while not Table.Eof do 
    begin
        Query.close;
        Query.sql.add('insert into Export(thing_no,weight,money) ');
        Query.sql.add('values ('  QuotedStr(Table.Fields[0].AsString)   ','   
                                  Table.Fields[1].AsString   ','   
                                  Table.Fields[2].AsString   ')');
        Query.Excesql;
        Table.next;
    end;
        假設 temp 與 Export 來源為同一個 DataBase 則可以
Query.close;
Query.sql.add('insert into Export(thing_no,weight,money) ')   
              'select thing_no,weight,money from TempTable');
Query.Excesql;
Table.next;

發表人 - >< face="Verdana, Arial, Helvetica"> 請問大大，在sql不用管他的欄位格式嗎??QuotedStr<==這個是啥意思?? 發表人 - jacosun 於 2004/03/31 13:06:38

Hi jacosun,    不用管格式 如果是 Float 用 AsString 即可，若為 String 則須 QuotedStr(Table.Fields[0].AsString)，只要是產生你的 SQL Command，SQL Command 怎麼寫，這裡就怎麼做    QuotedStr Delphi Help 說明如下：

Returns the quoted version of a string.    Unit    SysUtils    Category    String handling routines    function QuotedStr(const S: string): string;    Description    Use QuotedStr to convert the string S to a quoted string. A single quote character (') is inserted at the beginning and end of S, and each single quote character in the string is repeated.    Note:        When working with multi-byte character systems (MBCS), use AnsiQuotedStr instead.

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

------
Fishman

引言: Hi jacosun, 不用管格式 如果是 Float 用 AsString 即可，若為 String 則須 QuotedStr(Table.Fields[0].AsString)，只要是產生你的 SQL Command，SQL Command 怎麼寫，這裡就怎麼做 QuotedStr Delphi Help 說明如下：

Returns the quoted version of a string.    Unit    SysUtils    Category    String handling routines    function QuotedStr(const S: string): string;    Description    Use QuotedStr to convert the string S to a quoted string. A single quote character (') is inserted at the beginning and end of S, and each single quote character in the string is repeated.    Note:        When working with multi-byte character systems (MBCS), use AnsiQuotedStr instead.

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 感謝大大，搞定了。怪了...之前我也有用文字的下去跑 他就是不動說 >"< 總之謝謝 ^^