AccessTr.neT
Sayı bulan kodun kısaltılması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: SQL (https://accesstr.net/forum-sql.html)
+--- Konu Başlığı: Sayı bulan kodun kısaltılması (/konu-sayi-bulan-kodun-kisaltilmasi.html)



Sayı bulan kodun kısaltılması - alican60 - 05/04/2013

Çeşitli meyvelerin sayısını ve büyüklüğüne göre sayısını bulduğum aşağıdaki kod uzayıp gitmektedir.Bu kodu tüm meyvelerde kullanabileceğim şekilde nasıl kısaltabilirmiyiz.[/code]
Kod:
Sub al()

Set Baglan = CreateObject("adodb.connection")

Baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\HAL.mdb"
Set rs = CreateObject("adodb.recordset")
Set rs2 = CreateObject("adodb.recordset")


Call baglanti
rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ELMA';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox1.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ELMA' and [BOYUT] ='4 İNCH';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox2.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ELMA' and [BOYUT] ='6 İNCH';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox3.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ŞEFTALİ';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox6.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ŞEFTALİ' and [BOYUT] ='2 İNCH';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox7.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ŞEFTALİ' and [BOYUT] ='4 İNCH';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox8.Text = rs(0).Value
rs.Close

rs.Open "select count([CINS]),count([BOYUT]) from [SEBZE_HALI] where [CINS] ='ŞEFTALİ' and [BOYUT] ='6 İNCH';", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
TextBox9.Text = rs(0).Value
rs.Close

End Sub[code]

[/quote]


Cvp: Sayı bulan kodun kısaltılması - POWER - 05/04/2013

Örneğinizi ekleyiniz...


Cvp: Sayı bulan kodun kısaltılması - alican60 - 05/04/2013

.rar SAY.rar (Dosya Boyutu: 37,02 KB | İndirme Sayısı: 10)
Dosyayı ekledim.