关于VB的几个问题.请高手指教

Question

2
Sub CreateFieldX()    Dim dbsNorthwind As Database
    Dim tdfNew As TableDef
    Dim fldLoop As Field
    Dim prpLoop As Property    Set dbsNorthwind = OpenDatabase("Northwind.mdb")    Set tdfNew = dbsNorthwind.CreateTableDef("NewTableDef")    ' Create and append new Field objects for the new 
    ' TableDef object.
    With tdfNew
        ' The CreateField method will set a default Size
        ' for a new Field object if one is not specified.
        .Fields.Append .CreateField("TextField", dbText)
        .Fields.Append .CreateField("IntegerField", dbInteger)
        .Fields.Append .CreateField("DateField", dbDate)
    End With    dbsNorthwind.TableDefs.Append tdfNew    Debug.Print "Properties of new Fields in " & tdfNew.Name    ' Enumerate Fields collection to show the properties of 
    ' the new Field objects.
    For Each fldLoop In tdfNew.Fields
        Debug.Print "  " & fldLoop.Name        For Each prpLoop In fldLoop.Properties
            ' Properties that are invalid in the context of
            ' TableDefs will trigger an error if an attempt
            ' is made to read their values.
            On Error Resume Next
            Debug.Print "    " & prpLoop.Name & " - " & _
                IIf(prpLoop = "", "[empty]", prpLoop)
            On Error GoTo 0
        Next prpLoop    Next fldLoop    ' Delete new TableDef because this is a demonstration.
    dbsNorthwind.TableDefs.Delete tdfNew.Name
    dbsNorthwind.CloseEnd Sub

Answer 1

1. cnn.CursorLocation = adUseClient
   rs.requery看看看

Answer 2

1.设置cn.CursorLocation = adUseClient
2.CREATE TABLE
[
    database_name.[owner].
    | owner.
] table_name
(
    {    <column_definition>
        | column_name AS computed_column_expression
        | <table_constraint>
    } [,...n]
)
[ON {filegroup | DEFAULT} ]
[TEXTIMAGE_ON {filegroup | DEFAULT} ]
  <column_definition> ::= { column_name data_type }
[ [ DEFAULT constant_expression ]
| [ IDENTITY [(seed, increment ) [NOT FOR REPLICATION] ] ]
]
[ ROWGUIDCOL ]
[ <column_constraint>] [ ...n]
  <column_constraint> ::= [CONSTRAINT constraint_name]
{
    [ NULL | NOT NULL ]
    | [    { PRIMARY KEY | UNIQUE }
        [CLUSTERED | NONCLUSTERED]
        [WITH FILLFACTOR = fillfactor]
        [ON {filegroup | DEFAULT} ]]
     ]
    | [    [FOREIGN KEY]
        REFERENCES ref_table [(ref_column) ]
        [NOT FOR REPLICATION]
     ]
    | CHECK [NOT FOR REPLICATION]
        (logical_expression)
}
  <table_constraint> ::= [CONSTRAINT constraint_name]
{
    [ { PRIMARY KEY | UNIQUE }
        [ CLUSTERED | NONCLUSTERED]
        { ( column[,...n] ) }
        [ WITH FILLFACTOR = fillfactor]
        [ON {filegroup | DEFAULT} ]
    ]
    | FOREIGN KEY
            [(column[,...n])]
            REFERENCES ref_table [(ref_column[,...n])]
            [NOT FOR REPLICATION]
    | CHECK [NOT FOR REPLICATION]
        (search_conditions)
}

Answer 3

1.的问题我也见过，只要将报表unload 一下就行了

Answer 4

DataReport不是很好用的，我一般都在其init事件中进行数据组合的，不然的话每次他都不会自动更新。

Answer 5

我试一下第二个问题，应该是用CREATEFIELD和CREATETABLE函数