CLOSE DATABASES all clear Con=SQLSTRINGCONNECT([DRIVER=SQL Server;SERVER=(local);DATABASE=Northwind;Trusted_Connection=Yes]) IF Con<1 ? "FAILED to connect!!!" return ENDIF SQLEXEC(con,"select * from customers","res") AFIELDS(aflds) DISPLAY STRUCTURE cSchema="" FOR I=1 TO ALEN(aflds,1) IF I>1 cSchema = cSchema + ", " ENDIF cSchema = cSchema + aflds(I,1)+" "+ aflds(I,2) DO CASE CASE aflds(I,2)=='C' cSchema = cSchema + "(" +TRANSFORM(aflds(I,3))+")" IF aflds(I,6) cSchema = cSchema + " NOCPTRANS" ENDIF CASE aflds(I,2)=='N' cSchema = cSchema + "(" +TRANSFORM(aflds(I,3))+","+TRANSFORM(aflds(I,4))+")" CASE aflds(I,2)=='F' cSchema = cSchema + "(" +TRANSFORM(aflds(I,3))+","+TRANSFORM(aflds(I,4))+")" CASE aflds(I,2)=='B' cSchema = cSchema + "(" +TRANSFORM(aflds(I,4))+")" CASE aflds(I,2)=='M' IF aflds(I,6) cSchema = cSchema + " NOCPTRANS" ENDIF ENDCASE ENDFOR _cliptext=cSchema ?_cliptext RETURNThanks,