基于mysql的登录系统在VB.net中检测用户id
我创建了一个表单,该表单有一个连接到MySQL数据库的登录系统,信息生成一个包含3列的表:用户ID、用户名和电子邮件 表格表示法:基于mysql的登录系统在VB.net中检测用户id,mysql,vb.net,Mysql,Vb.net,我创建了一个表单,该表单有一个连接到MySQL数据库的登录系统,信息生成一个包含3列的表:用户ID、用户名和电子邮件 表格表示法: +---------+-------------+--------------------+ | user_id | username | email | +---------+-------------+--------------------+ | 1 | test1 | e
+---------+-------------+--------------------+
| user_id | username | email |
+---------+-------------+--------------------+
| 1 | test1 | email@domain.com |
| 2 | test2 | user2@email.com |
+---------+-------------+--------------------+
当表单打开要求他们输入用户名和电子邮件时,我想知道应用程序是否可以验证该数据集并检测用户ID,然后将用户ID放入文本框中
示例:我使用帐户“test1,放入您的电子邮件”登录email@domain.com“
我点击“登录”,然后咨询用户id帐户“test1”,并将用户id放入文本框“txtUserID”
我到目前为止的进展(登录按钮)我只需要咨询一下用户id:
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
MySqlConnection = New MySqlConnection
MySqlConnection.ConnectionString = "server=Host;Port=3306; user id=Username;password=password; database=database_name"
MySqlConnection.Open()
Dim MyAdapter As New MySqlDataAdapter
Dim sqlquery = "SELECT * FROM xf_user WHERE username='" & txtUsername.Text & "' AND email='" & txtPassword.Text & "';"
Dim command As New MySqlCommand
command.Connection = MySqlConnection
command.CommandText = sqlquery
MyAdapter.SelectCommand = command
Dim Mydata As MySqlDataReader
Mydata = command.ExecuteReader
If Mydata.HasRows = 0 Then
Form4.Show()
Else
Timer1.Start()
End If
End Sub
我希望这是可能的,要注意的不是我有很多经验,如果我是专家也可以帮助我
谢谢。试试这个
If Mydata.HasRows = 0 Then
Form4.Show()
txtUsername.Text=Mydata.Item(0) //sample code
Else
Timer1.Start()
End If
更新
MySqlConnection = New MySqlConnection
MySqlConnection.ConnectionString = "server=Host;Port=3306; user id=Username;password=password; database=database_name"
MySqlConnection.Open()
Dim sqlquery = "SELECT user_id FROM xf_user WHERE username='" & txtUsername.Text & "' AND email='" & txtPassword.Text & "';"
Dim command As New MySqlCommand
command.Connection = MySqlConnection
command.CommandText = sqlquery
Dim user_id as string = command.executescalar
user\u id
string包含的用户id等于表中的用户名和电子邮件,因此您可以将其放入如下文本框:
TextBox1.Text = user_id
这个方法到底是什么?我更改了sql以计算表中的行数,并将结果放入字符串中,然后检查count=1或否Form4是否会显示Hanks,但这不是我想要的,我更新了问题以便更好地理解。@RiuChan在您的例子中它等于
Mydata.item
,我更正了Ans