Fox4um - Veritabanı, Tablo, View, Index ve SQL Syntax

Order By

2012-02-11T21:42:36Z

Visual Fox Pro

1	Select * from MyTable order by Yil, Ay, Gun into cursor MyCursor nofilter

Tablomda Yil,Ay,Gun numerik field. Yukarıdaki Sql sonucunca gelen Cursor'da aylar 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9 seklinde order yapılmis olarak gelmekte. Ancak ben 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 seklinde order yapmasini istiyorum. Nasıl yaparım..

Simdiden tesekkur ederim..

MDB Browser

2012-01-30T13:00:00Z

Cihan sormustu baska ihtiyaci olanlar olabilir diye paylastim

Visual Fox Pro

*!* Author Cetin BASOZ

Public oForm

oForm = Createobject('myForm')

oForm.Show()

 

Define Class myForm As Form

  Height = 450

  Width = 850

  DataSession=2

  Caption='Show Access Data'

 

  Add Object lblAccess As Label With ;

    Caption = "Access Database", ;

    Left = 10, Top = 15, Width = 100

 

  Add Object txtMDBlocation As TextBox With ;

    Left = 112, Top = 12, Width = 520

 

  Add Object cmdBrowse As CommandButton With ;

    Top = 10, Left = 640, Caption = "Browse", Autosize=.t.

 

  Add Object lblTables As Label With ;

    Caption = "Tables", Left = 20, Top = 40, Width = 40

 

  Add Object lstTables As ListBox With ;

    Height = 400, Left = 65, Top = 40, Width = 265

 

  Add Object grdShow As Grid With ;

    Height = 400, Left = 340, Top = 40, Width = 500

 

  Procedure listtables

    Local lnConnHandle,lcMDB

    With This.txtMDBlocation

      If Empty(.Value) Or !File(.Value)

        Return

      Endif

      lcMDB = Trim(.Value)

    Endwith

 

    lnConnHandle = ;

     Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)};"+;

                     "Uid=Admin;DBQ="+m.lcMDB)

    SQLTABLES(m.lnConnHandle, ['TABLE'], 'crsTables')

    SQLDISCONNECT(m.lnConnHandle)

    Select crsTables

    This.lstTables.Clear()

    Scan

      This.lstTables.AddItem(crsTables.table_name)

    Endscan

  Endproc

 

 

  Procedure txtMDBlocation.LostFocus

    Thisform.listtables()

  Endproc

 

 

  Procedure cmdBrowse.Click

    This.Parent.txtMDBlocation.Value = Getfile('MDB','','',0,'Select Access Database')

    Thisform.listtables()

  Endproc

 

 

  Procedure lstTables.InteractiveChange

    Local lnConnHandle,lcMDB,lcSQL

    With This.Parent.txtMDBlocation

      If Empty(.Value) Or !File(.Value)

        Return

      Endif

      lcMDB = Trim(.Value)

    Endwith

 

    lcSQL = 'select * from "'+Trim(This.Value)+'"'

    lnConnHandle = ;

     Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)};"+;

                     "Uid=Admin;DBQ="+m.lcMDB)

    SQLEXEC(m.lnConnHandle,m.lcSQL,'crsLocal')

    SQLDISCONNECT(m.lnConnHandle)

    With This.Parent.grdShow

      .ColumnCount = -1

      .RecordSource = 'crsLocal'

    Endwith

  Endproc

Enddefine

uniqe id

2012-01-26T20:10:05Z

gun ay yil sicaklık enlem boylam lokasyon_id
1 1 1999 23 22.50 30.55 sayi 1
1 1 1999 23 22.50 30.44 sayi 2
2 1 1999 18 22.50 30.80 sayi 3
3 1 1999 12 26.10 30.80 sayi 4
4 1 1999 22 22.50 30.55 sayi 1
.. .. .. .. .. .. ..

Yukarıdaki tabloda, eslesen enlem ve boylam çiftleri için uniqe lokasyon_id değerleri atamak istiyorum.
Amacım lokasyon_id değerlerini atadiktan sonra, diger field'lerden bagımsız olarak lokasyon_id ile gruplanmıs ortalama sıcaklık degerlerini hesaplamak.
Simdiden tesekkur ederim..

NetCDF veri formatı

2011-12-15T11:26:58Z

NetCDF (Network Common Data Form) ve ya HDF (Hierarchical Data Format)

formatındaki verileri FoxPro'ya nasıl aktarabilirim?

memo field

2011-12-15T09:37:39Z

adet Cins Bir.fiyat toplamtl
----- ---- ---------- ----------
2 yağ 10 20
3 su 5 15

şeklinde fieldleri olan bir DBF deki kayıtları başka bir DBF nin Memo alanına

sele urunler
do while !eof()
sele musteri
replace açıklama with urunler.adet+"adet"+urunler.cins+urunler.toplamtl+"tl den"+;
"toplam"+urunler.toplamtl+chr(13)
sele urunler
skip
enddo
sele urunler
zap

şeklinde yazdırıyorum.

Sözkonusu memo alanda
2 adet yağ 10 TL den toplam 20 Tl
3 adet su 5 TL den toplam 15 tl

şeklinde görünüyor. Sorum şu. memo alana kaydettiğim bu bilgileri tekrar urunler
DBF'e nasıl kaydedebilirim(önceki işlemin tam tersi). Yada memo alandaki bilgiyi yine satırlar halinde CSV formatında kaydedebilirmiyim?

Teşekkürler

SQL: Error correlating fields (Error 1801)

2011-12-11T16:37:39Z

selamlar;
aşağıdaki kod SQL: Error correlating fields (Error 1801) hatası veriyor.

Visual Fox Pro

UPDATE carisatir ;

   SET gid = ;

       (SELECT id ;

          FROM gircik ;

         WHERE gircik.fisno==VAL(SUBSTR(carisatir.aciklama,1,AT("-",carisatir.aciklama)-1)))

Bir cursorda UNIQUE değerleri saymak

2011-12-01T15:11:14Z

Merhaba,
Arama sonucu elde ettiğim bir cursor'um var. Yapısı şöyle:
BIOPSI C 9
MATERYAL C 2
MATSAYI N 2
Bu cursor'da BIOPSI field'ının aynı değer alan kayıtlarını bire indirgeyip kayıtları saymak istiyorum. Sonucu bir değişkene atayacağım.
COUNT komutu kullanmayı düşündüm ama yapamadım.
UNIQUE diye bir fonksiyon var ama nasıl kullanılacağı VFP Help'inde yazmıyor. Çünkü eski bir komut imiş.
FOR NEXT döngüsü belki olabilir ama daha kısa ve hızlı bir yolu var olabilir diye düşünüyorum.
Yardım ederseniz sevinirim.
Teşekkürler...

tekrar bulmak

2011-11-20T05:24:01Z

bir tablom var buna sürekli veri giriyorum .

aşağıdaki kodu yazıyorum

Visual Fox Pro

oldalias=alias()

buay=allt(this.parent.parent.combo1.value)

if buay=" "

    messagebox("Ay Seçilmemiş",64,"Personel Programı")

else

    sele bordro

    set order to anahtar

    bumatrah="m"+buay

    go top in "bordro"

    aa=0

    bb=0

    cc=0

    dd=0

    do while .not. eof("bordro")

        arama=bordro.kod+bordro.fbno

        mprimvtp=bordro.prim_t

        mvyemek=bordro.yv

        mkyemek=bordro.yk

        myemekssk=(mvyemek*param1.yemek_ucrt)+(mkyemek*2.5*param1.yemek_ucrt)

        mtdiger=mprimvtp+myemekssk

        sele tisdiger

        if seek(arama,"tisdiger","anahtar")

            repl tisdiger.&bumatrah. with tisdiger.&bumatrah.+mtdiger in "tisdiger"

        else

            if seek(arama,"personel","anahtar")

                madi=personel.adi

                msoyadi=personel.soyadi

                mssk=personel.ssk

                mkod=personel.kod

                mfbno=personel.fbno

            endif

            append blank in "tisdiger"

            repl tisdiger.kod with mkod,;

                tisdiger.fbno with mfbno,;

                tisdiger.adi with madi,;

                tisdiger.soyadi with msoyadi,;

                tisdiger.ssk with mssk,;

                tisdiger.&bumatrah. with mtdiger in "vergi"

        endif

        aa=aa+1

        bb=bb+mprimvtp

        cc=cc+myemekssk

    enddo

    skip "bordro"

messagebox("&aa personel için &bb tl Verimliliği teşvik Prim matrahı ve &cc tl Nakdi Yemek Ssk matrahı devir sokulmuştur.",64,"Personel Maaş Bordro Programı")

endif

alias=&oldalias.

burada program bazen cozutuyor tablomu ayrı acıp baktığımda isimsiz ve değerleri seçtiğim combobox ayındaki değerler o oluyor. yada eksik atıyor mesela toplam hesabıma göre 1000 tl matrahı alması gerekirken tabloyu açıp baktığımda sum m01,m02,m03 dediğimde yüklediğim ayda belli bir tutar eksikliği oluşuyor acaba neden ?
yardımcı olursanız sevinirim. acaba burda bir kişiyi tekrar kaydetme imkanı varmıdır birde böyle birşey olup olmadığını nasıl bulabilirim. kayıt sayısı çok 3000 e yakın personelim var

corsor to csv

2011-03-13T12:59:33Z

Merhabalar
dbf den ya da cursordan utf-8 , csv dosyası en kısa yoldan nasıl yapabiliriz.
diye soracaktım ancak
COPY to c:\safran\a.csv type csv şeklinde işi hallettim. Bu dosyada ne yazıkki TR karakter problemi yaşıyorum. csv dosyasında utf-8 olarak ve aralara virgül yerine noktalı virgül koymanın bir yolu var mı
Teşekkür ederim

cursor'da yapılan değişikliklerin dbf'e kaydedilmesi

2011-03-10T13:19:25Z

Arkadaşlar şöyle bir şey mümkün mü bilemediğim için soruyorum :
select ...... into cursor xxxx ile oluşturulan cursor üzerinde yapılan değişikliklerin dbf üzerinde gerçekleşmesi nasıl sağlanır ?
Bir de select ... join ile birlikte kullanıldıysa da güncelleme orjinal tablolarda gerçekleştirilebilir mi ?
Teşekkürler..

insert into veya tableupdate(1,.t.) kayıt tekrarı engellemek

2011-03-04T08:22:08Z

bir personel ve sigorta takip programında yeni personel girişi yapacağız ve bu kayıt sırasında herkese ait 5 haneli fabrika bo (fbno) hanesi var ben kişilerin fbnosunun sigorta nosunun ve tc nosunun daaha önceden olmamasını nasıl sağlarım. mükerrer kayıt gibi yani yineleme olmayacak.
bunu yaparken özel bir kontrol mekanizması nasıl oluşturulur.

Save as HTML

2011-02-17T14:09:05Z

Merhaba

Localdeki bir table yada cursor'u html yapıp web'e yollamak istiyorum. Bunu table açıkken menüden File > save as html şeklinde kaydediyorum. Ama
1. Bunu programda kod ile nasıl yapabilirim.
2. Standart html görünümünden çıkarmak için bu koda parametre ekleyebilirmiyiz ?

Şimdiden teşekkür ederim

setup wizard nerede?

2011-02-04T19:34:54Z

üsdatlar kusura bakmazsanız çok basit bi soru soracağım.Foxpro9 da proje kurulum cd si oluşturacağım.Eski sürümlerde setup wizard vardı ve oradan kolayca hazırlıyorduk.Fox9 da göremedim.Nerede acaba?:D:P:rolleyes:

Append blank

2011-01-18T17:19:07Z

Merhaba
Bu ilk defa başıma geliyor. Çok kullanıcılı bir sistemde program gayet düzgün şekilde APPEND BLANK yaparak devam edereken bir süre sonra ÖRNEĞİN yüzücü kayıttan sonra append blank yapmadan eski satırın üzerine yazmaya başlıyor. Programdan çıkıp tekrar girince düzeliyor.

Set Multilocks On
Set Reprocess To Auto

durumunda. her append blank ve replace den sonra dosyayı açıp kapamıyorum. zaten select ile seçilmiş durumda.
Ne hata yapıyorum. Değerli fikirlerinizi rica ederim.

set key to

2011-01-11T10:12:32Z

sele kisi
set order to isim && burdaki orderi görmek için ? order() kullanıyoruz
set key to "alp"
set filter to soyad="d" && burdaki filter i gormek için ? filter() kullanıyoruz

set key to için hangi komut seti var ? ( order(), filter() gibi )

teşekkürler