首页
社区
课程
招聘
关于vb.net操作mysql数据库问题
发表于: 2016-11-6 13:20 3848

关于vb.net操作mysql数据库问题

2016-11-6 13:20
3848
已经安装Connector/Net
Imports MySql.data.MySqlClient
使用此方案连接mysql数据库 指定表 通过name查询某段内容

以下是我的错误写法 请大神指教
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connStr As String
        Dim conn As MySqlConnection
        If Not conn Is Nothing Then conn.Close() ''pooling=false CharSet=gbk;
        connStr = "server=" & TextBox1.Text & "; port=" & TextBox2.Text & "; user id=" & TextBox3.Text & "; password=" & TextBox4.Text & "; database=" & TextBox5.Text & "; "
        Try
            conn = New MySqlConnection(connStr)
            conn.Open()
            Dim sqlstr As String
            Dim checkname As String
            checkname = "admin1"
            Dim rs As MySqlDataReader ''这里定义肯定是错了
            sqlstr = "select * from users  where User='" + checkname + "'"
            TextBox8.Text = rs.GetByte(sqlstr) '这里也错了 求助想在textbox8显示出所要内容写法

            conn.Close()
        Catch ex As MySqlException
            TextBox8.Text = "连接到服务器的错误:" + ex.Message
        End Try
    End Sub

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

上传的附件:
收藏
免费 0
支持
分享
最新回复 (1)
雪    币: 3
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
你写法有两个错误
第一, 在 sqlstr 你的写法是 “WHERE user=", 但是在截屏中那个列叫 name
第二, MySqlDataReader 应该引用 MySqlConnection. 你可以通过 MySqlCommand 和 ExecuteReader() 的功能来实现这一点,命令执行以后, 你可以使用 MySqlDataReader 的 rs.GetInt32(),rs.GetString(), rs.GetByte() 读取数据库

Private Sub Button1_Click.....
	Dim connStr As String
	Dim conn as MySqlConnection

	connStr = ...
	Try
		conn = New MySqlConnection(connStr)

		Dim sqlstr As String
		Dim checkname As String
		conn.open()
		checkname = "admin1"
		Dim rs As MySqlDataReader
		sqlstr = "select * from users WHERE name='" + checkname + "'"
		
		Dim myCommand As New MySqlCommand(sqlstr, conn)
		rs = myCommand.ExecuteReader()

		While rs.Read()
			TextBox8.Text = rs.GetString(1))
		End While
		rs.close()
		conn.close()
	Catch ex As MySqlException
		TextBox8.Text = ex.Message
	End Try
End Sub
2016-11-30 23:45
0
游客
登录 | 注册 方可回帖
返回
//