1,217
社区成员
发帖
与我相关
我的任务
分享请问用ADO不能创建ACCESS数据库，但是用SQL语句呢，能吗？
请问用ADO不能创建ACCESS数据库，但是用SQL语句呢，能吗？
...全文
请发表友善的回复…
发表回复
lihonggen0 2003-08-05
- 打赏
- 举报
http://expert.csdn.net/Expert/topic/2099/2099036.xml?temp=.4305078
lihonggen0 2003-08-05
- 打赏
- 举报
http://expert.csdn.net/Expert/topic/2099/2099036.xml?temp=.4305078
阿建像熊猫 2003-08-05
- 打赏
- 举报
ADO无法创建ACCESS。
SQL也一样。
不过你可以用DAO。
SQL也一样。
不过你可以用DAO。
现在还是人类 2003-08-05
- 打赏
- 举报
up
xingnup 2003-08-05
- 打赏
- 举报
up
of123 2003-08-04
- 打赏
- 举报
SQL语句不能创建数据库。
of123 2003-08-04
- 打赏
- 举报
需要引用 Microsoft ADO Ext. 2.X for DDL and Security
'******
' ADOX:
'******
Attribute VB_Name = "Create"
Option Explicit
' BeginCreateDatabseVB
Sub CreateDatabase()
On Error GoTo CreateDatabaseError
Dim cat As New ADOX.Catalog
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\new.mdb'"
'Clean up
Set cat = Nothing
Exit Sub
CreateDatabaseError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateDatabaseVB
'******
' ADOX:
'******
Attribute VB_Name = "Create"
Option Explicit
' BeginCreateDatabseVB
Sub CreateDatabase()
On Error GoTo CreateDatabaseError
Dim cat As New ADOX.Catalog
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\new.mdb'"
'Clean up
Set cat = Nothing
Exit Sub
CreateDatabaseError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateDatabaseVB
