我想從表中選擇300行，並再次將它們插入到同一表

Question

我有一個表[的Emp]有以下的列：

的EmpID，
EmpName，
EmpLastName，
EmpSalary，
月，
年，
創建ModDate

我要使用約300記錄從上月創造300個新的記錄到同一個表與sa除了我想在插入語句中修改的月份屬性之外的值。

我想爲此使用MS Access + vb6。

如果你能幫我解決這個問題，我會很感激。

我想執行的查詢如下：

INSERT INTO Emp (EmpID, EmpName, EmpLastName, EmpSalary, [Month], [Year], ModDate) 
SELECT Emp.EmpID, Emp.EmpName, Emp.EmpLastName, Emp.EmpSalary, 4 AS Expr1, Emp.[Year], Now() AS Expr2 
FROM Emp 
WHERE (((Emp.[Year])=2013) AND ((Emp.[Month])=3)) 

Answer 1

你想要達到什麼樣的本質是一樣的;下面，選擇記錄2013年3月，並將其插入到同一個查詢表2013年4月：

INSERT INTO Emp (EmpID, EmpName, EmpLastName, EmpSalary, [Month], [Year], ModDate) 
SELECT Emp.EmpID, Emp.EmpName, Emp.EmpLastName, Emp.EmpSalary, 4 AS Expr1, Emp.[Year], Now() AS Expr2 
FROM Emp 
WHERE (((Emp.[Year])=2013) AND ((Emp.[Month])=3)) 

[編輯]

上面的查詢假設[月]是Numeri c欄。如果[月]是一個文本列，則相應的查詢將然而

INSERT INTO Emp (EmpID, EmpName, EmpLastName, EmpSalary, [Month], [Year], ModDate) 
SELECT Emp.EmpID, Emp.EmpName, Emp.EmpLastName, Emp.EmpSalary, 'April' AS Expr1, Emp.[Year], Now() AS Expr2 
FROM Emp 
WHERE (((Emp.[Year])=2013) AND ((Emp.[Month])='March')) 

注意的是，存儲一個月號是更喜歡到存儲一個月名。將該列保留爲文本可能會導致不必要的複雜情況。

[/編輯]

你的VB6代碼可以構造這樣的字符串，用VB函數的結果等Year()，Month()等取代了硬編碼值（並遞增一年December- > 1月）。一旦你構建了SQL字符串，你可以使用你建立的數據庫連接來執行它（最有可能使用像.Execute這樣的方法）。