Sayı bulan kodun kısaltılması
Tarih
05/04/2013 20:02
Konu Sahibi
alican60
Yorumlar
2
Okunma
1642
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Dün,23:12
Ç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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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]

Cevapla


POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.846
02/04/2010
İzmir
Ofis 2003
Bugün,00:55
Örneğinizi ekleyiniz...
Please return your positive or negative ...
Cevapla


alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Dün,23:12

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







Konuyu Okuyanlar: 1 Ziyaretçi



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