2

これが MS Access で可能かどうかはわかりませんが、ダッシュ (-) を検出し、SQL ステートメント内で Between を使用したり、カンマを使用したりしたいと考えています。

元。フィールドを持つ「Books」というテーブルがあります：BookID、Title、Subject。

次のように、ユーザーがテキストボックスに値を入力できるようにする Books テーブルをクエリするにはどうすればよいですか。

1 or 1-5 or 1,3,4.

値が 1 の場合、SQL ステートメントは次のようになります。

SELECT * FROM Books WHERE BookID = 1

値が 1 ～ 5 の場合、SQL ステートメントは次のようになります。

SELECT * FROM Books WHERE BookID BETWEEN 1 And 5

値が 1,3,4 の場合、SQL ステートメントは次のようになります。

SELECT * FROM Books WHERE BookID IN (1,3,4)
4

2 に答える 2

3

私がすでに持っているものから切り取ります。

s = "SELECT * FROM Books WHERE BookID" & parseSarg("11,22,33")

使用する;

Public Function parseSarg(str As String) As String
    Dim re As Object: Set re = CreateObject("vbscript.regexp")
    re.Global = True
    Select Case True
        '//is number
        Case reTest(re, "^\d+$", str):          parseSarg = " = " & str
        '//is number-number
        Case reTest(re, "^\d+-\d+$", str):      parseSarg = " BETWEEN " & Replace$(str, "-", " AND ")
        '//is number,number[,number]
        Case reTest(re, "^\d+(?:,\d+)*$", str): parseSarg = " IN (" & str & ")"
        '//is >number
        Case reTest(re, "^>\s*\d+$", str):      parseSarg = " >" & Mid$(str, 2)
        Case Else
            parseSarg = " = 0 AND 1=0"
    End Select
End Function

Function reTest(re As Object, pattern As String, value As String) As Boolean
    re.pattern = pattern
    reTest = re.Test(value)
End Function
于 2012-06-21T13:59:35.577 に答える
0 
SELECT Books.Title FROM Books WHERE Books.BookID > 1 AND Books.BookID < 5;
于 2012-06-21T13:56:33.980 に答える