求一个vb.net链接mysql数据库的增删改查程序,求速度。。。 5

 我来答
爱栀竹的人
2014-08-13 · TA获得超过1352个赞
知道大有可为答主
回答量:1743
采纳率:0%
帮助的人:998万
展开全部
  1. 首先你本地要安装MySQL Connector Net 

  2. 工程引用mysql.data

  3. 连接数据库:


       Imports MySql.Data

      Imports MySql.Data.MySqlClient

   ‘连接字符串dbServerName 是ip,下面的英文应该懂得吧。

 dim sA as string 

  sA = "server=" & Me.dbServerName & "; port=3306; database=" & Me.dbDataBaseName & _

                        "; user id=" & Me.dbUserName & "; password=" & Me.dbPassWord & "; "

dim mvardbConnectionMysql As MySqlConnection

                With mvardbConnectionMysql

                       .ConnectionString = sA

                    .Open()

                End With

4. 读取数据

dim xx As MySqlDataReader

 Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)

   oC.CommandType = CommandType.Text

xx= oC.ExecuteReader()

if xx.HasRows

do while xx.read()   ’一次读取一行

   msgbox xx.item(2)   '取出当前行的第三个字段的值显示。

loop

end if

5. 写入数据

        Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()

        Try

            Dim oC As MySqlCommand

   '下面的commandtext是执行的更新语句,例如Insert into 语句。 

            oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)

            oC.CommandType = CommandType.Text

            oC.ExecuteNonQuery()

            oT.Commit()


            oC = Nothing

            oT = Nothing


        Catch oe As Exception

            oT.Rollback()

        End Try

追问
没看太懂,有没有做好的小实例啊给发一个,或者留个联系方式指导一下。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式