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