What error you SQLEXEC() returns?

>Hi All,
>i am coding some functions for SQL Database & Table operations such as CreateSQLDb,DropSQLDb,CreateSQLTable,DropSQLTable ....
>
>Database creating and Dropping is working good but Table Creating not working :( you can see below my codes about my goals.
>Any suggestion,modify,adding would be very appreciated.
>
>Thanks,
>
>PS: OS: Windows7 RTM - SQL Server version - 2008 (10.0.1600)
>
>

>* SQL_Table_Operations.prg
>*CreateSQLDb('fox_w7_rtm','soykan')
>*DropSQLDb('fox_w7_rtm','soykan')
>CreateSQLTable('fox_w7_rtm','soykan','testY')
>*DropSQLTable('fox_w7_rtm','soykan','test')
>
>
>FUNCTION CreateSQLDb
>	LPARAMETERS tcServer,tcDBname
>	LOCAL lnHandle,strConString
>	LOCAL lcServer,lcDatabaseName
>	lcServer = m.tcServer
>	lcDatabaseName = m.tcDBname
>	strConString = 'DRIVER=SQL Server;Server=&tcServer;Trusted_connection=Yes'
>	lnHandle = SQLSTRINGCONNECT( m.strConString)
>	IF m.lnHandle < 0
>		MESSAGEBOX(ShowSQLError())
>	ENDIF
>	IF m.lnHandle > 0
>		*SQLExec(m.lnHandle,[create DATABASE ] + m.lcDatabaseName) && Create Database
>		TEXT to m.lcSQLDbCreate textmerge noshow
>			IF EXISTS (SELECT name FROM master.dbo.sysdatabases
>			     WHERE name = N'<<m.lcDatabaseName>>')
>					DROP DATABASE [<<m.lcDatabaseName>>]
>		Create Database [<<m.lcDatabaseName>>]
>		ENDTEXT
>		SQLEXEC(m.lnHandle, m.lcSQLDbCreate)
>		MESSAGEBOX(m.lcDatabaseName + ' adli database yaratildi... ',64,'SQL Database Yaratma')
>	ENDIF
>	SQLDISCONNECT(m.lnHandle)
>ENDFUNC
>
>FUNCTION DropSQLDb
>	LPARAMETERS tcServer,tcDBname
>	LOCAL lnHandle,strConString
>	LOCAL lcServer,lcDatabaseName
>	lcServer = m.tcServer
>	lcDatabaseName = m.tcDBname
>	strConString = 'DRIVER=SQL Server;Server=&tcServer;Trusted_connection=Yes'
>	lnHandle = SQLSTRINGCONNECT( m.strConString)
>	IF m.lnHandle < 0
>		MESSAGEBOX(ShowSQLError())
>	ENDIF
>	IF m.lnHandle > 0
>		SQLEXEC(m.lnHandle,[Drop DATABASE ] + m.lcDatabaseName) && Drop Database
>		MESSAGEBOX(m.lcDatabaseName + ' adli database ve Tablolari Silindi... ',64,'SQL Database Silme')
>	ENDIF
>	SQLDISCONNECT(m.lnHandle)
>ENDFUNC
>
>FUNCTION CreateSQLTable
>	LPARAMETERS tcServer,tcDBname,tcTable
>	LOCAL lnHandle,strConString
>	LOCAL lcServer,lcDatabaseName
>	lcServer = m.tcServer
>	lcDatabaseName = m.tcDBname
>	lcTable= m.tcTable
>	strConString = 'Driver=SQL Server;Server=&tcServer;Database=&tcDbName;Trusted_connection=Yes'
>	lnHandle = SQLSTRINGCONNECT( m.strConString)
>	IF m.lnHandle < 0
>		MESSAGEBOX(ShowSQLError())
>	ENDIF
>
>	IF m.lnHandle > 0
>
>		TEXT TO m.lcSQLCreateTables noshow
>		USE [<<m.lcDatabaseName>>]
>		CREATE TABLE [dbo].[<<m.lcTable>>](
>		[ad] [nchar](10) NULL,
>		[soyad] [nchar](10) NULL
>		) ON [PRIMARY]
>		ENDTEXT
>
>
>		SQLEXEC(m.lnHandle,m.lcSQLCreateTables) && Creates Table
>		MESSAGEBOX(UPPER(m.lcDatabaseName)+ ' adli databasede ' + UPPER(m.lcTable) + ' adli Tablo Yaratildi.. ',64,'SQL Table Olusturma')
>	ENDIF
>	SQLDISCONNECT(m.lnHandle)
>ENDFUNC
>
>FUNCTION DropSQLTable
>	LPARAMETERS tcServer,tcDBname,tcTable
>	LOCAL lnHandle,strConString
>	LOCAL lcServer,lcDatabaseName
>	lcServer = m.tcServer
>	lcDatabaseName = m.tcDBname
>	lcTable= m.tcTable
>	strConString = 'DRIVER=SQL Server;Server=&tcServer;Trusted_connection=Yes'
>	lnHandle = SQLSTRINGCONNECT( m.strConString)
>	IF m.lnHandle < 0
>		MESSAGEBOX(ShowSQLError())
>	ENDIF
>
>	TEXT TO m.lcSQL NOSHOW
>	USE [<<m.lcDatabaseName>>]
>	DROP TABLE [<<m.lcTable>>]
>	ENDTEXT
>
>	SQLEXEC(m.lnHandle,m.lcSQL) && Drop Table
>	SQLDISCONNECT(m.lnHandle)
>ENDFUNC
>
>FUNC ShowSQLError
>	LOCAL lcError,ix
>	LOCAL ARRAY aWhy[1]
>	AERROR(aWhy)
>	lcError = ""
>	FOR ix = 1 TO 7
>		lcError = m.lcError + TRANSFORM(aWhy[m.ix]) + CHR(13)
>	ENDFOR
>	RETURN m.lcError
>ENDFUNC
>