VBでAccessにSQL文を実行して値を取り出す

Question

下記のソースは、
UserIDとPasswordをDBと照らし合わせて、
そのUserが存在すればTrue、存在しなければFalse
を返すというプログラムです。

しかし初めてDBに接続し、まったく右も左も分からない
状況なので処理的におかしな点を教えていただけないでしょうか。
またDB接続からSQL実行までの簡単な流れを教えていただけると助かります。

adoRs = ADODB.Recordset
adoCn = ADODB.Connection
adoCd = ADODB.Command

Login.txtName.Text = 比較するユーザー名
Login.txtPass.Text = 比較するパスワード

です。その他わかりにくい点があったら質問を
お願いします。

Private Function Func_UserSerch() As Boolean

    Func_UserSerch = False
    
    On Error GoTo UserSerchError
    
    'レコードセットの取得
    With adoRs
        .ActiveConnection = adoCn
        .Source = "user"
        .CursorType = adOpenStatic
        .LockType = adOpenForwardOnly
        .Properties("IRowsetIdentity") = True
        .Open
    End With
    
    MySQL = "SELECT * FROM user " & _
            "WHERE UserID = " & Login.txtName.Text & _
            "AND Password = " & Login.txtPass.Text & ";"

    'SQLの実行
    With adoCd
        .ActiveConnection = adoCn
        .CommandType = adCmdStoreProc
        .CommandText = MySQL
        .Execute
    End With
    
    If adoRs.EOF = True And adoRs.BOF = True Then
        
        Func_UserSerch = False
    
    Else
    
        Func_UserSerch = True
        
    End If
    
UserSerchError:
    MsgBox "SQL実行中にエラーが発生しました"
    
End Function

noname#27115 · Accepted Answer

動くサンプルを作ってみました。

DBファイルはC:\VB\DB\USER.mdb

ポイントはパラメータが文字列の場合、" ' " で囲ってやる必要があるところです。
TrueかFalseはレコード数でチェックしてはどうでしょうか？ 0でなければ True・・・


Private Function Func_UsemyRSerch()

    Dim myCN As ADODB.Connection
    Dim myRS As ADODB.Recordset
    Dim mySQL As String
    Dim Para(1) As String
    
    
    ' データベースに接続
    Set myCN = New ADODB.Connection
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
                        & "Data Source=C:\VB\DB\USER.mdb"
    myCN.Open
    
    Para(0) = "UserName"        'ID
    Para(1) = "PassWord"        'PASS
    
    ' 選択クエリーを作成    (文字列は " ' " で囲む必要あり)
    mySQL = "SELECT * FROM ユーザー管理 " _
          & "WHERE ユーザー名 = '" & Para(0) & "' AND パスワード = '" & Para(1) & "'"
    
    
    ' レコードセットを取得
    Set myRS = New ADODB.Recordset
    myRS.Open mySQL, myCN, adOpenStatic
    
    '認証されるかどうかはレコード数でチェック
    If myRS.RecordCount >= 1 Then
        Func_UserSerch = True
    Else
        Func_UserSerch = False
    End If
    
End Function

noname#27115 · Answer

とりあえずはどのMDBに接続するかが抜けている気がします。

Set adoCn = New ADODB.Connection

    adoCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
                        & "Data Source=C:\VB6\DB\abc.mdb"

    adoCn.Open

って感じでしょうか？

VBでAccessにSQL文を実行して値を取り出す

動くサンプルを作ってみました。

とりあえずはどのMDBに接続するかが抜けている気がします。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング