访问：SQL SELECT列FROM表

Question

我想在Access窗体中创建两个CombiField：

• 第一个应该在下拉列表（*）
中显示数据库的所有表名
• ，第二个应该显示表中已在第一个Combifield中选择的所有列名。

有什么想法吗？

（*）我已经有了第一个代码：

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1));

Answer 1

将组合框的 RowSource 属性设置为表的名称（= ComboBoxTable）。

然后将 RowSourceType 属性设置为：字段列表

Private Sub ComboBoxTable_AfterUpdate()

    Me!ComboBoxFields.RowSource = Me!ComboBoxTable.Value

End Sub

Answer 2

在第一个组合的AfterUpdate中尝试下面的代码

Private Sub Combo0_AfterUpdate()
Dim TableName As String
TableName = Me.Combo0.Value
Dim rs As New ADODB.Recordset
Set rs = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, TableName))
Dim fldname As String
rs.MoveFirst
Do Until rs.EOF
fldname = fldname & rs!Column_Name & ";"
rs.MoveNext
Loop
Me.Combo2.RowSource = fldname
Me.Combo2.RowSourceType = "Value List"
Me.Combo2.Requery
End Sub