質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

Visual Studio 2012

Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

2回答

10494閲覧

[VB.NET] ログイン認証画面について

reeeo

総合スコア42

MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

Visual Studio 2012

Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

2クリップ

投稿2017/07/26 05:36

編集2017/07/26 05:55

開発環境
・visualstudio2012
・windows7
・.net4
・mysql

windowsフォームでログイン画面を作成しています。
ログイン画面を押下したらデータベースに登録されているか確認し、登録されていれば画面遷移するようにしたいです。
色々なサイトも見ましたが、これというものがなくて自力で解決できませんでした。
入力チェックはできていますが、テーブルにデータを確認しにいくのが上手くできません。

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim Cn As New MySqlConnection("server=*;user id=*;persistsecurityinfo=True;database=*") Dim sqlcm As MySqlCommand = Cn.CreateCommand Dim adapter As New MySqlDataAdapter(sqlcm) Dim table As New DataTable '入力チェック If UseridTextBox.Text = "" Then MsgBox("IDを入力してください。") Return ElseIf PasswordTextBox.Text = "" Then MsgBox("パスワードを入力してください。") Return End If Try Dim strsql = "SELECT * FROM M_ROGIN WHERE USER_ID = '" & UseridTextBox.Text & "' AND PASSWORD = '" & PasswordTextBox.Text & "'" adapter = New MySqlDataAdapter(strsql, Cn) Dim ds As New DataSet adapter.Fill(ds) 'If Then ' '商品登録画面へ ' Form2_3.Show() ' Me.Hide() 'End If Catch ex As Exception MsgBox("IDまたはパスワードが間違っています。" & Environment.NewLine & "再入力してください。") End Try End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Tak1wa

2017/07/26 05:50

やりたいことはわかりましたが、具体的な問題点を記載してください。何が出来なくて何が出来るのか
reeeo

2017/07/26 05:56

修正しました。
guest

回答2

0

ベストアンサー

こんにちは。

まず、SQLインジェクションなどセキュリティ面の問題がありますがここでは割愛します。
別途調べたほうが宜しいかと思います。

本題ですが、現在 adapter.Fill(ds) 後にdsにテーブルとレコードはセットされていますでしょうか。
セットされていればOK、されていなければNGでとりあえず判定できると思います。

そこまでの確認は出来ているのであれば、更に何が問題なのか情報を提示してください。

投稿2017/07/26 06:02

Tak1wa

総合スコア4791

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

reeeo

2017/07/26 06:10

回答ありがとうございます。 セットはできていますが判定のところの記述がわかりません。
Tak1wa

2017/07/26 06:14

データセットのテーブルの行数をカウントする、でも良いと思いますよ。 ds.Tables["M_ROGIN"].Rows.Count <> 0
reeeo

2017/07/26 06:32

If table.Rows.Count > 0 Then で正しい情報を入力したら遷移できるようになったのですが、登録されていないデータを入力して押下したら何も反応しなくなりました。登録されていないデータを入力したらエラーメッセージを出したいのですがどうしたらいいですか?
Tak1wa

2017/07/26 06:38

Else で MessageBox.Showなどでメッセージを出しては。
Tak1wa

2017/07/26 06:39

`MsgBox("IDまたはパスワードが間違っています。" & Environment.NewLine & "再入力してください。")` これと同じで良いかと
reeeo

2017/07/26 06:41

ありがとうございます。できました!!
guest

0

単純にデータが存在するかどうかということならば、
DataTableとかDataReaderに入れて、
HasRowsとかDataTableのRows.Countで判断できるかと思います。

VB.net

1Dim dt As New DataTable 2adapter.Fill(dt) 3 4If dt.HasRows Then 5 'レコードが存在する場合の処理 6End 7 8'If dt.Rows.Count > 0 Then 9' 'レコードが存在する場合の処理 10'End 11

投稿2017/07/26 06:05

編集2017/07/26 06:40
airia

総合スコア33

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

reeeo

2017/07/26 06:33

回答ありがとうございます。 If table.Rows.Count > 0 Then で正しい情報を入力したら遷移できるようになったのですが、登録されていないデータを入力して押下したら何も反応しなくなりました。登録されていないデータを入力したらエラーメッセージを出したいのですがどうしたらいいですか?
airia

2017/07/26 06:38

同じIF文にElseを追加して、分岐するといいと思います。 If table.Rows.Count > 0 Then  ’データが存在する Else  ’データが存在しない End If
reeeo

2017/07/26 06:41

ありがとうございます。できました!!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問