home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_4_94
/
vbwin
/
phoenix
/
tableinf.txt
< prev
next >
Wrap
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