我是Delphi的新手用家 請問大家怎麼拿到Delphi TStringGrid的 資料再傳入DataBase呢 我現在用的語法如下<---但在運行時出現問題 "You have an error in your SQL syntax" strSQL := 'Insert Into ABC('; strSQL := strSQL 'Inventory_ID, Store_ID, Store_No '; strSQL := strSQL ') Values ('; strSQL := strSQL CGrid.Cells[2, intX] ', '; strSQL := strSQL CGrid.Cells[5, intX] ', '; strSQL := strSQL '''' StrToSQLStr(CGrid.Cells[12, intX]) ''', '; strSQL := strSQL ')'; Close; SQL.Clear; SQL.Add(strSQL); ExecSQL; 希望各大大可以教我一下 發表人 - Dark852 於 2004/09/25 10:52:20 發表人 - Dark852 於 2004/09/25 11:39:30 發表人 - Dark852 於 2004/09/25 11:47:05

strSQL := 'Insert Into ABC('; strSQL := strSQL + Inventory_ID, Store_ID, Store_No, '; 最後為什麼要多加 ',' 去掉應該不會。跟StringGrid 無關。

貼完才發現已有大大回答了，不好意思，我已經把自己重復的內容刪掉了！    注意觀察一下Cells這個屬性，按下F1，先看看Help中是如何描述的: property Cells[ACol, ARow: Integer]: string; 可以看出，該屬性返回的String類型的值，而小弟觀察您使用的欄位應該是Integer類型的吧，所以不妨利用StrToInt將其轉換一下。一點淺見，供您參考。 ================================= 人生在勤，不索何獲 業精於勤荒於嬉，行成於思毀於隨 臨淵羨魚不如退而結網 發表人 - bigdogchina 於 2004/09/25 12:25:07

------
人生在勤，不索何获？

wameng and bigdogchina 你們說的問題是我copy 出來時copy 小了 對不起 我試過了應該是以下三個的語法錯了 但我不知怎麼改 strSQL := strSQL CGrid.Cells[2, intX] ', '; strSQL := strSQL CGrid.Cells[5, intX] ', '; strSQL := strSQL '''' StrToSQLStr(CGrid.Cells[12, intX]) ''', '; 因為我試過吧 strSQL := strSQL '0001, '; strSQL := strSQL '1001, '; strSQL := strSQL '2001, '; 這樣就沒錯 所以我想是 Grid那這語法有錯吧 發表人 - Dark852 於 2004/09/25 11:50:45

會出錯的原因！ 可能是 Grid.Cells[X,Y] 內容為空字串時，可能會導致問題。 strSQL := strSQL inttostr(Strtoint(CGrid.Cells[2, intX])) ', '; strSQL := strSQL inttostr(Strtoint(CGrid.Cells[5, intX])) ', '; strSQL := strSQL '''' StrToSQLStr(CGrid.Cells[12, intX]) ''', ';