首先在引用中引用Microsoft ado ext. 2.8 for ddl and security
语句如下:
Dim Strfilename As String
Dim StrNewfilename As String
Strfilename = "D:/" & "Wo" & CStr(Format(Date,"yyyymmdd")) & CStr(Format(Time,"yyyymmdd"))
StrNewfilename = Strfilename & ".mdb"
Dim catNewDBWo As New ADOX.CatalogcatNewDBWo.Create "ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source=" & StrNewfilename & ";"Set catNewDBWo = nothing
总结以上是内存溢出为你收集整理的VB创建Acess数据库全部内容,希望文章能够帮你解决VB创建Acess数据库所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)