1 Konuyu açan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Konu: SQL Server Transfer Script

Asagidaki kodu VFP data klasorunu verip SQL Server da Tablolari olusturacak Scripti yaratacak hale donusturebilirmiyiz ?
simdiden tesekkur.


ornek kullanim

Visual Fox Pro
1

SqlServerTransfer('d:\myapp\data','.\SQLExpress','TargetDB')

gibi yada bas turlu olabilir

&&SQL Server Transfer Script
&& Author Codes Cetin BASOZ

Visual Fox Pro
1

2

3

4

5

6

7

Define Class upSizer As Custom

    dbPath = ''

    dbOwner = ''

    oForm = .Null.

    dbOwnerPrefix = ''

 

   ....
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

2 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: SQL Server Transfer Script

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Set Safety Off

Close Databases All

oUpsizer = newobject('UpSizer','Sqlservertransfer.prg')

oUpsizer.dbPath = '%%dbPath%%'

oUpsizer.GetVFPTableStructures('data') && development data folder - relative

oUpsizer.GetVFPIndexes('data')

oUpsizer.GetCACodes('data')

oUpsizer.WriteCaLibs()

 

Strtofile(oUpsizer.GenerateCreateTablesSQL(), 'Tables.sql')

Strtofile(oUpsizer.GenerateSendDataSQL(), 'Data.sql')

Strtofile(oUpsizer.CreateDelTriggerSQL(),'DeleteTriggers.sql')

Strtofile(oUpsizer.CreateInsTriggerSQL(),'InsertTriggers.sql')

Strtofile(oUpsizer.AddModTriggers(),'InsertTriggers.sql',1)

 

oUpsizer.CreateSQLDb("TargetDB",".\sqlexpress;Trusted_Connection=yes","d:\myapp\data")

Son düzenleyen, cetinbasoz (30.04.2010 14:35:42)

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: SQL Server Transfer Script

Bu arada, keske bu kodlari public yayinlamasaydin.

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

4 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: SQL Server Transfer Script

oncelikle yanıt icin tesekkurler. kodlar artık cropped public smile

kullanim kodum asagidaki sekilde ancak su satirlarda hata aliyorum ki normal bu kısımları nasil ayarlamaliyim ?

line 370 :         Select Distinct pTable From ("dataInclude\Tablerelations") Into Cursor crsParents nofilter
line 381:             Select * From ("dataInclude\Tablerelations") ;
line 764:            From ('dataInclude\TableList') ;

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

SET PATH TO "D:\SOYKAN\MYSOFTWARE\DEPOMATIK_SQL\Ca_Classes" ADDITIVE

LOCAL cdataPath,cTargetDB 

m.cDatapath = "D:\SOYKAN\MYSOFTWARE\DEPOMATIK\DATA03"

m.cTargetDB = 'depomatik'

 

Set Safety Off

Close Databases All

oUpsizer = newobject('UpSizer','Sqlservertransfer.prg')

oUpsizer.dbPath = '%%dbPath%%'

oUpsizer.GetVFPTableStructures(m.cDataPath) && development data folder - relative

oUpsizer.GetVFPIndexes(m.cDataPath)

oUpsizer.GetCACodes(m.cDataPath)

oUpsizer.WriteCaLibs()

 

Strtofile(oUpsizer.GenerateCreateTablesSQL(), 'Tables.sql')

Strtofile(oUpsizer.GenerateSendDataSQL(), 'Data.sql')

Strtofile(oUpsizer.CreateDelTriggerSQL(),'DeleteTriggers.sql')

Strtofile(oUpsizer.CreateInsTriggerSQL(),'InsertTriggers.sql')

Strtofile(oUpsizer.AddModTriggers(),'InsertTriggers.sql',1)

 

oUpsizer.CreateSQLDb(m.cTargetDB,".\sqlexpress;Trusted_Connection=yes",m.cDataPath)
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

5 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: SQL Server Transfer Script

Hata alman normal o tablolar benim bilgisayarimda

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

6 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: SQL Server Transfer Script

sad cozum ?

asagidaki satirlari remarklayinca buraya hata yok tables.sql olusuyor devami tabi aradi tablolar olmayinca devam etmiyor..

*Strtofile(oUpsizer.GenerateSendDataSQL(), 'Data.sql')
*Strtofile(oUpsizer.CreateDelTriggerSQL(),'DeleteTriggers.sql')
*Strtofile(oUpsizer.CreateInsTriggerSQL(),'InsertTriggers.sql')
*Strtofile(oUpsizer.AddModTriggers(),'InsertTriggers.sql',1)
*oUpsizer.CreateSQLDb("TargetDB",".\sqlexpress;Trusted_Connection=yes","d:\myapp\data")

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website