Veritabanının,dbf den SQL servere çevrilmesi

Function MYSQLEXEC

Lparameters tnhandle, tcsql, tccursorname

tccursorname = Iif(Empty(tccursorname),'',tccursorname)

If SQLExec(tnhandle,tcsql,tccursorname) < 0

    Do errhand With tcsql

Endif

 

Function errhand

Lparameters tcsql

If !Empty(tcsql)

    lcerror=tcsql

    Aerror(arrcheck)

    For ix=1 To 7

        lcerror = lcerror+Trans( arrcheck [ix])+ Chr(13)

    Endfor

    If Len(lcerror)<1062

        Messagebox(lcerror,0,'Error def.')

    Else

        gnerrfile = Fcreate('_errFile.txt')  && If not create it

        If gnerrfile < 0     && Check for error opening file

            Wait 'Cannot open or create output file' Window Nowait

        Else  && If no error, write to file

            =Fwrite(gnerrfile , lcerror)

        Endif

        =Fclose(gnerrfile )     && Close file

        If gnerrfile > 0

            Modify File _errfile.txt Nowait  && Open file in edit window

        Endif

    Endif

Endif

 

Function mysqlexecX

Lparameters tnhandle, tcsql, tccursorname

tccursorname = Iif(Empty(tccursorname),'',tccursorname)

If SQLExec(tnhandle,tcsql,tccursorname) < 0

    If !Empty(tcsql)

        lcerror=tcsql

        Aerror(arrcheck)

        If File('errors.txt')  && Does file exist?

            gnerrfile = Fopen('errors.txt',2)     && If so, open read/write

            x1=Fseek(gnerrfile,0,2)

        Else

            gnerrfile = Fcreate('errors.txt')  && If not create it

            x1=Fseek(gnerrfile,0,2)

        Endif

        If gnerrfile > 0     && Check for error opening file

            For ix=1 To 7

                =Fwrite(gnerrfile ,Trans( arrcheck [ix])+ Chr(13))

            Endfor

        Endif

        =Fclose(gnerrfile )     && Close file

    Endif

Endif

 

Function credbf2sql

Parameter fname,litxtsql,sqlfname

litxtsql=Iif(Empty(litxtsql),.F.,.T.)

If Empty(sqlfname)

    sqlfname=fname

Endif

Private nfields, Afields, Lcf

If Used(m.fname)

    Use In (m.fname)

Endif

Use (m.fname)

nfields = Afields(aflds)

lcsorgu='create table '+m.sqlfname+'('

lcsorgu1=''

lcsorgu2=''

For Lcf = 1 To nfields

    If Upper(aflds(Lcf, 1))='GUID' Or Upper(aflds(Lcf, 1))='SIRANO'

    Else

        lcbaslik=aflds(Lcf, 1)

        Do Case

        Case lcbaslik=='NOT'

            lcbaslik='NOT1'

        Case lcbaslik=='INDEX'

            lcbaslik='INDEX1'

        Endcase

        lcsorgu1=lcsorgu1+lcbaslik

        lctipi=aflds(Lcf, 2)

        Do Case

        Case lctipi='C'

            lcsorgu1=lcsorgu1+' [char]'

        Case lctipi='D' Or lctipi='T'

            lcsorgu1=lcsorgu1+' [datetime]'

        Case lctipi='I' Or lctipi='L'

            lcsorgu1=lcsorgu1+' [int]'

        Case lctipi='M'

            lcsorgu1=lcsorgu1+' [text]'

        Case lctipi='N'

            lcsorgu1=lcsorgu1+' [numeric]'

        Endcase

 

        If aflds(Lcf, 2)='N' .And. aflds(Lcf, 4)=>0

            lcsorgu1=lcsorgu1+' ('+Alltrim(Str(aflds(Lcf, 3), 6))+','+Ltrim(Str(aflds(Lcf, 4)))+')'

        Else

            If lctipi='T' Or lctipi='D' Or lctipi='I' Or lctipi='M' Or lctipi='L'

            Else

                lcsorgu1=lcsorgu1+'('+Alltrim(Str(aflds(Lcf, 3), 6))+')'

            Endif

        Endif

        lcsorgu1=Lower(lcsorgu1)+' NULL,'+Chr(13)

    Endif

Endfor

lcsorgu1=lcsorgu1+' [guid] [uniqueidentifier] NOT NULL CONSTRAINT [DF_'+Alltrim(sqlfname)+'_guid]  DEFAULT (newid()),'

lcsorgu1=lcsorgu1+' [sirano] [int] IDENTITY(1,1) NOT NULL,'

lcsorgu1=lcsorgu1+' CONSTRAINT [PK_'+Alltrim(sqlfname)+'] PRIMARY KEY CLUSTERED'

TEXT TO Lcsorgu2 NOSHOW PRETEXT 7 TEXTMERGE

( [guid] ASC )WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

ENDTEXT

lcsorgu=lcsorgu+lcsorgu1+lcsorgu2+' ) ON [PRIMARY] '

Use

If litxtsql=.T.

    If File('NesSQLData.txt')  && Does file exist?

        gnerrfile = Fcreate('NesSQLData.txt')  && If not create it

*        gnErrFile = Fopen('NesSQLData.txt',12)     && If so, open read/write

    Else

        gnerrfile = Fcreate('NesSQLData.txt')  && If not create it

    Endif

    If gnerrfile < 0     && Check for error opening file

        Wait 'Cannot open or create output file' Window Nowait

    Else  && If no error, write to file

        =Fwrite(gnerrfile , lcsorgu)

    Endif

    =Fclose(gnerrfile )     && Close file

    If gnerrfile > 0

        Modify File nessqldata.txt Nowait  && Open file in edit window

    Endif

Else

** bilgi yaz.

    If File('errors.txt')  && Does file exist?

        gnerrfile = Fopen('errors.txt',2)     && If so, open read/write

        x1=Fseek(gnerrfile,0,2)

    Else

        gnerrfile = Fcreate('errors.txt')  && If not create it

        x1=Fseek(gnerrfile,0,2)

    Endif

    If gnerrfile > 0     && Check for error opening file

        =Fwrite(gnerrfile ,m.fname+Ttoc(Datetime())+ Chr(13))

    Endif

    =Fclose(gnerrfile )     && Close file

    lcokkk=MYSQLEXEC(baglan(),m.lcsorgu)

    Wait Window m.fname+' Oluşturuldu.' Nowa

Endif

If Used(m.fname)

    Use In (m.fname)

Endif

If lcokkk=.T.

    Return=.T.

Else

    Return=.F.

Endif

Endfunc