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

ccbl 2003-04-09 12:29:19

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如何创建一个数据库文件

...全文

313 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

ccbl 2003-04-14

打赏
举报

ccbl 2003-04-12

打赏
举报

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

ccbl 2003-04-11

打赏
举报

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对象中，但执行说系统错误

Montaque 2003-04-10

打赏
举报

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

Montaque 2003-04-09

打赏
举报

用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") ‘调用。

youngby 2003-04-09