0

私はvb.netでプロジェクトを行っており、アクセス2003をバックエンドとして使用しています。ユーザーIDが「uid」である特定のユーザーのパスワード「pwd」を取得する方法が必要です。

ユーザー ID は ComboBox を使用して取得されます

4

1 に答える 1

0

始める前に、「ユーザー」は予約語であることに注意する必要があります。予約語でテーブルを操作しないでください。それはあらゆる種類の問題を引き起こします。ただし、角かっこを使用して対処できます。

あなたが求めることをする方法はたくさんありますが、これが私が通常それを扱う方法です。

まず、データ接続が必要です。使用しているCPUプラットフォームがわかりません。64ビットプロセッサの場合は、構成に移動し、ActiveSolutionPlatformを「x86」に変更する必要があります。

次に、データを保持するためのデータセットが必要です。コンボボックスにデータセットのデータを入力します。

コンボボックスから「uid」を選択した後、そのユーザーのみを検索する方法が必要になります。データビューをお勧めします。

これは、タスクを実行するためのサンプルプログラムです。私はそれを試しました、そしてそれは働きます。

Public Class Form1

Dim oleConn As New OleDb.OleDbConnection
Dim sql As String
Dim command As New OleDb.OleDbCommand
Dim oleAdapter As New OleDb.OleDbDataAdapter
Dim UserDataSet As New DataSet
Dim usid As String
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    oleConn = New OleDb.OleDbConnection
    oleConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=<< DATBASE PATH>>"
    sql = "Select * From [User]"
    oleConn.Open()
    command = New OleDb.OleDbCommand(sql, oleConn)
    command.ExecuteNonQuery()
    oleAdapter = New OleDb.OleDbDataAdapter("Select * From [User]", oleConn)
    UserDataSet = New DataSet
    oleAdapter.Fill(UserDataSet)
    oleConn.Dispose()
    cmbUid.DataSource = UserDataSet.Tables(0)
    cmbUid.DisplayMember = "uid"
End Sub
Private Sub cmbUid_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbUid.SelectedValueChanged
    usid = cmbUid.Text
    FindPWD()
End Sub
Private Sub FindPWD()
    'Create a dataview
    Dim dv As New DataView
    'Associate the dataview to _oDs (Dataset table)
    dv.Table = UserDataSet.Tables(0)
    Dim drv As DataRowView 'Data Row View object to query DataView object
    'Filter based on a combo box value selected
    dv.RowFilter = "[uid] LIKE '" & usid & "'"
    'Retrieve my values returned in the result
    For Each drv In dv
        'clear  textbox first time thru
        If x = 0 Then
            x = 1
            txtPwd.Clear()
        Else
            txtPwd.Text = drv("pwd")
        End If
    Next

End Sub

End Class
于 2013-03-04T00:51:03.047 に答える