No error,Nothings happen :(
>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
>>