1

ユーザーと管理者がログインできるログインフォームがあります。管理者がログインして管理者パスワードを変更するための 2 つのデータベースを作成しました。次に、ユーザー用の 1 つがあります。

管理ウィンドウ フォーム インターフェイスでは、ユーザーとパスワードを作成し、各ユーザーに番号を割り当てることができます。

データベースにはこれらの列があります

識別子

ユーザー名

利用者パスワード

ユーザータイマー

ユーザーがログインすると、非常に基本的なユーザー インターフェイスが表示されます。これには 4 つのテキスト ボックスとボタンがあります。ボタンを押すと、4つのテキストボックスに独自のデータが入力されるようにしたかったのです。彼らがデータベースをナビゲートできるようにしたくありませんでした。または他の人の情報を参照してください。私が現在持っているコードは、データベースを検索し、一番上の行を表示します。ユーザーがログインしたものを検索する方法を教えてください。したがって、以下の例では、ユーザーが確認されると、ユーザーページに移動します。ここで、ボタンをクリックするように指示されます。私の例では「Button5」で、4 つのテキストボックスにデータが入力されます。独自のデータが必要でしたが、現時点ではデータベースの最初の行のデータです。

Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
    Dim Builder As New OleDb.OleDbConnectionStringBuilder With
        {
            .Provider = "Microsoft.ACE.OLEDB.12.0",
            .DataSource = IO.Path.Combine(Application.StartupPath, "C:\Users\Nige\Documents\Visual Studio 2012\Projects\MS_Access_SimplePassword\bin\Debug\Database1.mdb"),
            .PersistSecurityInfo = True
        }
    LoginForm.txtUserName.Text = LoginForm.txtUserName.Text

    If LoginForm.txtUserName.Text <> "" Then

    End If
    'do what you want to do
    lblName.Text = LoginForm.txtUserName.Text
    If lblName.Text = LoginForm.txtUserName.Text Then
        Builder.Add("Jet OLEDB:Database Password", "password")
        Using con As New OleDb.OleDbConnection With {.ConnectionString = Builder.ConnectionString}
            Using cmd As New OleDb.OleDbCommand With
                {
                    .Connection = con,
                    .CommandText =
                    <SQL>
                   SELECT TOP 1
            Identifier,
            UserName,
            UserPassword,
            UserTimer
            FROM tblContacts
                </SQL>.Value
                }
                con.Open()
                Dim Reader As OleDb.OleDbDataReader = cmd.ExecuteReader
                If Reader.HasRows Then
                    Reader.Read()
                    TextBox1.Text = Reader.GetInt32(0).ToString
                    TextBox2.Text = Reader.GetString(1)
                    TextBox3.Text = Reader.GetString(2)
                    TextBox4.Text = Reader.GetString(3)
                End If
            End Using
        End Using
    End If
End Sub

クラス終了

読んでくれてありがとう。大きな質問のように思えますが、誰かが私の鼻を正しい方向に向けることができたとしても、もっと読んでいただければ幸いです。誰がデータベースにサインインしているかを確認するのに WHERE 句がどのように役立つのかわかりません。WHERE 句を使用して、特定の行または名前に対するより具体的な IE 検索を行うことができます。私はそれを行う方法を知っています。システムにログインしたばかりのユーザーを確認するために実行するクエリがわかりません。2 つのデータベースに関しては、現在複数のデータベースで遊んでいます。ありがとう

4

0 に答える 0