求关于建立数据库的SQL语句

[airflight]

如题

[WuYL7812]

create database 数据库名称

[airflight]

怎么使用参数?

[xinshou1979330]

朋友你说的不明白啊

[airflight]

我现在需要在程序中加入一段类似access的功能,需要能建立一个数据库,但是如果建立一个数据库的话,dsn怎么设呢

[hycao]

create database aaa
on
primary(name=aaa_data,
filename='c:\aaa.mdf',
size=10MB,
maxsize=15MB,
filegrowth=20%)
log on
(name=aaa_log,
filename='c:\aaa.ldf',
size=3MB,
maxsize=5MB,
filegrowth=1MB)

[airflight]

楼上,你的代码我看明白了,我现在的问题是执行sql语句需要recordset对象,而recordset对象需要与connection对象建立关联,可是在建立数据库的时候connection对象的connection.string属性是不定的,那么应该如何设置呢?

[hycao]

Dim conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQLServerConnect As String, SQLCreate As String
SQLServerConnect = "Driver={SQL Server};Server=TCL;UID=sa;PWD=;"
Set conn = New ADODB.Connection
conn.ConnectionString = SQLServerConnect
conn.Open
SQLCreate = "create database aaa" & vbCrLf & "on" & vbCrLf & _
"primary(name=aaa_data, filename='c:\aaa.mdf', size=10MB, " & _
"maxsize=15MB, filegrowth=20%)" & vbCrLf & _
"log on" & vbCrLf & "(name=aaa_log, filename='c:\aaa.ldf', " & _
"size=3MB, " & vbCrLf & "maxsize=5MB, filegrowth=1MB)"
Set Rs = conn.Execute(SQLCreate, 1, adCmdText)
Set Rs = Nothing
conn.Close
Set conn = Nothing

[airflight]

那么对于access库来说是不是应该写成
"provider=micorsoft.oledb.jet.4.0;"而省略"data source=..."

[hycao]

access好象不能这样写，我也不知道该怎么写。