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