怎样用vb代码建立ACCESS表?

Question

怎样用vb代码建立和删除ACCESS表? 
当数据库中没有要操作的表时就建立该表,在不需要该表的时候可以删除
怎样样判断该表是否存在? 
怎样用vb代码实现呀~~~~麻烦各位大峡指点~~~

Answer 1

'引用微软 ADO Ext.2.7 for dll and Security
'创建数据库和数据表及字段
Private Sub Command1_Click()
    CreateDatabase
    CreateTable
    MsgBox "成功"
End Sub
Sub CreateDatabase()
   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
End SubSub CreateTable()
   Dim tbl As New Table
   Dim cat As New ADOX.Catalog
'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\new.mdb;"   tbl.name = "MyTable"
   tbl.Columns.Append "Column1", adInteger
   tbl.Columns.Append "Column2", adInteger
   tbl.Columns.Append "Column3", adVarWChar, 50
   cat.Tables.Append tblEnd Sub
'检查表是否存在
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As StringSet cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnnSet rstSchema = cnn1.OpenSchema(adSchemaTables)Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Closecnn1.Close