SQLEXEC() return 0 or 1?

MartinaJ

>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
>>>