这样创建数据库可以吗？

[李赞红]

'创建数据库
'返回值:
'-1:数据库没创建,并且重新创建了
'0:数据库没打开
'1:数据已打开
'2:连接master错误
Public Function CreateERPDB() As Integer
On Error GoTo on_error
If isDBExists() Then '如果已经存在则不需要创建了
If con.state = 1 Then '数据已打开
CreateERPDB = 1
Else
CreateERPDB = 0 '数据库没打开
End If
Else '如果不存在,要创建数据库
'选连接master数据库
Dim sqlStr As String
Dim tmpDN As String
Dim MdfPath As String
Dim LdfPath As String

MdfPath = App.Path & " \OA_Data.MDF"
LdfPath = App.Path & "\OA_Data.LDF"

tmpDN = vDBName
vDBName = "master"
If connect = True Then '连接master数据库成功
vDBName = tmpDN
'开始创建数据库
sqlStr = "CREATE DATABASE " & vDBName & " ON (NAME = OA_Data, FILENAME = " & " ' " & MdfPath & " ' , SIZE = 5, FILEGROWTH = 10%), (NAME = OA_Data_N, FILENAME = ' " & LdfPath & " ', SIZE = 1, FILEGROWTH = 10%)"
MsgBox sqlStr
Call con.Execute(sqlStr) '执行创建语句
CreateERPDB = -1
RaiseEvent CreateDBFinish
Else ''连接master数据库失败
CreateERPDB = 2
End If
End If
Exit Function

on_error:
CreateERPDB = 2
MsgBox Err.Description
End Function

[tangxiaosan001]

建立数据库就是打开，不能打开就退出。
打开之后，判断数据库名有没？有，就删除，建立数据库，没有就建立。
语句自己搞定，和你的差不多。