Programming Tool Box/SIMS_2.iso/bp_6_93/vbwin/phoenix/tableinf.txt

Text File | 1995-02-26 | 776b | 25 lines

Sub Command1_Click ()
    TableInfoForm.Hide
    TableInfoForm.Row.Clear
End Sub

Sub Form_Activate ()
    Dim field As Integer
    Dim tableinfo As TABLE_INFO
    Dim fieldinfo As FIELD_INFO

    If db_tableinfo(Db, TBL_LEUTE, tableinfo) <> FAILURE Then
        TableInfoForm.NrRec.Caption = tableinfo.recs
        TableInfoForm.NrCol.Caption = tableinfo.cols - 1    ' don't count address field
        TableInfoForm.NrInx.Caption = tableinfo.indexes
        TableInfoForm.SizeRec.Caption = tableinfo.size

        For field = 1 To tableinfo.cols - 1
            If db_fieldinfo(Db, TBL_LEUTE, field, fieldinfo) <> FAILURE Then
                TableInfoForm.Row.AddItem fieldinfo.name
            End If
        Next field
    End If
End Sub