vb.net远程连接mysql数据库的问题

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么 *** 作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2） '把字段year显示给textbox2else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end ifADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

sqlcommand = “select count( *) from user where User="+输入的User信息+"”；

如果执行这个语句返回的值大于0

说明数据库中存在此用户

首先你本地要安装MySQL Connector Net

工程引用mysql.data

连接数据库：

     Imports MySql.Data

    Imports MySql.Data.MySqlClient

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

dim sA as string

sA = "server=" &Me.dbServerName &"port=3306database=" &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

---