如何用ado对象在硬盘中建立一个数据库（mdb格式），（不用ado控件！，不用dao）

Question

我只是想学习一下

Answer 1

cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
        cnn.Open cnStr
       rs.open“ 。   ”

Answer 2

To 小贝，楼主的意思是建立一个数据库，不是打开数据库吧？
Public Sub CreateNewTable(Target As String, TableName As String, FieldCount As Integer, FieldName() As String, FieldType() As Integer, Fieldlength() As Integer)
   Dim absOperated As Database
   Dim tblNew As TableDef
   Dim fldNew As Field
   Dim i As Integer
   
   'ÔÚ¹¤×÷Çø´ò¿ªÒÑÓеÄÊý¾Ý¿â¡£
   Set absOperated = Workspaces(0).DB_Connection(Target)
   Set tblNew = absOperated.CreateTableDef(Target_File)
   
   '°Ñ×Ö¶ÎÖðÒ»¼Óµ½Ëù½¨±íµÄ×ֶμ¯ºÏÖÐ
   For i = 1 To FieldCount
   
      If Fieldlength(i) = 0 Then
         Set fldNew = tblNew.CreateField(FieldName(i), FieldType(i))
      Else
         Set fldNew = tblNew.CreateField(FieldName(i), FieldType(i), Fieldlength(i))
      End If
      
      tblNew.Fields.Append fldNew
   
   Next i
   
   '°ÑËù½¨µÄ±í¼Óµ½Êý¾Ý¿âµÄ±í¼¯ºÏÖС£
   absOperated.TableDefs.Append tblNew
   '¹Ø±ÕÊý¾Ý¿â
   absOperated.CloseEnd Sub
代码不完整，里边调用的一些函数需要定义

Answer 3

嘿嘿，为什么大家都答非所问？
人家要求用ado,dao里才有Database对象啊
如果不用DAO,只能用ADOX,(ADO Ext)
微软把数据操作放在ado里，数据库定义放在
aod ext里

Answer 4

adox不能作数据操作，只能用作表操作，是吗？

Answer 5

变通的办法：
可以建立一个空数据库，每次用时copy过来，具体其中的表可以用sql语句建立

Answer 6

adox不能操作数据
他能够定义和修改表、字段、索引等的所有属性。

Answer 7

顺便说一下，通用的建数据库的方法不是copy,
而是用sql脚本，你可以先手工建立数据库，然后
生成sql脚本就可以了