1 Konuyu açan erdalyalcin

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Konu: alter table da değişgen kullanmak mümkün mü?

Alter Table qkalite Add chtad1 c(25)
satırındaki chtad1 değişken içine atarak bir döngüde kullanmak istiyorum mümkün mü?

Alter Table qkalite Add chtad1 c(25)
Alter Table qkalite Add chtad2 c(25)
Alter Table qkalite Add chtad3 c(25)
Alter Table qkalite Add chtad4 c(25)
Alter Table qkalite Add chtad5 c(25)
Alter Table qkalite Add chtad6 c(25)
Alter Table qkalite Add chtad7 c(25)
Alter Table qkalite Add chtad8 c(25)
Alter Table qkalite Add chtad9 c(25)
Alter Table qkalite Add chtad10 c(25)

yazmadan bir döngüde halletmek istiyorum

erdalyalcin's Website

2 Cevaplayan ugurlu2001 Son düzenleyen, ugurlu2001 (09.06.2008 10:48:18)

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: alter table da değişgen kullanmak mümkün mü?

Visual Fox Pro
For i = 1 to 10

     MyAlter = "Alter Table qkalite Add " + "chtad"+Alltrim(Str(m.i))+" c(25)"

     &MyAlter

EndFor

İşini görmesi lazım.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3 Cevaplayan erdalyalcin

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Re: alter table da değişgen kullanmak mümkün mü?

teşekkür ederim işimi gördü

erdalyalcin's Website

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: alter table da değişgen kullanmak mümkün mü?

Visual Fox Pro
LOCAL ix

SET TEXTMERGE TO memvar m.lcAddCol noshow

SET TEXTMERGE on

FOR ix = 1 TO 10

\\ add column chtad<<m.ix>> c(25)

endfor

SET TEXTMERGE to

SET TEXTMERGE off

 

ALTER table qKalite &lcAddCol

veya:

Visual Fox Pro
local ix, lcColName

for ix = 1 to 10

 lcColName = 'chtad'+ltrim(str(m.ix))

 alter table qKalite add column &lcColName c(25)

endfor

Aradaki temel fark ilki tek seferde hepsini ekliyor, icinde data olan buyuk tablolarda daha iyi bence.

cetinbasoz's Website

5 Cevaplayan erdalyalcin

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Re: alter table da değişgen kullanmak mümkün mü?

teşekkür ederim

erdalyalcin's Website

6 Cevaplayan mrduyar

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

Re: alter table da değişgen kullanmak mümkün mü?

selamlar;

Visual Fox Pro
m.lnHandle=baglan()

=SQLTables(m.lnHandle,"TABLE","crTable")

Select crTable

Lca=0

Go Top

Scan

    Lca=Lca+1

    If Used('crRezervFlds')

        Use In 'crRezervFlds'

    Endif

    Lctable=Alltrim(crTable.table_name)

    =SQLColumns(m.lnHandle,Lctable,"NATIVE","crRezervFlds")

    If Lca=1

        Select * From crRezervFlds Into Cursor Tampon READWRITE 

    Else

        If Used('Tampon1')

            Use In 'Tampon1'

        Endif

        Insert Into Tampon Select * From crRezervFlds

    Endif

    Select crTable

ENDSCAN

SELECT * FROM tampon ORDER BY 1,2,3,4 INTO CURSOR sonuc READWRITE 

REPLACE ALL ordinal_position WITH 0

COPY TO c:\data11.txt DELIMITED

bu kod ile sql databese i txt dosyaya atıyor,
2 databese ayrı dosyalara atıp total commander ile karşılaştırma yapıyorum.
umarım birilerinin işine yarar.

Bilmediğin Neyse Yanıldığındır.