我考网社区 › 计算机等级考试 › 2012年计算机二级Access重点：数据库的建立或压缩（1）

会计考友 发表于 2012-7-31 22:26:35

2012年计算机二级Access重点：数据库的建立或压缩（1）

　

会计考友 发表于 2012-7-31 22:26:36

2012年计算机二级Access重点：数据库的建立或压缩（1）

</p>　　Response.Write ("对不起，该数据库已经存在!")
　　CreateDBfile = False
　　Else
　　Dim Ca
　　Set Ca = Server.CreateObject("ADOX.Catalog")
　　If Err.number0 Then
　　Response.Write ("无法建立，请检查错误信息
" & Err.number & "
" & Err.Description)
　　Err.Clear
　　Exit function
　　End If
　　If DbVer=0 Then
　　call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
　　Else
　　call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
　　End If

查看完整版本: 2012年计算机二级Access重点：数据库的建立或压缩（1）