如何在Visual Basic标签中打印mysql数据
如何在Visual Basic标签中打印mysql数据
提问于 2020-08-08 23:07:12
我是mysql的新手，想了解更多关于它的知识。现在，我正在努力改进，并通过创建自己的登录表单来让它变得更舒适一些。它包括时间限制，这意味着您可以登录一段时间，直到您的登录无效。我已经管理好了，现在我想用VB程序读取数据库。有一个日期，直到有人可以登录到他的帐户。我想将这个日期从mysql数据库打印到vb.net中的一个标签中。我已经知道如何从索引页读取文本，但我几乎找不到用于visual basic和mysql的任何东西来读取一个值而不是整个块的数据，并在程序中显示它。我非常感谢您的帮助。
代码的简要摘要：
我有一个用户名登录。它读取本地时间并将其与MySQL数据库中的时间进行比较。如果本地时间不超过数据库时间，您将登录。我想在我的程序中的标签中显示数据库中的时间。到目前为止我得到的代码：
connection.Open()
Dim command2 As New MySqlCommand("SELECT `id`, `time` FROM `auth` WHERE `id` = @username AND `time` > @time", connection)
command2.Parameters.Add("@username", MySqlDbType.VarChar).Value = TextBoxUsername.Text
command2.Parameters.Add("@time", MySqlDbType.VarChar).Value = DateTime.Now
Dim adapter2 As New MySqlDataAdapter(command2)
Dim table2 As New DataTable()
adapter2.Fill(table2)
If table2.Rows.Count = 0 Then
MessageBox.Show("No more time left" & vbCrLf & vbCrLf &")
connection.Close()
Else
MessageBox.Show("logged in")
connection.Close()
Dim date = [whatever i need here to get the date from the database]
Label4.Text = "Logged in as " & username & "Expire Date: " & date回答 1
Stack Overflow用户
发布于 2020-08-09 00:00:20
找到答案了。
我刚添加了
If table.Rows.Count > 0 Then
Dim s As String = table.Rows(0)("time").ToString()
MessageBox.Show(s)
End If页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63316897
复制相关文章
相似问题
腾讯云开发者
