VB创建Acess数据库

发布时间：2020-12-16 22:54:48 所属栏目：大数据来源：网络整理

导读：首先在引用中引用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

首先在引用中引用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!