That is a good idea. For now, I have included a Cr8_DB PRG file in the CABUILDER download that will create a PRG with all the code necessary to create a DBC with a table for every CA in the VCX.

>Mark,
>I made some changes in your CABuilder, and added something that I thing would help others.
>I thing you could add some lines of code in your CABuilder in the AddClass Procedure,
>it would help the Drag & Drop from the DE to the form.
>
>Hope you like the idea.
>
>[], s
>
>Peter
>
>Before the line where you create the Class
>

>CREATE CLASS (lcCLass) OF (lcLib) AS CA_Base FROM (lcLib) NOWAIT
>

>
>you could add this code (sample)
>

>* If lWriteShema is .T. create a DBC and Table
>IF THIS.lWriteSchema
>   THIS.Cr8_Create_Table(lcClass, THIS.cSchema)
>ENDIF
>

>
>and add this procedure to the code
>
>* Creates a DBC if necessary and the table with the same name that the CA class
>* So its easyer to Drag & Drop from the Table the fields to a Form when CursorSchema > 255 Caract.
>

>PROTECTED PROCEDURE Cr8_Create_Table
>	LPARAMETERS lcClass, cSchema
>	IF !FILE("DBC_CA.dbc")
>		CREATE DATABASE DBC_CA		&& could be better (change the name of DBC !)
>	ENDIF
>
>	* Init from Schema
>	npos = AT('2',cSchema) + 1
>	cSchema  = SUBSTR(cSchema, npos)
>	comprimento_cSchema = LEN(cSchema)
>
>	* End from Schema
>	npos2 = AT('ENDTEXT', cSchema) - 1
>	cSchema  = SUBSTR(cSchema,1, npos2)
>
>	cSchema = STRTRAN(cSchema,CHR(13),"")
>	cSchema = STRTRAN(cSchema,CHR(10),"")
>
>	* Creates the table in the DBC
>	IF !DBUSED("DBC_CA")
>		OPEN DATABASE DBC_CA
>	ENDIF
>
>	x = "CREATE TABLE " + (lcClass) + " (" + cSchema + ") "
>	&x.
>ENDPROC
>
>