在VB中能否用语句创建一个ACCESS试图?

Question

请问在VB中能否用语句实现创建一个ACCESS试图?如何实现?有例子将不胜感激

Answer 1

当然可以啦。
用
Create View 视图名 
as 
sql语句

Answer 2

Dim WS As Workspace
Dim DB As Database
Dim TD As TableDef
Dim FLD As Field
Dim IDX As Index
Dim rd As Recordset
Set WS = DBEngine.Workspaces(0)
Set DB = WS.CreateDatabase("copyright.mdb", dbLangGeneral)
DB.Connect = ";pwd=andy"
Set TD = DB.CreateTableDef("Authorize_Date")
    TD.Attributes = 0
    TD.Connect = ""
    TD.SourceTableName = ""
    TD.ValidationRule = ""
    TD.ValidationText = ""
'Field First_Time
    Set FLD = TD.CreateField("First_Time", 8, 8)
        FLD.Attributes = 1
        FLD.DefaultValue = ""
        FLD.OrdinalPosition = 0
        FLD.Required = False
        FLD.ValidationRule = ""
        FLD.ValidationText = ""
    TD.Fields.Append FLD
'Field Last_Time
    Set FLD = TD.CreateField("Last_Time", 8, 8)
        FLD.Attributes = 1
        FLD.DefaultValue = ""
        FLD.OrdinalPosition = 1
        FLD.Required = False
        FLD.ValidationRule = ""
        FLD.ValidationText = ""
    TD.Fields.Append FLD
'Field Times
    Set FLD = TD.CreateField("Times", 3, 2)
        FLD.Attributes = 1
        FLD.DefaultValue = ""
        FLD.OrdinalPosition = 2
        FLD.Required = False
        FLD.ValidationRule = ""
        FLD.ValidationText = ""
    TD.Fields.Append FLD
    Set FLD = TD.CreateField("Authorize", 10, 17)
        FLD.Attributes = 1
        FLD.DefaultValue = ""
        FLD.OrdinalPosition = 3
        FLD.Required = False
        FLD.ValidationRule = ""
        FLD.ValidationText = ""
    TD.Fields.Append FLD
DB.TableDefs.Append TD
DB.Close