vb 用ADOX创建表

Private Sub Command1_Click()

'使用ADOX创建表和自增字段

'首先引用Microsoft ADO Ext 2.8 For DDL Securit (msadox.dll)

Dim Tbl As Table

Dim Cat As ADOX.Catalog

Dim Col As Column

'Set Cat = New ADOX.Catalog

'Cat.Create "provider=Microsoft.Jet.OLEDB.4.0data source=" &"C:\plan.mdb" '创建数据库

Set Cat = New ADOX.Catalog

Cat.ActiveConnection = "provider=Microsoft.Jet.OLEDB.4.0data source=" &"C:\plan.mdb"

Set Tbl = New Table

Tbl.ParentCatalog = Cat

Tbl.Name = "Table1"

Set Col = New Column

Col.ParentCatalog = Cat

Col.Type = adInteger '必须先设置字段类型

Col.Name = "ID"

Col.Properties("Jet OLEDB:Allow Zero Length").Value = False

Col.Properties("AutoIncrement").Value = True

Col.Properties("Nullable").Value = True

Tbl.Columns.Append Col, adInteger, 0 '自增字段

Tbl.Columns.Append "内容", adVarWChar, 50 '使用adVarChar或adChar均出现“类型无效”的错误

Cat.Tables.Append Tbl

Set Cat = Nothing

Set Tbl = Nothing

End Sub

建立数据表CREATE TABLE 数据表名 (字段名1 数据类型(长度), 字段名2 数据类型(长度),……)举例：create table student(xh text(9), xm text(8) , cj single(4), nl integer(2)) 建立含有xh、xm、cj、nl 4个字段的student表添加字段ALTER TABLE 数据表名 ADD COLUMN 字段名 数据类型(长度)举例：alter table student add column xb text(2) '在学生表中添加性别字段删除字段ALTER TABLE 数据表名 DROP COLUMN 字段名举例： alter table student drop column nl '将学生表中的年龄字段删除数据查询SELECT 字段名表 FROM 子句 WHERE 子句 GROUP BY 子句HAVING 子句 ORDER BY 子句 INTO 子句举例：select xh, xm from student where xb="男" order by xh 从学生表中查询性别为男的学生，显示其学号和姓名并使结果按学号升序排列。添加记录INSERT INTO 数据表名（字段名1，字段名2……） VALUES（数据1，数据2……）举例：insert into student (xh, xm, xb) values("015200101", "王小二", "男")删除记录DELETE FROM 数据表名 WHERE 条件表达式举例：delete from student where xb="男" 更新记录UPDATE 数据表名 SET 新数据值 WHERE 条件表达式举例：update student set cj=cj+5 where xb="女"

可以的,用sql语句 insert table . drop table

穷举表.用ado连接对象的 ado.connection 的OpenSchema

conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)

---