关于创建数据库

Question

请问如何用ADO创建一个Access数据库？

Answer 1

Private Sub Command1_Click()
    Dim tdExample As TableDef
    Dim fldForeName As Field
    Dim fldSurname As Field
    Dim fldDOB As Field
    Dim fldFurtherDetails As Field
    Dim dbDatabase As Database
    Dim sNewDBPathAndName As String
    
    sNewDBPathAndName = "c:\windows\temp\NewDB" & Right$(Time, 2) & ".mdb"
    Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
    Set tdExample = dbDatabase.CreateTableDef("Example")    Set fldForeName = tdExample.CreateField("Fore_Name", dbText, 20)
    Set fldSurname = tdExample.CreateField("Surname", dbText, 20)
    Set fldDOB = tdExample.CreateField("DOB", dbDate)
    Set fldFurtherDetails = tdExample.CreateField("Further_Details", dbMemo)
    
    tdExample.Fields.Append fldForeName
    tdExample.Fields.Append fldSurname
    tdExample.Fields.Append fldDOB
    tdExample.Fields.Append fldFurtherDetails
    
    dbDatabase.TableDefs.Append tdExample
    MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'", vbInformation
End Sub

Answer 2

http://expert.csdn.net/Expert/topic/1876/1876180.xml?temp=.2484705
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ClientSet]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[A_ClientSet]CREATE TABLE [dbo].[A_ClientSet] (
[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION  NOT NULL ,
[ClientSet] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[FirstData] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[LastData] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[month] [int] NULL 
) ON [PRIMARY]

Answer 3

using the Microsoft ADO Extensions 2.1 for DDL and Security object libraryOption Explicit' BeginCreateDatabseVB
Sub CreateDatabase()   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End Sub
' EndCreateDatabaseVB

Answer 4

lvjack(叶飞)：我把你那段代码拷贝下来运行，出现错误提示：错误的参数号或无效的属性值。这是怎么回事啊？我已经引用了dao3.51alicky(周松)：我是要建立一个数据库，不是一个表.不过仍然感谢你的热心!gpo2002(gpo2002) ：我用你的方法建立的数据库，可是打不开，出现提示说：unrecorgnized database format。怎么可以解决阿？谢谢各位了！

Answer 5

对了叶飞，错误出现在使用 CreateDatabase这个方法时

Answer 6

Dim MyTable As TableDef, MyField As Field
        Dim MyDatabase As Database
        Set MyDatabase = CreateDatabase(cProgramPath + "\Trade.mdb", dbLangGeneral, dbEncrypt)
        Set MyTable = MyDatabase.CreateTableDef("System")
        Set MyField = MyTable.CreateField("APPLNAME", dbText, 100)     '?目名?
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15)    '服?器名?
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15)     '?据?用?
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("PASSWORD", dbText, 15)      '?据?口令
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("DATANAME", dbText, 15)      '?据?名?
        MyTable.Fields.Append MyField
        MyDatabase.TableDefs.Append MyTable
        'MyDatabase.NewPassword "", "allway"
        MyDatabase.Close

Answer 7

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
检查你的提供商的版本
你在打开的时候是否仍为Microsoft.Jet.OLEDB.4.0,还是3.51?