vba Recordset与文件复制

Private Sub Button_Click()
FileCopy "C:\Users\Ming\Desktop\a.txt", "C:\Users\Ming\Desktop\b.txt"
End Sub

Private Sub Command3_Click()
Dim dst As Recordset
Dim str As String
Dim out As String
str = "Select * From User where user_name='" & Forms![Main]![tName] & "'"
Set dst = CurrentDb.OpenRecordset(str)

If dst.EOF Then
MsgBox ("id不存在")
Else
out = dst.Fields("id")
MsgBox out, vbOKOnly, "id"
End If
Set dst = Nothing
End Sub


① 確認SQL 
 -- PART整備DOCUMENT明細改訂履歴マスタ【SCPMPARTDOCUMENTDETHIST】
SELECT * FROM SCPMPARTDOCUMENTDETHIST 
WHERE ID IN (110000041,110000027,110000018,110000019,110000020,110000028,110000066,110000001,
             110000067,102000158,102000198,102000199,102000200,102000284,102000007,102000177)
ORDER BY ID;


② 更新SQL 
 -- 更新用スクリプト
UPDATE SCPMPARTDOCUMENTDETHIST 
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    DELFLAG = 'TRUE'
WHERE ID IN (110000041,110000027,110000018,110000019,110000020,110000028,110000066,110000001,110000067);
            

UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-10-01'
WHERE ID = 102000158;
            

UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-10-11'
WHERE ID IN (102000198,102000199,102000200);


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-10-17'
WHERE ID = 102000284;


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-10-19'
WHERE ID = 102000007;


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-10-17'
WHERE ID = 102000177;


③ 更新確認SQL 
 -- PART整備DOCUMENT明細改訂履歴マスタ【SCPMPARTDOCUMENTDETHIST】
SELECT * FROM SCPMPARTDOCUMENTDETHIST 
WHERE CAST(UPDATEDATE AS DATE) = CAST(CURRENT_TIMESTAMP AS DATE) AND UPDATEUSER = 'HOSYU' 
ORDER BY ID;


④ リカバリSQL 
 -- リカバリ用スクリプト
UPDATE SCPMPARTDOCUMENTDETHIST 
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    DELFLAG = 'FALSE'
WHERE ID IN (110000041,110000027,110000018,110000019,110000020,110000028,110000066,110000001,110000067);
            

UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2012-07-09'
WHERE ID = 102000158;
            

UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2010-08-26'
WHERE ID IN (102000198,102000199,102000200);


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2009-12-10'
WHERE ID = 102000284;


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2010-01-05'
WHERE ID = 102000007;


UPDATE SCPMPARTDOCUMENTDETHIST
SET VERSION = VERSION+1,
    UPDATEDATE = NOW(), 
    UPDATEUSER = 'HOSYU',
    availabledate = '2011-10-24'
WHERE ID = 102000177;
            

⑤ リカバリ確認SQL 
 -- PART整備DOCUMENT明細改訂履歴マスタ【SCPMPARTDOCUMENTDETHIST】
SELECT * FROM SCPMPARTDOCUMENTDETHIST 
WHERE CAST(UPDATEDATE AS DATE) = CAST(CURRENT_TIMESTAMP AS DATE) AND UPDATEUSER = 'HOSYU' 
ORDER BY ID;