VB远程操作MYSQL数据库VIP免费

'获得数据库连接 Public Function CreateConnection() As ADODB.Connection On Error GoTo Handler Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.CommandTimeout = 60 cn.ConnectionString = " DRIVER={MySQL ODBC 5.1 Driver}; " _ & " Password=123; " _ & " Persist Security Info=True; " _ & " User ID=admin; " _ & " Server=192.168.0.10;" _ & " DataBase=db; " _ & " OPTION=3" cn.Open Set CreateConnection = cn Set cn = Nothing Exit Function Handler: MsgBox "数据连接时出现错误！", vbOKOnly + vbInformation End Function 1、 进入 mysql，创建一个新用户 xuys： 格式：grant 权限 on 数据库名.表名 用户@登录主机 identified by "用户密码"; grantselect,update,insert,deleteon*.***************.88.234identifiedby"xuys1234"; 查看结果，执行： use mysql; select host,user,password from user; 可以看到在 user 表中已有刚才创建的 xuys 用户。host 字段表示登录的主机，其值可以用 IP，也可用 主机名， 将host 字段的值改为%就表示在任何客户端机器上能以xuys用户登录到mysql服务器，建议在开发时 设为%。 update user set host = '%' where user = 'xuys'; 2、 ./mysqladmin -uroot -ppwd reload ./mysqladmin -uroot -ppwd shutdown 3、 ./mysqld_safe --user=root 记住：对授权表的任何修改都需要重新 reload，即执行第 3 步。 如果经过以上 3 个步骤还是无法从客户端连接，请执行以下操作，在 mysql 数据库的 db表中插入一条记录 ： use mysql; insert into db values('192.168.88.234','%','xuys','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y'); update db set host = '%' where user = 'xuys'; 重复执行上面的第 2、3 步。 MySQL 可以支持 ODBC。ODBC 的驱动可以通过下载获得。你的连接代码可以如下所示: Dim cnMySql As New rdoConnection cnMySql.CursorDriver = rdUseOdbc cnMySql.Connect = "DRIVER={MySQL ODBC 3.51 Driver};" &_ "SERVER=yourHostName;PORT=3306;" &_ "DATABASE=dbName;" &_ "UID=yourUserName;PWD=yourPassword;" &_ "OPTION=3;" 同时可以在此检查选项参数值。 '...