ADO是不是不能象DAO那样控制数据库的结构……

Question

我是用ADOX是用来建立和修改数据库结构的，因为ADO是用来读写数据库的数据的。
            Dim catNewDB As ADOX.Catalog
            Dim tblBiao As ADOX.Table
            Set catNewDB = New ADOX.Catalog
            catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kuname.mdb"
            Set tblBiao = New ADOX.Table
            tblBiao .Name = "MyBiao"
            tblBiao .Columns.Append "MyField", adInteger
            catNewDB.Tables.Append tblBiao 
            tblBiao.Columns.Append "PrimaryKey_Field", adInteger'此语句好象不太成功
    
            Set tblBiao  = Nothing
            Set catNewDB = Nothing
让我们互相学习！！

Answer 1

我用过ado对数据库中的表进行添加,修改,删除,查询
不过没有创建过库,你可以试试.     我这里联的是accessDim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    
    '打开数据库
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Povider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
    cnn.Open
    
    '添加,修改,删除纪录
    Set cmd.ActiveConnection = New ADODB.Command
    Set cmd.ActiveConnection = cnn
    cmd.CommandText = "insert into ....."
    cmd.Execute
    
    '查询纪录
    Set rs = New ADODB.Recordset
    rs.Open "select * from .......", cnn, adOpenStatic, adLockReadOnly