VB.NET 求助:数据库查询取不到数据

_山枕寒流_ 2020-04-26 11:26:08

Imports MySql.Data.MySqlClient
Public Class Form1
'数据连接对象
Dim con As New MySqlConnection
Dim comm As New MySqlCommand

'登录数据
Dim user As String
Dim pas As String
REM 登录功能
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'提取输入条件
user = Username.Text
pas = Password.Text
Debug.Print(user + Chr(10) + pas)
'查询语句
Dim sql As String = "select * from userinfo where userName = '" & user & "'"
Debug.Print(sql)
comm = New MySqlCommand(sql, con)
Dim da = New MySqlDataAdapter(sql, con)
Dim dt = New DataSet()
da.Fill(dt, "sql")
MsgBox(dt.Tables("sql").Rows.Count)
con.Close()


End Sub
'取消功能
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Username.Text = ""
Password.Text = ""
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'数据连接
con.ConnectionString = "Server=127.0.0.1;UserID=root;Password=12345;Database=candy"
con.Open()
'数据连接状态判别
If con.State = ConnectionState.Open Then
Debug.Print("数据库连接成功!")
Else
Debug.Print("数据库连接失败!")
End If
End Sub

End Class





请问是哪里出了问题?
...全文
487 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
wqnmlgj 2020-06-23
  • 打赏
  • 举报
回复
sql语句逻辑有问题吧,这样写不香吗?"select * from userinfo where userName = '" & Username.Text & "' and password = '" & Password.Text & "' 判断是否有返回值再执行下一步
程序下载地址:http://www.dxbbs.cn/down/dxbbs.rar一:程序信息程序版本号:DXBBS 6.1 AC免费版开发语言:ASP.NET ( C# )开发组织:DX 开发组联系E-MAIL:dx-studio@163.comMSN: dx-studio@hotmail.com技术QQ:86834856客服QQ:6192665官方论坛:http://www.dxbbs.cn DXBBS 论坛系统是 DX 工作组原创开发的一套ASP.NET论坛程序,V6.0 版本采用VB.NET编写,V6.1 版本后采用C#编写。DXBBS论坛系统,以最小的文件体积实现最多的功能。程序运行速度极速,几乎可以100%保证的程序安全性,高贵大方的美工界面是DXBBS论坛V6.1版本的主要特色。程序分SQL专业版与ACCESS免费版两种版本,当前版本为ACCESS免费版本。所有人可以免费使用。如果问题,请到官方论坛http://www.dxbbs.cn提出。《《未经允许不得用于商业用途。如有需要请与我们联系》》二:安装使用说明第一步:将所有文件上传到你的服务器空间。第二步:如果你放论坛程序的文件夹是虚拟主机的根目录,请跳过这一步,如果不是,将BIN文件夹移到虚拟空间根目录。第三步:如果需要修改数据库名,请修改了数据库名后,再用记事本打开修改 web.config 文件里的数据库连接字符串。如果不改数据库名,跳过这一步。(建议修改)第四步:访问论坛,如果能正常访问,进入后台管理配置论坛设置,管理员用户名和密码都为 admin。登录后自行修改管理员密码。 如果不能正常访问,检查一至三步骤,或到官方论坛 http://www.dxbbs.cn 求助。三:V 6.1 新功能说明:1。加入论坛IP过滤功能,可以禁止指定的IP访问论坛。2。加入脏字过滤功能,可以对论坛发贴内容中的某些字符进行指定的转换。3。加入特色引用功能,论坛引用功能采用JS脚本引用,高效,快速。4。加入用户头像后台管理功能,管理员可以在后台动态管理论坛用户头像。5。加入发贴表情后台管理功能,管理员可以在后台动态管理论坛发贴表情。6。加入用户组代表图片后台管理功能。7。加入不同用户组允许上传文件数量,文件大小设置。8。加入贴子和回复的屏蔽与解屏蔽功能。9。加入锁定用户功能。

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧