Dim aaa As New Connection
aaa.ConnectionString = "Provider=MSDASQL.1;DSN=SSS;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=mysql;SERVER=localhost;UID=;PASSWORD=;PORT=3306;OPTION=3;STMT=;" 'SSS为建立的数据源
aaa.CursorLocation = adUseClient
aaa.Open
aaa.Execute "create database fff" '建fff库
aaa.Execute "create table(...)" '建表语法参考MySql帮助
aaa.ConnectionString = "Provider=MSDASQL.1;DSN=SSS;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=mysql;SERVER=localhost;UID=;PASSWORD=;PORT=3306;OPTION=3;STMT=;" 'SSS为建立的数据源
aaa.CursorLocation = adUseClient
aaa.Open
aaa.Execute "create database fff" '建fff库
aaa.Execute "create table(...)" '建表语法参考MySql帮助
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货