タイトル : Re^3: 抽出したレコードセットのコピー 投稿日 : 2008/05/23(Fri) 10:12 投稿者 : 來
こんなのではだめですかね Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL cn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\.mdb" strSQL = "INSERT INTO Ret1 SELECT * FROM Ret2 WHERE FG =0" rs.Open strSQL, cn, adOpenStatic, adLockOptimistic, adCmdText |