如何將 Sql 語法 轉換成 delphi 7 對 access 之程式碼 |
尚未結案
|
jt25
一般會員 發表:14 回覆:30 積分:8 註冊:2003-08-19 發送簡訊給我 |
請問前輩 如何將下列 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
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
你好:
你是要將這段 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;
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
jt25
一般會員 發表:14 回覆:30 積分:8 註冊:2003-08-19 發送簡訊給我 |
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
|
jt25
一般會員 發表:14 回覆:30 積分:8 註冊:2003-08-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |