VB
如何创建一个数据库文件？？？？？？？？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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如何创建一个数据库文件
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如何创建一个数据库文件
...全文
