Create Method Example (VB)
The following code shows how to create a new Microsoft Jet database with the Create method.
Attribute VB_Name = "Create"
Option Explicit
' BeginCreateDatabaseVB
Sub CreateDatabase()
On Error GoTo CreateDatabaseError
Dim cat As New ADOX.Catalog
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='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
See Also
คำติชม
https://aka.ms/ContentUserFeedback
เร็วๆ นี้: ตลอดปี 2024 เราจะขจัดปัญหา GitHub เพื่อเป็นกลไกคำติชมสำหรับเนื้อหา และแทนที่ด้วยระบบคำติชมใหม่ สำหรับข้อมูลเพิ่มเติม ให้ดู:ส่งและดูข้อคิดเห็นสำหรับ