-通过语句“@Logan:我不确定有多少旧的提供程序是通过.NET层公开的。@Logan:在这里看看Paul Clement的QueryDef方法，看看是否可以适应您的目的；您可以封装SQL语法，这可能会使oledb不受影响： SELECT qryAsOf

---

-通过语句“@Logan:我不确定有多少旧的提供程序是通过.NET层公开的。@Logan:在这里看看Paul Clement的QueryDef方法，看看是否可以适应您的目的；您可以封装SQL语法，这可能会使oledb不受影响：

SELECT qryAsOf.name, qryAsOf.type, 0 as opt, 0 as swap
INTO qryCon
FROM qryAsOf
LEFT JOIN qryLinked on qryAsOf.c = qryLinked.lc

cm.CommandText = "CREATE TABLE qryCon (etc...)"
cm.ExecuteNonQuery()
cm.CommandText = "INSERT INTO qryCon SELECT ..." '(rest of query above without INTO line)
cm.ExecuteNonQuery

cm.CommandText = "CREATE PROC qryCon AS SELECT ..." '(same select as above without INTO, again)
cm.ExecuteNonQuery

cm.CommandText = "SELECT * FROM storedProc"
dr = cm.ExecuteReader

while dr.Read
    cm.CommandText = "INSERT INTO qryCon VALUES (dr.GetValue(0), dr.GetValue(1), dr.GetValue(2), dr.GetValue(3))
    cm.ExecuteNonQuery
end while

SELECT qryAsOf.name, qryAsOf.type, 0 as opt, 0 as swap
FROM qryAsOf
LEFT JOIN qryLinked on qryAsOf.c = qryLinked.lc

If reader.HasRows Then
   Do While reader.Read()
      Console.WriteLine(reader.GetInt32(0) & vbTab & reader.GetString(1))
   Loop       
Else
   Console.WriteLine("No rows found.")
End If