怎样在用代码 生成一个access 数据库 查询表

Question

怎样在用代码 生成一个access 数据库 查询表

Answer 1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access 文件;Persist Security Info=False"
Adodc1.RecordSource = "查询语句"
DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Adodc1.Refresh

Answer 2

谢谢 yzbsouthwestforest(余治彬) 的答复不过我想知道的是如何 象用代码生成一个TABLE一样生成ACCESS 数据库中的 一个可见的查询表
谢谢

Answer 3

'引用微软 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