01.
Imports
System.Data
02.
Imports
System.Data.OleDb
03.
04.
05.
Public
Class
Form1
06.
Private
_dataset
As
DataSet
07.
Private
_conn
As
OleDbConnection
08.
Private
_cmd
As
OleDbCommand
09.
Private
_rowCount
As
Integer
= 0
10.
11.
Private
_position
As
Integer
= 0
12.
13.
Private
Sub
btnOK_Click()
Handles
btnOK.Click
14.
15.
Dim
sql
As
String
=
"SELECT * FROM User"
16.
_cmd =
New
OleDbCommand(sql, _conn)
17.
Dim
adapter
As
New
OleDbDataAdapter(_cmd) มัน error
18.
_dataset =
New
DataSet()
19.
Try
20.
[font=Verdana]adapter.Fill(_dataset,
"Cust"
)[/font]
21.
Catch
ex
As
OleDbException
22.
MsgBox(ex.Message)
23.
Exit
Sub
24.
End
Try
25.
_rowCount = _dataset.Tables(
"Cust"
).Rows.Count
26.
For
i = 0
To
_dataset.Tables(
"Cust"
).Rows.Count - 1
27.
If
(txtUser.Text <> _dataset.Tables(
"Cust"
).Rows(i)(
"ID_User"
))
Then
28.
If
(txtpassword.Text <> _dataset.Tables(
"Cust"
).Rows(i)(
"ID_User"
))
Then
29.
MsgBox(
"เข้าสู่ระบบ"
)
30.
31.
End
If
32.
Else
33.
MsgBox(
"กรุณากรอก ชื่อ และ passwordใหม่"
)
34.
End
If
35.
Next
36.
_conn.Close()
37.
38.
End
Sub
39.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
40.
_conn =
New
OleDbConnection(_conStr)
41.
_conn.Open()
42.
txtUser.Text =
""
43.
txtpassword.Text =
""
44.
45.
End
Sub
46.
End
Class