Sorgu mu ? kullanmıyorum !
Tarih
14/02/2011 17:09
Konu Sahibi
okileturc
Yorumlar
16
Okunma
3767
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Kayıtlı sorgu yığınından veya kod sayfalarına yazdığınız uzun
SQL cümlelerinden
kurtulmak ister misiniz ?
Ayni rapor veya form tasarımına 1’den fazla sorgu çağırmak gerektiğinde
“RecordSource” ile oynamıyor musunuz ?

O halde “SQL arşivinizi oluşturun” !

Bu konuda geçen sene bir üyemizin sorusuna cevaben küçük
bir çalışma yapmıştık. Ancak bunu bir metod olarak kullanmanın da
enteresan bir çözüm olduğunu düşünüyorum ( ben kullanıyorum )

Uygulamalarıma ilave bir tablo ekliyorum “tbl_sql – Sql cümleleri”
tablosu. SQLC_id, SQLC_keyword, ve SQLC alanlarından oluşuyor.
(bkz. ekteki mdb örneği )

En karmaşık sorgularınızı oluşturduktan sonra, Sql görünümüne
geçerek oluşturulan kodu kopyala/ yapıştır ile tabloma kayıt ediyorum,
ve bir anahtar kelime ekliyorum ( SQLC_keyword )

resim
resim
resim

Daha sonra gerektiğinde “anahtar kelime “ ile çağırıyorum

Örnek 1 ( Form üzerindeki yeni kart ekleme butonu için )

Visual Basic Code
Dim StrSQL As String
StrSQL = DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]='kartekle'")
DoCmd.RunSQL StrSQL

Örnek 2 ( Raporun açılışına )

Visual Basic Code
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]='hareketgorenler'")
End Sub


Burada önemli olan bir başka konu gerçekten sorguya ihtiyaç
duyulduğunda ne yapılabileceğidir


İstediğimiz Sql cümlesinden yeni bir sorgu yaratabilriz :
Bu sorguya “maymuncuk” adı verelim, gerektiğinde kullanalım

Visual Basic Code
1
2
3
4
5
6
7
8
9
     Dim db As DAO.Database
     Dim MyQry As DAO.QueryDef
     Set db = CurrentDb
     On Error Resume Next
     ' maymuncuk sorgusu her yeni işlemde önce silinecektir
     db.QueryDefs.Delete "maymuncuk"
     'sorguya SQL cümlemizi atıyoruz
     Set MyQry = db.CreateQueryDef("maymuncuk", DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]= 'hareketgorenler'"))
     db.Close


Artık bu somut sorgu üzerinden kayıt tarama işlemleri yapabilir
RecordSet olarak kullanabilriz.

Örnek ( maymuncuk sorgusundan kayıt sayısı alalım )

Visual Basic Code
Me.ALANADI = DCount (“[kart_ID]”, “maymuncuk”)



Kolay gelsin





















Ek Dosyalar
.rar   sql_arsiv.rar (Dosya Boyutu: 14,67 KB / İndirme Sayısı: 107)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.009
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,20:17
Teşekkürler Oktay hocam, çok akıllıca.
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
30/11/2016,21:23
(14/02/2011, 17:30)sledgeab Adlı Kullanıcıdan Alıntı: Teşekkürler Oktay hocam, çok akıllıca.

alkisalkisalkis
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
29/11/2016,19:38
güzel çalışma teşekkürler. keşke örnekte linked table kullanmasaydın.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Hocam, atlamışım Img-cray
ektedir, 1. mesaj da güncellenmiştir


Ek Dosyalar
.rar   sql_arsiv.rar (Dosya Boyutu: 14,67 KB / İndirme Sayısı: 39)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Paylaşım ve fikir için teşkürler
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Gelişmiş Sorgu Örnekleri ozanakkaya 23 18.421 31/03/2015, 01:27 ozanakkaya
  sorgu eksik metin aliyorga 2 1.087 30/08/2014, 13:29 atoz112
  Tablo,Sorgu,Form,Modülleri Gizleyip Gösterme emturker 9 4.373 02/05/2012, 15:40 ORHAN ALKAN
  Liste Kutusundan Seçerek Form, Sorgu, Rapor Açtırmak tdsharun 10 5.008 14/12/2011, 19:26 fascioğlu
  Access'te sql veritabanlı sohbet programı tablo yok sorgu yok - chat :) cuneyt 13 5.645 01/10/2011, 14:57 kayahantemiz


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya