Sadettin POLAT - 'S'log/anı/ olmayan 'P'log !

Lanet olsun sana ey zalim nesne, Beni değirmende taşa döndürdün Kendi kendine ne mırıldanıp duruyon Asım ? Gel yanıma sana bişeler gösterecem. Geliyom abi... ..... ..... Şimdi yapacağım şey bazı veritabanı işlemleri için kendi nesnemi oluşturup işlemleri bu nesneye yıkmak, Asım. Ben nesneye sadece "şu hesaptan şu hesaba şu miktarı havale yap" diye emir verip işlemin nesne tarafından yapılmasını sağlayacam. Abi "Zengin yedek kulubesi" ne ne oldu ? Ona biraz ara verdik ilerde tekrar dönecez Asım. Sen şimdi buraya konserve ol bakim. İlk önce her hangi bir veritabanında CARI adında bir tablo oluşturalım ve bu tabloya aşağıdakilere uygun bir şekilde alanları ekleyelim. Ben firebird kullandım, tablonun ddl ise aşağıda gözüken şekilde. Tabi burda gözükmeyen trigger, generator gibi bazı kodlar da var ama onlar şimdilik konumuz değil. CREATE TABLE CARI ( ID INTEGER NOT NULL, AD VARCHAR(20) COLLATE PXW_TURK, SOYAD VARCHAR(20) COLLATE PXW_TURK

29032005122236.jpg (JPEG-Grafik, 317x400 Piksel) nelly furtado ve şarkıları 1 avril lavigne ve şarkıları 2 gerisi yalan...

dbExpress ile muhabbetimize devam ediyoruz. Bir kaç ufak araştırmadan sonra 2 nolu yazıda bağlantı için yazdığımız onlarca parametrenin fazlalığından şikayet etmiştim. Google'da biraz araştırınca TSqlConnection bileşeninin LoadParamsOnConnect özelliğinin bu işe yaradığını öğrendim. Gerçi adı zaten böyle birşeyi çağrıştırıyor ama hazıra alışmışız bi kere :( Neyse efenim, bu parametreyi True yaptığımız vakit Firebird veritabanına bağlanmak için kullandığımız butonun click olayına aşağıdakileri yazmamız yeterli oluyor. SQLConnection1.Close; SQLConnection1.CloseDataSets; ClientDataSet1.Close; SQLConnection1.ConnectionName := 'dbExMySql'; SQLConnection1.Open; ClientDataSet1.Open; Caption := cntBaslik + ' - Veritabanı :' + cntFirebird; StatusBar1.Panels[1].Text := cntFirebird; Bu kolaylığın elbet bize bi getirisi olacaktır. D:\Program Files\Common Files\Borland Shared\DBExpress dizininde yer alan ve bizim ConnectionName değerimize ait olan parametleri içeren dbx

Şimdi dbexpress ile ufak bir örnek yapacaz. Bu örnekteki amaç tek bir uygulama ile iki farklı veritabanına aynı yapı içerisinde kayıt eklemek, düzenlemek ve silmek... bunun için gerekli olan alet edevatımız şu şekilde : 1- Firebird 1.5 Kullanacağımız birinci veritabanı sunucusu 2- IBExpert Firebird yönetim aracı 3- MySql 4.1 Kullanacağımız ikinci veritabanı sunucusu 4- MySql Front MySql yönetim aracı 5- dbExpress driver for MySQL (http://crlab.com/dbx/download.html) Delphi 6 ile gelen mysql sürücüleri ile mysql 4.1 ile bi türlü bağlantı kuramadım. Bende bunu yükledim. Oluşturmamız gereken tablomuz oldukça basit CREATE TABLE KURUMLAR ( KURUMID INTEGER, KURUMADI VARCHAR(20) ); Mysql için database adını tedarik olarak oluşturdum. Çalışma anında programın görüntüsü Programı yavaş yavaş inşaa ediyoruz. Tasarım anında programın görünümü 1- SQLConnection1 : Veritabanı sunucusuna bağlanmamızı sağlayan bileşen. 2- SQLTable1 : Veritabanındaki tablolara bağlana

Yaptığınız bir yazılımın birden fazla veritabanı ile gayet sorunsuz çalıştığını düşünün. Programı çalıştırıyorsunuz, program size bir liste içerisinde kullanabileceğiniz veritabanlarının bir listesini gösteriyor ve siz listeden size uygun olanı seçerek programı çalıştırıyorsunuz. Bunun hem size hem de kullanıcıya maddi anlamda çok büyük bir rahatlık getireceği aşikar. Daha fazla hız ve daha fazla güvenlik istenen bir ortamda Oracle kullanabileceğiniz gibi orta ve küçük ölçekli yerlerde mySql, Firebird gibi veritabanlarını kullanabilirsiniz. Bu tür işler için geliştirilmiş başka teknolojiler var mıdır bilmiyorum ama benim etrafımda görebildiğim bir kaç teknolojiden bahsetmek istiyorum. İlk söylemek istediğim aslında böyle birşeyin olamayacağı :) Tıpkı "bir kere derle, her işletim sisteminde çalıştır" sözü gibi... Yani extra kod yazmadan böyle bir şeyin çok sağlıklı bir şekilde yapılabileceği şimdilik uzun bir hayal çünkü veritabanı sistemleri arasında oldukça büyük farkla

0:33:07 Düsman filonun kerber kerberos [3:125:10]Mesaj yaz yaklastigi gezegen : NTGM1[3:125:3] Yaklasan filoda 2 gemi bulunuyor. ( Kruvazör) -------------------------------------------------------------- 1:18:38 Düsman filonun kerber kerberos [3:125:10]Mesaj yaz yaklastigi gezegen : Nebuchadnezzar[3:125:6] Yaklasan filoda 3 gemi bulunuyor. ( Kruvazör, Geri Dönüsümcü)

Densiz birinin yaptığı bir saldırıdan ağır yaralar alarak zar zor kurtulmuş bulunmaktayım. Yaşadığım için yüce rabbime şükürler ediyorum. Bu saldırı bana evrende yalnız olmadığımızı bir kez daha hatırlattı. Ortalık kurt, çakal dolu. Gelişimimi sıhhatli bir şekilde tamamlayabilmek için marketten aldığım daninoların yanında üş-beş savunma mekanizması geliştirmek artık farz oldu. Bu nedenle oturdum ve bir beş yıllık kalkınma planı hazırladım. Bu plana göre kısa süre içerisinde yapılması gerekenleri aşağıda madde madde yazdım. 1-Bilimsel Arastirma Labarotuvari (Kademe 6) (6) OK 2-Koruyucu Kalkan Teknigi (Kademe 1) (3) OK 3-Uzay Tersanesi (Kademe 8) (7) 4-Enerji Teknigi(Kademe 8) (5) 5-Lazer Teknigi(Kademe 10) (6) 6-Iyon Teknigi(Kademe 5) (5) OK 7-Robot Fabrikasi(Kademe 10) (7) 8-Bilgisayar Teknigi(Kademe 10) (5) (X) = mevcut kademe Bu işlemlerden sonra şu silahlara sahip olacam. Gaus Topu, Plazma Aticilar, Nanit Fabrikasi. gazamız mübarek olsun...