|
</p> Response.Write ("对不起，该数据库已经存在!")
% _7 |5 L4 U" @( A/ M0 [( w( X8 W CreateDBfile = False
! S# k5 {2 c* X, v U Else: d& a3 v" H' g3 X% Q! P, O' d
Dim Ca9 {* C& O/ j% J; Q7 M+ S
Set Ca = Server.CreateObject("ADOX.Catalog")
4 h+ \# s2 M! n" S" a) D If Err.number0 Then
& x8 M2 V6 q0 ?7 w Response.Write ("无法建立，请检查错误信息
! B, G5 U7 I. y5 g( Y7 W" & Err.number & "
8 ], P0 Z" Z" L8 e2 d" & Err.Description)
) T4 c4 R* b! E5 h7 L Err.Clear, q) D% }+ b8 r# I5 }
Exit function( e5 i# n* z1 E, q- A
End If7 Z) F7 Q3 x5 o2 D" ?
If DbVer=0 Then
% P' ~+ n! d. C( E; Y call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
' B; K* b7 ?3 p ] Else
& ]* S; w$ o/ O call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
% B% O, W. }; f) S End If |
发表于 2012-7-31 22:26:35
楼主