'信息的取得
Private ReadOnly selectProdInfoSel As String = _
"SELECT " & vbCrLf & _
" A.NO, " & vbCrLf & _
" A.WRENCH_TTTT, " & vbCrLf & _
" A.USE_BBBBB, " & vbCrLf & _
" A.USE_VVVVV, " & vbCrLf & _
" A.USE_AAAA, " & vbCrLf & _
" A.USE_XXXX, " & vbCrLf & _
" A.STANDARD_WWW, " & vbCrLf & _
" A.QQQQ_LIMIT, " & vbCrLf & _
" A.LWWW_LIMIT, " & vbCrLf & _
" A.TENO, " & vbCrLf & _
" A.NO_AASIGN " & vbCrLf & _
" FROM MS_AAA A " & vbCrLf & _
"WHERE A.DELETE_FLG = '0' " & vbCrLf & _
"and A.NO LIKE '%' || :1 || '%'"
【:1】表示参数