加载中…
个人资料
微博
  • 博客等级：
  • 博客积分：
  • 博客访问：
  • 关注人气：
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

vb.net连接mysql数据库进行数据绑定和数据增删

(2013-01-23 08:26:48)
标签：

mysql

gridview

 分类： 01-工作
1，在本机上安装mysql connecter/net 
2，在visual studio菜单，“网站”-“添加引用”中将安装的mysqlconnecter引用过来
现在visual studio就可以引用mysql connecter 的库了
--有网上博文说要在bin下添加mysql.data.dll文件，我没引用也好用了
现在你看一下你的web.config会多如下行
3，下面代码部分
 gridview数据绑定
Private Sub databound()
        Dim strSQL As String = String.Empty
        strSQL += "select address,goto from table1"

        '查询用SQL文保存
        ViewState("scanSqlStr") = strSQL
        '根据SQL文绑定明细行数据
        GridView_bindData(True, ViewState("scanSqlStr"))
End Sub

Private Sub GridView_bindData(ByVal allScanFlg As Boolean, Optional ByVal sqlstr As String = vbNullString)
        Dim connStr As String
        Dim mySQLconn As New MySqlConnection
        connStr = "server=192.168.108.87;user id=root;password=123456;database=database111"

        Try
            mySQLconn = New MySqlConnection(connStr)
            '打开mysql连接
            If mySQLconn.State = ConnectionState.Closed Then
                mySQLconn.Open()
            End If
            '查询数据
            Dim dt As DataTable = New DataTable
            Dim ad As MySqlDataAdapter = New MySqlDataAdapter(sqlstr, mySQLconn)

            ad.Fill(dt)
            '绑定数据
            gdvAcc.DataSource = dt
            gdvAcc.DataBind()
        Catch ex As Exception
            lstMessage.Text = ex.Message.ToString
        Finally
            '关闭mysql连接
            mySQLconn.Close()
        End Try
    End Sub

执行insert，update，delete语句调用如下函数

 Public Function ExecuteSQL(ByVal sqlstr As String) As Boolean
        Dim connStr As String
        Dim mySQLconn As New MySqlConnection
        connStr = "server=192.168.108.87;user id=root;password=123456;database= database111"

        mySQLconn = New MySqlConnection(connStr)

        Dim mCommand As MySqlCommand = New MySqlCommand()
        '如果数据库中有中文数据一定加上这句下面这三句 
        Try
            If mySQLconn.State = ConnectionState.Closed Then
                mySQLconn.Open()
                '防止出现乱码要设置"set names gb2312"
                Dim mSQLcomm As MySqlCommand = New MySqlCommand("set names gb2312", mySQLconn)
                mSQLcomm.ExecuteNonQuery()
                mSQLcomm.Dispose()
            End If
            mCommand.Connection = mySQLconn
            mCommand.CommandText = sqlstr
            mCommand.CommandType = CommandType.Text
            mCommand.ExecuteNonQuery()
            mySQLconn.Close()
            '如果提交成功则返回True
            ExecuteSQL = True
        Catch ex As Exception
            '如果提交失败返回False
            lstMessage.Text = "提示信息：" & ex.Message
            ExecuteSQL = False
            Finally
            '关闭mysql连接
            mySQLconn.Close()
        End Try
        Return ExecuteSQL
    End Function

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有