'以下代码可以在程序运行中创建数据库 Dim DBConnect As Connection Dim rs As ADODB.Recordset Dim SQl As String Set DBConnect = New ADODB.Connection Dim Linkstr As String Linkstr = "PROVIDER=SQLOLEDB;DATA SOURCE=你的SQLSERVER服务器名;UID=SA;PWS=;" DBConnect.Open Linkstr Set rs = New ADODB.Recordset sql="Create Database test" rs.Open "testtable", DBConnect, adOpenDynamic, 2以上代码可以在程序运行时创建数据库test,看看现在是否已经实现了你要的功能了呢? see it ?
http://www.csdn.net/expert/topic/876/876449.xml?temp=3.109157E-03
Dim DBConnect As Connection
Dim rs As ADODB.Recordset
Dim SQl As String
Set DBConnect = New ADODB.Connection
Dim Linkstr As String
Linkstr = "PROVIDER=SQLOLEDB;DATA SOURCE=你的SQLSERVER服务器名;UID=SA;PWS=;"
DBConnect.Open Linkstr
Set rs = New ADODB.Recordset
sql="Create Database test"
rs.Open "testtable", DBConnect, adOpenDynamic, 2以上代码可以在程序运行时创建数据库test,看看现在是否已经实现了你要的功能了呢?
see it ?