05/04/2013, 20:02
Ç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]
[/quote]
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]