如何创建一个数据库文件？？？？？？？？

[ccbl]

Dim Fi As String
Dim fi_ldf As String
Fi = "e:\" & n & ".mdf"
fi_ldf = "e:\" & n & ".ldf"
'定义生成的记录集合
Dim Createsql As New ADODB.Recordset
Dim SQLCreate As String
SQLCreate = "create database " & n & "" & vbCrLf & "on" & vbCrLf & _
"primary(name=" & n & "_data, filename='" & Fi & "', size=20MB, " & _
"maxsize=30MB, filegrowth=20%)" & vbCrLf & _
"log on" & vbCrLf & "(name=System_log, filename='" & fi_ldf & "', " & _
"size=3MB, " & vbCrLf & "maxsize=5MB, filegrowth=1MB)"
Set Createsql = CreatSqlFiles.Execute(SQLCreate, 1, adCmdText)
Set Createsql = Nothing
CreatSqlFiles.Close
Set CreatSqlFiles = Nothing

以上为VB6。0+ADO 2。5 创建一个MS SQL文件，在VB。NET中使用ADO。NET如何创建一个数据库文件

[ccbl]

回复人： Montaque(Rainman) ( ) 信誉：178
:
除此而外（因为这个我知道），能否通过ADO。NET的连接对象创建数据库
主要想减少代码量和引用的类

[ccbl]

没办法了，只有用ADO2。7了，解决了在用ADO。NET

[ccbl]

0962643 [e-mail]

[ccblmpt]

up

[ccbl]

看来还是要用ADO。NET，使用ADO2。7始终要用ASPNET这个用户，我怕把ASPNET权限设置高了，对于系统安全性不高，有没有高手知道如何通过ADO。NET的CONNCTION对象创建MS SQL数据库

[youngby]

study

[Montaque]

用adox
项目添加引用->com组件 Microsoft Ado ext 的引用
然后比如：
Public Function CreateDatabase(ByVal dbpath As String) As Boolean
Try
Dim oCatelog As New Adox.Catalog()
Dim oTabel As New Adox.Table()
oTabel.Name = "table1"
oTabel.Columns.Append("Name", DataTypeEnum.adChar, 40)
oCatelog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath)
oCatelog.Tables.Append(oTabel)
Return True
Catch ee As Exception

MsgBox(ee.ToString)
Return False
End Try


End Function

CreateDatabase("c:\demo.mdb") ‘调用。

[Montaque]

道如何通过ADO。NET的CONNCTION对象创建MS SQL数据库?
创建sql数据库比较简单就是执行一个SQlCOmmand语句"Create Database"

[ccbl]

SQLCreate = "create database " & n & "" & vbCrLf & "on" & vbCrLf & _
"primary(name=" & n & "_data, filename='" & Fi & "', size=20MB, " & _
"maxsize=30MB, filegrowth=20%)" & vbCrLf & _
"log on" & vbCrLf & "(name=System_log, filename='" & fi_ldf & "', " & _
"size=3MB, " & vbCrLf & "maxsize=5MB, filegrowth=1MB)"
Set Createsql = CreatSqlFiles.Execute(SQLCreate, 1, adCmdText)
：
我将以上语句应用在COMMAND对象中，但执行说系统错误

[ccbl]

Montaque(Rainman) ( ) 信誉：183 :
在ADO.NET中使用COMMAND对象通过EXCUTEREADER...都提示错误

[ccbl]

up