Public Function FUN_FIELD_TABLE(STR_PATH_BAZA As String, STR_BAZA_NAME As String, STR_TABLE_NAME As String)
' перебор полей таблицы
Dim rst As ADODB.Recordset ' набор записей
Dim Field As ADODB.Field
Set rst = New ADODB.Recordset
rst.Open "select * FROM KEYBOARD_TBL", GLB_con, adOpenKeyset, adLockOptimistic
For Each Field In rst.Fields
MsgBox Field.Properties("Caption") - не катит
MsgBox Field.Properties("Type")
'MsgBox Field.Properties("Value") - не катит
Call FUN_СREATE_FIELD(STR_PATH_BAZA, STR_BAZA_NAME, STR_TABLE_NAME, Field.Name, "Value")
'
Next
Set rst = Nothing
End Function
|