Parametreli sorgu

yeni54 · 29 Eylül 2007

Merhaba arkadaşlar,

formun kayıt kaynağı bir sorgu cümlesi.

sorgu cümlesinde, select kısmında bir parametre kullandım. (where şartında değil.)

yani,

select iif(v_parametre='X';1;0) ........ gibi birşey.

Formu açtığımda otomatik olarak parametre ekranı açılıyor e v_parametre yi girmemi istiyor.

Sorum şu: Bu şekilde bir ekran açılmadan, v_parametre parametresine nasıl değer gönderebilirim?

v_parametre yerine Forms!<form_adi>!<form_elemani> şeklinde kullanmak istemiyorum.
Direkt v_parametre = xxxx şeklinde kullanmak mümkün mü?

Saygılar.

modalı · 29 Eylül 2007

Sayın yeni54,

Doğru anladıysam, parametrenizi sql cümlesi dışında bir değişkene atayın ondan sonra da bu değişkeni sql cümlesi içinde kullanın.

İyi çalışmalar

yeni54 · 29 Eylül 2007

Valla ne yalan söyliim sayın modalı, jeton düşmedi.

v_parametreyi form üzerinde tanımlıyorum ama, form açılırken parametre ekranı çıkıyor önce.

v_parametre yerine forms!<form_adi>!<alan_adi> şeklinde kullanınca bir sorun çıkmıyor.

Bu şekilde de sorgu bir forma bağlı oluyor. başka formlarda kullanamıyorum.

Aslında query nin sql cümlesini, kullanacağım formun kod kısmında kullanırsam da bir sorun olmuyor ama, bu sefer de aynı sql cümlesini, kullanacağım tüm formlara taşımak zorunda kalacam. Bir değişiklik icab ederse, tümünde tek tek değiştirmem gerekecek.

<query_ismi>.<parametre_ismi> = <deger>

benzeri bir kullanım arıyorum yani.

modalı · 29 Eylül 2007

O zaman bir modüle bir fonksiyon veya alt yordam yazın ve formlar üstünden çağırıp kullnın.

İyi çalışmalar

yeni54 · 29 Eylül 2007

Teşekkürler sayın modalı.

İstediğimi sağlamıyorsa da en iyi çözüm bu herhalde.

Benim istediğim tam olarak şu aslında:

Tüm sorguları, belli bir hiyerarşi içinde query bölümünde toplayayım
ve dışarıdan göndereceğim parametrelerle bu query leri kullanayım.
Kod kısmında veya formun veya bir objenin kaynağında salt sql kodu olmasın.

Ama access bunu sağlamıyor galiba. Ne yapalım canı sağolsun.

beab05 · 29 Eylül 2007

Benim jeton da düşmedi bu arada.. Hala ne istediğinizi tam olarak anlayamadım aklıma gelen benim de modullerdi ama bu da sizin için uygun değilmiş demek.. Örneklendirerek anlattanız yani örnekten kastım senaryoyu anlatsanız.. İlginç geldi açıkçası...

yeni54 · 29 Eylül 2007

Modüller kesinlikle sağlıyor tabi. Sorguda kullanacağım parametreyi fonksiyona parametre olarak gönderirim olur biter.

Ama, ben o şekilde istemiyorum. (Belki de çok saçma bişey istiyorumdur. Eğer böyleyse kusuruma bakmayın)

Örnek bir sql cümlesi üzerinden gidelim:

Kod:

SELECT stok_kart_table.stok_grup, stok_kart_table.stok_id, stok_kart_table.stok_adi, stok_kart_table.kritik_seviye, IIf([COLOR="red"]v_rg[/COLOR]='R',nz([rdevreden],0),IIf([COLOR="red"]v_rg[/COLOR]='G',nz([gdevreden],0),nz([rdevreden],0)+nz([gdevreden],0))) AS Devir
FROM stok_kart_table LEFT JOIN stok_devreden_table ON stok_kart_table.stok_id = stok_devreden_table.stok_id;

Bu sorguyu sorgular bolumunde sorgu1 adıyla kaydettiğimi düşünün.

Şimdi form1 adında bir form hazırlayalım ve kaynağına sorgu1 i koyalım.

form1 i çalıştırınca, önce v_rg yi isteyen bir parametre penceresi açılıyor.

Benim istediğim, v_rg ye bir şekilde değer göndereyim. parametre ekranı olarak sormasın bana.

Umarım anlatabilmişimdir.

modalı · 29 Eylül 2007

Sayın yeni54,

Durum şimdi dahada basitleşti: Formu kodla açıyoruz ve kullanılan komut:

Kod:

Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Form1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Buradaki stLinkCriteria cümlesi tam sizin istediğinizi karşılıyor . Biraz deneme yapın düzgün çalıştığını göreceksiniz.

OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

Kullanılabilecek diğer parametreler.

İyi çalışmalar

beab05 · 29 Eylül 2007

Ben hala jetonumu yontuyorum ve merakla takip ediyorum

yeni54 · 29 Eylül 2007

Sayın modalı, buradaki stLinkCriteria where şartını etkilemiyor mu?
Ben where şartında parametre kullanmıyorum.

yeni54 · 29 Eylül 2007

beab05, olay, sorgular bölümündeki bir sorgunun select inde kullanılan bir değişkene değer aktarmak.

yeni54 · 29 Eylül 2007

Millete atıp tutuyoruz örnek eklemiyorsun diye ama biz de eklemiyoruz.

Tüm üşengeçliğimi bırakıp bir örnek hazırlayayım en iyisi.

beab05 · 29 Eylül 2007

O değişkene değer aktarmak olduğunu anladım ama o değer zaten aynı database içinde olmayacak mı? Dolayısıyla bir module fonksiyon olarak konulmasını neden istemedin anlamadım? Harici bir yerden verilecekse "ve dışarıdan göndereceğim parametrelerle bu query leri kullanayım" dedin, buna da takıldım

Stored procedur bile geliyor aklıma.. Neyse örneği bekleyelim..

yeni54 · 29 Eylül 2007

Örnek Ekte.

Şimdi olaydan da bahsedeyim biraz:

tabloda kdv_oran alnı ve miktar alanı var.

Eğer kdv_oran = 0 ise işlem gayri resmi işlem, > 0 ise resmi işlem olarak adlandırılıyor.

Şimdi form1 i açtığımda v_g yi istiyor.

v_g yi istemeden bu işi nasıl hallederim? soru bu.

v_g ye R değeri verirsem gayri resmi hareket gören stoklar görünecek
v_g ye G değeri verirsem resmi hareket gören stoklar görünecek
boş geçersem de ayırım yapmadan gösterecek.

Şimdi anlatabildim umarım.

beab05 · 30 Eylül 2007

Merhaba;

Stored procedures / queries tam size göre; oluşturacağınız procedurlere istedğiniz her yerden değişken de atayabilirsiniz local veya harici ayrıca bu procedurleri de istediğiniz heryerden çağırabilirsiniz..

Örneğin;

Kod:

Dim confirma As ADODB.Connection
    Dim strProcedure As String
    
    Set confirma= Application.CurrentProject.Connection
    strProcedure = "CREATE PROCEDURE procedur_ismi " & _
                   "AS " & _
                   " Select alan from tablo"    
    confirma.Execute strProcedure
    confirma.Close

CREATE ProcedureName
(ParameterName1 DataType, ParameterName2 DataType, ParameterName_n DataType_n)
AS
Body of the Procedure

Kod:

Private Sub buton_Click()
    Dim confirma As ADODB.Connection
    Dim strProcedure As String
    
    Set confirma = Application.CurrentProject.Connection
    strProcedure = "EXECUTE procedur_ismi ;"
    
    confirma.Execute strProcedure
    confirma.Close
End Sub

butona, loada ya da nereye isterseniz çalıştırabilirsiniz..

v_g değişkenine de doğru tanımlamalarla "Parameters.Add " ile istediğiniz yerden veri alabilirsiniz..

Olayın güzelliği hali hazırda bekleyen saklı bir yordamınız oluyor.. Ayrıca view oluşturma da işinize yarayabilir query gibi oluyor ama henuz farkı var mı yok mu çıkartamadım..

Aslında biraz kafam da karıştı ama sizin ihtiyacınız "stored" dir.. Bir de tablolarda hesaplanmış alan var sanki!!!

omerceri · 30 Eylül 2007

Sn yeni54
Açılışta, Form'un Kayıt kaynağını ve stok_id alanı ile Mik alanının Denetim kaynaklarını boş belirleseniz. Forma hiç bir değer gelmeyecektir.
Daha sonra Formun KeyUp olayında, Kayıt Kaynağı ve alanların Denetim kaynaklarını basacağınız tuşlara göre ayarlasanız. Çare olabilir mi?

yeni54 · 13 Ekim 2007

Nihayet...

Çok da basitmiş.

Şöyleki:

tblMusteriler adında bir tablomuz olsun. alanlarinin bir kismi:
......
......
adi....... metin (adi ve soyadi alanı, şahıs bilgileri için kullanılıyor olacak)
soyadi.. metin
unvani.. metin (unvani alani, firma bilgileri için kullanılıyor olacak)
.....
.....
şeklinde olsun.

Şimdi, dışarıdan parametre olarak vereceğimiz p_firma_sahis parametresine
göre firma bilgilerini veya şahıs bilgilerini getirecek Sorgu1 adında bir sorgu oluşturalım.

Yani,
Sorgu1: (select iif([p_firma_sahis] = 'F',unvan,adi & ' ' & soyadi) from tblMusteriler)
şeklinde.
(Burada kullandığımız p_firma_sahis parametresinin tablo alanları ile hiçbir ilgisi yok.)

Bu sorgumuzu, Form1 formumuza veri kaynağı olarak bağlayalım.
Bu bağlama işlemini, formun özellikler ekranında değil, Form_open olayında halledeceğiz.

Kod:

Option Compare Database
Option Explicit

Dim db As Database
Dim qr As [COLOR="red"]DAO.QueryDef[/COLOR]

Private Sub Form_Open(Cancel As Integer)
    Set db = CurrentDb
    [COLOR="Blue"]Set qr = db.QueryDefs("Sorgu1")[/COLOR]
    [COLOR="Red"]qr.Parameters("p_firma_sahis") = "F"[/COLOR]
 
    [COLOR="Blue"]Set Me.Recordset = qr.OpenRecordset[/COLOR]
    
End Sub

Private Sub Form_Close()
    Set qr = Nothing
    Set db = Nothing
End Sub

Bu modülde, DAO.QueryDef nesnesini kullandık.
Set qr = db.QueryDefs("Sorgu1") satırı ile Sorgu1 i hafızada oluşturduk.
QueryDefs in özellikleri ve fonksiyonları incelendiğinde, bizim işimize yarayacak Parameters ve OpenRecordset özellik ve fonksiyonu olduğunu görüyoruz.
Parameters özelliği ile sorgumuzda kullandığımız parametrelere değer aktarımı yapabiliyoruz.
Yani qr.Parameters("p_firma_sahis") = "R" satırı ile. Burada istediğimiz kadar parametre kullanabiliriz.
OpenRecordset ise bu sorguyu işletip geriye bir recordset nesnesi döndürüyor.
İşte bu recordset nesnesini Form1 imize bağladığımız anda işlemimiz gerçekleşmiş oluyor. yani Set Me.Recordset = qr.OpenRecordset satırı ile.

Şimdi bu bize ne sağladı. Tamamen esneklik.
Artık herhangi bir parametreli sorgumuzu, herhangi bir formumuza veya raporumuza
rahatlıkla bağlayabileceğiz.

assenucler · 15 Ekim 2007

Bir istek

Sn. yeni54

Merhabalar, geçmiş bayramınız kutlu olsun. Sizden bir ricam var, takıldığınız konuları siteye genişce yazdınız ve aldığınız yanıta göre de sanırım, sorunu çözdünüz. Acaba son halini yükleyebilir misiniz?

Burada yazılanlar ile dosya içeriğini karşılaştırıp kendi adıma olayı
n inceliğini anlamaya çalışacağım.

Teşekkürler.

Parametreli sorgu

yeni54

modalı

yeni54

modalı

yeni54

beab05

Özel Üye

yeni54

modalı

beab05

Özel Üye

yeni54

yeni54

yeni54

beab05

Özel Üye

yeni54

beab05

Özel Üye

omerceri

yeni54

assenucler