home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / combit / dll20_01.bmp (.png) < prev    next >
Bitmap Image  |  1994-01-26  |  234.5 KB  |  800x600  |  4-bit (5 colors)
   ocr: Microsott Visual Basic [design] File Edit View Run Debug Options Window Help Properties GO o Command3 CommandButton Form1 FORM1.FRM Object: Command3 - Proc: Click Start Debug use dildemo. dbf Sub Command3 Click ( Stop Debug Dim errr AS Integer Skip +1 MsgBox ("Lege Datenbank DLLDEMO.DBF an. Wird uberschreiben, BIII Show Info errr == db define Degin("DLLDEMU.DBF" DB USE_ EXCLUSIVE, - Skip -1 errr errr == == db db_ define define Field("Name", fleld(vorname", 67, 67, 40, 40, 0) 0) errr == db define Flelac"lermin" 68, 0, 0) Create dbf + ntx goto top errr == db define endo goto bottom Reindex errr ...