Guest User

Untitled

a guest
Aug 23rd, 2019
76
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim rs As ADODB.Recordset
  2. Dim sSql As String
  3.  
  4. rs = New ADODB.Recordset
  5. '# SQL生成
  6. sSql = "SQL文"
  7.  
  8. '# ↓ここでクライアント側を指定
  9. rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
  10.  
  11. rs.Open(sSql, cn, adOpenDynamic, adLockOptimistic, adCmdText)
RAW Paste Data