目前以這樣做為一次查詢
請問要怎樣才能將 strSql 查詢完的資料
再以RS內的資料 進行二次查詢呢?
- Dim rs As ADODB.Recordset '聲明記錄集對象
- Dim strSql As String
- cnn.Open "provider=microsoft.ACE.oledb.12.0;Extended Properties=EXCEL 12.0;data source=" & ThisWorkbook.FullName
- strSql = " slect 編號,類型,品名 from 原始資料 where 類型='模型'"
- rs.Open strSql, cnn, adOpenStatic
複製代碼 |