Form1
&Proceed
Form15
Data1%
Data1
prtrep
"Generate report <Databasename>.LST
tabname
Working On Table:
GenTypes
-Output VB 3.0 TYPE statements to GENTYPES.LST
Command2
&Quit
&Proceed
Text1
Label1
Data Base to print:
	Form_Load
Database
	TableDefs?
Fields
Command1_Click
Command2_Click
text1~
Text>
printerM
NameN
Connect
Transactions;
CollatingOrder
UpdateableS
QueryTimeout
Count
Attributes
Windows+
initialization"
files
Within*
Visual
Basic
Article
Q75639
Summary
thereU
several
	Microsoft*
	functionsl
manipulate
information
filef
GetProfileIntd
GetPrivateProfileInt
GetProfileStringo
GetPrivateProfileString
allow
program[
retrieve
fromH
based
application
WritePrivateProfileString-
WriteProfileStringP
Create}
items
contain
defines
environment
Examples
whichx
commonly
found
subdirectory
applications
stored
these
	configureB
themselves
needs
preferences
Description
review
comes
composed
least_
contents"
	following-
[Application name]+
keyname
ValueY
fourE
calls
particular"
dependsQ	
whether_
wantM
obtainU
	numericali
GetProfile
family
standard
shouldw
GetPrivateProfile?
specify
formaly
	arguments/	
accepted
	describedn
farthera
below
modify
search
under
match
addsj
user9
profileL
entry
containingx
	specifiedj	
replaceV
include
statementsJ
module|
GeneralH
declarations
section
	lpKeyNameI
nDefault)
	lpDefault
lpReturnedString
nSize
lpString
	lpAppName
lpFileName
Note7
	statement
followsz
Argument
appears
	Specifies_
default
givenP
cannot
PointsC	
names
searches?
	directory
buffer
receives!
	character
maximumI	
Number
characters
	including
lastr
copied
contains
steps
	necessary
sampleg
uses&	
created;
shellsb	
Calculator
demonstrates
editor
example
Notepad
suppliedz
Save	
NET8	
NetPaths
WordProcessory	
WINWORD
	indicated
after
above
correctw
hardp	
drive
Starte
called
Form1
button
Command1
Declaration,
appear
lpReturnStringg
	FileError
Valid
Succ{
dupstr
DateCreated
LastUpdate
LastUpdatesW
LastUpdated
SourceTableName
BitsG
ABits
SourceField
SourceTable
FontSize
GenTypesG
length
FontName
	Updatable^
OrdinalPosition
CurrentX<
CurrentY
disable!
Enabled
ETrap
	prt_Click
DB_SYSTEMOBJECT
SkipTd
screen
Height
Widthq
ScaleHeight
ScaleWidth
prtrep
tabname
ListSet
snapshotH
Table
QueryDef
definition
changed
	TableType
identifying
possible
values
RecordCount
records
DB_QUERYDEF
characteristics\
	Attribute
equalo
tnames
TableDef&
Data1
RecordSource	
DatabaseNameg
	Recordset
Text1_Change
Data1_ValidateR
Action
whoops
prt_err
DynaSet
Tableded
DB_TABLE
Indexes
idxcnt
Primary
Unique
Index
RecordSourcec%
DB_QUERY
Command2_Click
Form_Load
prt_Click
on error GoTo ETrap
Please enter a data base name...
Database : 
 not found on disk...
 Copy Table info to td("
gentypes.lst
'Structures from data base: 
as of: 
Listing of data base: 
Date: 
Time: 
Source of data: 
Connect string: 
Transactions supported? 
Sort Order: 
Updateable? 
Query time-out (secs): 
Number of tables: 
Attributes
On Error Resume Next
Data1.recordset.QueryTimeout = 1
qq = 1
qq = 1
On Error GoTo ETrap
Table Name:      
Updateable?:     
Date Created:    
DateCreated
Last Updated:    
LastUpdated
Table Type:      
TableType
QUERYDEF
TableType
TABLE
Index count: 
Index name: 
    fields: 
   primary: 
    unique: 
UNKNOWN
Record Count:    
RecordCount
Attributes:      
Attributes
Fields:
Source Field
Source Table
Type td_
Working on table: 
Integer
Currency
Single
Double
String * 
UNKNOWN:
        
String
String
END TYPE
data1.Close
 Move to next record.d
*** END OF REPORT ***
Printing completed!
An error occurred! 
Code was: