vb.net ログインサンプル

2017/05/26

vb.net windowsフォームのログインサンプルです。

vb2012動作します。
ユーザー、パスワードをaccess.mdbにあるデータで認証する簡単なデモ用サンプルです。

login画面→loginチェック→メニュー画面に遷移します。

コンテンツ内容

1.ログイン用のaccessmdbを作成しuserテーブルを追加

1.1 accessのMDBを新規作成。

DB1.mdb

1.2 userテーブルを新規作成。

user password name の３つの項目を作成userテーブルを新規作成します。

項目はテキスト型の50文字ししておきます。
accessデータベースは「db1.mdb」にして適当な所に一時保存します。

1.3 userテーブルにログインデータを登録します。

ログインデータはaccessでメンテすることにします。

これでログイン用データの準備ができました。

2.vb.net windowsプログラムの作成

ここではvb.netのwindowsフォームのログインプログラムを作ります。

2.1 ログインフォームを作成します

プロジェクト＞windws フォーム＞ログインフォームを追加します

フォーム名:login.frm
ユーザー名の項目名をUser1
パスワードの項目名をpassword1にします

ublic Class Login

	Public Shared login_Name As String = ""

	Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

		Dim con1 As New OleDb.OleDbConnection
		Dim cmd1 As New OleDb.OleDbCommand

		' DB接続文字列の設定
		'con1.ConnectionString = _
		'	"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "C:\VB\main\main1\bin\Debug\db1.mdb"
		con1.ConnectionString = _
			"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & "C:\VB\login_sample\login_sample\db1.mdb"
		' コネクションの設定
		cmd1.Connection = con1

		' DB接続を開く
		con1.Open()

		' SQL文の設定
		Dim SQL As String
		SQL = "SELECT * FROM [user] WHERE user = :p1 and password = :p2"
		cmd1.CommandText = SQL

		' SQL文パラメータの設定
		cmd1.Parameters.Clear()
		cmd1.Parameters.Add(":1", OleDb.OleDbType.Char, 10)
		cmd1.Parameters(":1").Value = Me.User1.Text
		cmd1.Parameters.Add(":2", OleDb.OleDbType.Char, 10)
		cmd1.Parameters(":2").Value = Me.Password1.Text

	' データを取得する 
		Dim dt As New DataTable
		Dim adapter As New OleDb.OleDbDataAdapter(cmd1)
		adapter.Fill(dt)
		adapter.Dispose()
		If dt.Rows.Count > 0 Then
			login_Name = dt.Rows(0).Item("name")
			MsgBox(login_Name & "さんですね")
		Else
			login_Name = ""
			MsgBox("データなし")
		End If
		' DB接続を閉じる
		If Not con1 Is Nothing Then
			con1.Close()
			con1.Dispose()
		End If

		If login_Name = "" Then
			Exit Sub
		End If

		Dim f As New menu
		f.Show()
		My.Application.ApplicationContext.MainForm = f
		Me.Close()

	End Sub

ublic Class Login

Public Shared login_Name As String = ""

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim con1 As New OleDb.OleDbConnection

Dim cmd1 As New OleDb.OleDbCommand

' DB接続文字列の設定

'con1.ConnectionString = _

' "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "C:\VB\main\main1\bin\Debug\db1.mdb"

con1.ConnectionString = _

"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & "C:\VB\login_sample\login_sample\db1.mdb"

' コネクションの設定

cmd1.Connection = con1

' DB接続を開く

con1.Open()

' SQL文の設定

Dim SQL As String

SQL = "SELECT * FROM [user] WHERE user = :p1 and password = :p2"

cmd1.CommandText = SQL

' SQL文パラメータの設定

cmd1.Parameters.Clear()

cmd1.Parameters.Add(":1", OleDb.OleDbType.Char, 10)

cmd1.Parameters(":1").Value = Me.User1.Text

cmd1.Parameters.Add(":2", OleDb.OleDbType.Char, 10)

cmd1.Parameters(":2").Value = Me.Password1.Text

' データを取得する

Dim dt As New DataTable

Dim adapter As New OleDb.OleDbDataAdapter(cmd1)

adapter.Fill(dt)

adapter.Dispose()

If dt.Rows.Count > 0 Then

login_Name = dt.Rows(0).Item("name")

MsgBox(login_Name & "さんですね")

Else

login_Name = ""

MsgBox("データなし")

End If

' DB接続を閉じる

If Not con1 Is Nothing Then

con1.Close()

con1.Dispose()

End If

If login_Name = "" Then

Exit Sub

End If

Dim f As New menu

f.Show()

My.Application.ApplicationContext.MainForm = f

Me.Close()

End Sub

簡単な解説など

		con1.ConnectionString = _
			"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & "C:\VB\login_sample\login_sample\db1.mdb"

con1.ConnectionString = _

"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & "C:\VB\login_sample\login_sample\db1.mdb"

Data Source=C:\VB\login_sample\login_sample\db1.mdbにMDB保管場所を指定します。自分の環境に合わせてください。
Jet.OLEDB.4.0　でも　Microsoft.ACE.OLEDB.12.0でも動作しました。

		SQL = "SELECT * FROM [user] WHERE user = :p1 and password = :p2"

23	SQL = "SELECT * FROM [user] WHERE user = :p1 and password = :p2"

SQL文です。:P1 :P2がバインド変数で画面のuser,passwordを渡しています。
バインド変数は順番名前ではなく項目順にバインドされます。
ちなみに[user] を「」で囲むまないとエラーになります。テーブル名をuserにしないほうがいいですね。

こんな感じ

ＯＫポタンを押す
↓
画面ＵＳＥＲ、ＰＡＳＳＷＯＲＤでＭＤＢのユーザー検索
↓
有れば名前をlogin_Nameにセットする
無ければ「データなし」を表示
↓
有れば画面をメニュー画面にする

これでlogin.vbは完成です

3.ログイン後のメニュー作成

menu.vb

Public Class menu

	Private Sub menu_Load(sender As Object, e As EventArgs) Handles Me.Load
		Me.Label1.Text = Login.login_Name
	End Sub

	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		Dim result
		result = MessageBox.Show("終了しますか？", "メッセージ", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
		If result = vbOK Then
			End
		End If
	End Sub

End Class