Sub 连接腾讯云数据库() Dim conn As New Connection ' 云数据库资料 '运行状态 运行中 '已使用/总容量 19MB/10GB 升级 字符集 latin1 更改 binlog容量 1GB '外网账号 cdb_outerroot '外网登录密码 meihao123 '内网地址 10.66.155.203:3306 '实例类型 高IO版-360M内存,10G存储空间,120次/秒 '地域 华南区-广州 '数据库类型 MySQL5.5 '所在网络 基础网络 访问次数 120 创建时间 2015-08-17 08:37:44 '实例ID 2f7b32e8-4478-11e5-a203-3cd92b056b40 '到期时间 2016-02-17 续费 '您的CDB实例名:meihao ' 求 连接 方式 conn.ConnectionString = "rovider=sqloledb;Server= 55d12dcd1a8a5.gz.cdb.myqcloud.com:12121;Database=meihao:8019;Uid=cdb_outerrootwd=meihao123;" conn.Open
MsgBox "连接成功" conn.Close End Sub
|