質問編集履歴
1
コードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -37,3 +37,43 @@
|
|
|
37
37
|
こうすればログイン画面で入力したIDは表示されることは理解できるのですが、ログイン画面でユーザーの名前を入力させていないので表示の仕方がわからない状態です。
|
|
38
38
|
|
|
39
39
|
ログイン画面で入力されたIDとパスワードに紐付かれた人の名前を表示したいです。
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
```
|
|
44
|
+
|
|
45
|
+
'SQL文
|
|
46
|
+
|
|
47
|
+
Dim strsql = "SELECT * FROM M_LOGIN WHERE USER_ID = '" & UseridTextBox.Text & "' AND PASSWORD = '" & PasswordTextBox.Text & "'"
|
|
48
|
+
|
|
49
|
+
'データ取得のためのアダプタ設定
|
|
50
|
+
|
|
51
|
+
Dim adapter = New MySqlDataAdapter(strsql, Cn)
|
|
52
|
+
|
|
53
|
+
'データセット
|
|
54
|
+
|
|
55
|
+
adapter.Fill(table)
|
|
56
|
+
|
|
57
|
+
'データがあるか
|
|
58
|
+
|
|
59
|
+
If table.Rows.Count > 0 Then
|
|
60
|
+
|
|
61
|
+
|
|
62
|
+
|
|
63
|
+
val = UseridTextBox.Text
|
|
64
|
+
|
|
65
|
+
'商品登録画面へ
|
|
66
|
+
|
|
67
|
+
Form2_3.Show()
|
|
68
|
+
|
|
69
|
+
Me.Hide()
|
|
70
|
+
|
|
71
|
+
Else
|
|
72
|
+
|
|
73
|
+
MsgBox("IDまたはパスワードが間違っています。" & Environment.NewLine & "もう一度入力してください。")
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
End If
|
|
78
|
+
|
|
79
|
+
```
|