用代码创建access2000数据库的示例

Question

手头没有资料
请网友相助
用代码创建access2000数据库的示例

Answer 1

VB 6.0包括的是ADO 2.0，这个版本不支持创建数据库和表。你可以使用ADO代码操作记录，而使用DAO建立数据库。两者可以共存，只要你不同时操作同一个数据库就可以。 
    另一个办法是升级到VB 6.0 SP5（http://msdn.microsoft.com/vstudio/sp/default.asp），这个版本的ADOX可以支持数据库的建立。这里是一个例子CreateMDB-with-adox.zip（江天玉推荐）。 
    另外，可以参考QA001802 "能否使用ADO生成SQL7.0的表和字段"、QA002572 "使用ADO访问数据库时怎样判断某一表名是否存在"。 
     
    Spencer Yang的意见： 
    本人所写的范例较网络上流传的范例详细，不妨参考。 
    ●具体范例，请到纪文和网站『VB入门网』 
    http://www.vbguide.com.tw/webback.asp 
    看看「个个击破」 单元中的 
    361 如何使用 ADOX 对象新增数据库、新增资料表？ 
     
    Frank的意见： 
    直接执行SQL语句。如果AdoConn已连接到SQL Server: 
    建库: Adoconn.exec "Create Database 库名" 
    打开对应的库就可以建表,视图及存储过程: 
    Adoconn.exec "Create Table 表名(....)"

Answer 2

请问，如何编程创建Access数据库并加上密码保护？急切需要！多谢帮助！ 回答:     可以这样做： 
     Set wspDefault = DBEngine.Workspaces(0) 
     ' Create new, encrypted database. 
     Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _ 
     dbLangChineseSimplified & ";pwd=NewPassword", dbEncrypt) 
     ' Create new table with two fields. 
     ......     有关创建表的语句可以参考CreateDatabase的帮助。

Answer 3

Private Sub cmdCreateAccess_Click()
    '创建ACCESS文件
    Dim sCreatAccessFile    As String
    
    If txtCreateAccessName.Text = "" Then
        MsgBox "请输入需创建ACCESS文件名及路径！", vbExclamation, "提示"
        txtCreateAccessName.SetFocus
        Exit Sub
    End If
    
    sCreatAccessFile = txtCreateAccessName.Text
    
    sCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;" & _
           "Data Source=" & sCreatAccessFile
    On Error GoTo ErrorCreateDataBase
    Cat.Create sCnn    MsgBox "创建成功!", vbInformation, "提示"
    Exit Sub
ErrorCreateDataBase:    MsgBox Err.Description & "请重新输入数据库名！", vbExclamation, "提示"
    txtCreateAccessName.SetFocus
    Exit Sub
End Sub

Answer 4

access建立数据库：
http://expert.csdn.net/Expert/topic/2099/2099036.xml?temp=.4305078