Skip to main content

AccessTr.neT


Sayı bulan kodun kısaltılması

alican60
alican60
SQL
2
2993

Sayı bulan kodun kısaltılması

#1
Ç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]
Son Düzenleme: 05/04/2013, 20:03, Düzenleyen: alican60.
Cevapla
#2
Örneğinizi ekleyiniz...
Please return your positive or negative ...
Cevapla
#3
.rar SAY.rar (Dosya Boyutu: 37,02 KB | İndirme Sayısı: 10)
Dosyayı ekledim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task