請問前輩 如何將下列 Sql 語法 轉換成 delphi 7 對 access 之程式碼 DECLARE @au_user_id1 varchar(10), @au_empl_no varchar(4), @au_amount money DECLARE authors_cursor CURSOR FOR SELECT ct_backup.user_id1,ct_backup.amount,employee.empl_no FROM ct_backup,employee WHERE ct_backup.user_id1 = employee.user_id1 OPEN authors_cursor FETCH NEXT FROM authors_cursor INTO @au_user_id1, @au_amount,@au_empl_no WHILE @@FETCH_STATUS = 0 BEGIN INSERT INTO salary VALUES ('92/10/22', @au_empl_no, @au_amount ,0) FETCH NEXT FROM authors_cursor INTO @au_user_id1, @au_amount,@au_empl_no END CLOSE authors_cursor DEALLOCATE authors_cursor

你好： 你是要將這段 Code 寫入 Access還是要把這段改寫為 > 如果是第一項肯定不行，因為 class="code"> begin // 請自行拖拉 TADOQuery 與 TADOCommand 元件並設定 Connection 屬性 AdoQuery1.SQL.Text := 'SELECT ct_backup.user_id1,ct_backup.amount,employee.empl_no FROM ct_backup,employee WHERE ct_backup.user_id1 = employee.user_id1'; AdoQuery1.Active := true; while not AdoQuery1.Eof do begin AdoCommand1.CommandText := format ('INSERT INTO salary VALUES (''92/10/22'', ''%s'', ''%s'' ,0)', [AdoQuery1.FieldByName('au_empl_no').AsString, AdoQuery1.FieldByName('au_amount').AsString]); AdoCommand1.Execute; AdoQuery1.Next; end; end;

好像在access里的SQL語法中，用的引號全都是雙引號~~~~~還有STORE PROCEDURE不支援，針對這二個做修改，大部份的資料還是可以執行的起來的 我不懂，不懂，不懂....所以我才來ktop學工夫

嗨 ha0009 版主 你好 經測試後應該可以 但是還有小問題 附上錯誤訊息 請幫忙解讀 Thanks!!    

你好： 這個錯誤是資料庫設計的問題喔。請作如下的檢查。 1. 主鍵值必須是唯一值，請檢查主鍵(PK)的 Field 是否設置適當。 2. 請檢查各個索引鍵是否有設定唯一屬性，如果有則需作是當修改。 3. 請檢查關聯的設定，是否有相一的欄位無法對應。    

謝謝版主找到問題 原來是需要唯一值  Thanks!!