Access veritabanındaki tablolardar textboxlara veri alma
Tarih
22/03/2014 12:04
Konu Sahibi
abdullahss
Yorumlar
4
Okunma
1950
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



abdullahss
Üye
Kullanici Avatari
Üye
7
2
24/09/2012
0
İzmir
Belirtilmemiş
16/01/2015,13:03
Veritabanı'nda 10 adet tabloda bulunan verilerin combobox sorgusuna göre her tablodaki 160 ve 170 sütunlarındaki verileri textboxlara nasıl alırım.Tablolarda v1 sütunundaki veri anahtar veridir hepsi buna göre nasıl bir yol izlemeliyim.örnegin veri sorgumuzdaki deger 1 diyelim 1 numaralı ürüne göre her tablodaki verileri sıralı şekilde textboxlara almam gerekiyor yani bir sorguda 10 tablodan nasıl veri alırım.Örnek dosyada daha açıklayıcı bir şekilde anlattım ilğilenen arkadaşlara teşekkür ederim.


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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.ListIndex > -1 Then
    secim = ComboBox1.List(ComboBox1.ListIndex, 0)
    no.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
    t1.Text = secim
    For i = 2 To 192
        'Controls("t" & i).Text = Empty
        Me.Controls("t" & i).Text = ""
    Next i
    Set RS = CreateObject("adodb.recordset")
    RS.Open "select * from ana where v1='" & ana & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 2 To RS.Fields.Count - 1
            Controls("t" & i).Text = RS.Fields(i).Value
        Next i
    
     Set RS = CreateObject("adodb.recordset") 'kesim tablosunda 240ad sütun var
    RS.Open "select * from kesim where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 240 To RS.Fields.Count - 80
            Controls("t" & i).Text = RS.Fields(i).Value
        Next i
    
     Set RS = CreateObject("adodb.recordset") 'dikim tablosunda 170 sütun var
    RS.Open "select * from dikim where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 170 To RS.Fields.Count - 10
            Controls("t" & i).Text = RS.Fields(i).Value
        Next i
   
    
     End If
    End If
    RS.Close
   
    s = "select sum(kesim.v160) as kesimv160, sum(kesim.v161) as kesimv161,sum(kesim.v162) as kesimv162,sum(kesim.v163) as kesimv163,sum(kesim.v164) as kesimv164,sum(kesim.v165) as kesimv165, sum(kesim.v166) as kesimv166,sum(kesim.v167) as kesimv167,sum(kesim.v168) as kesimv168,sum(kesim.v169) as kesimv169,sum(kesim.v170) as kesimv170,"
 s = s & "sum(dikim.v160) as dikimv160,sum(dikim.v161) as dikimv161,sum(dikim.v162) as dikimv162,sum(dikim.v163) as dikimv163,sum(dikim.v164) as dikimv164,sum(dikim.v165) as dikimv165,sum(dikim.v166) as dikimv166,sum(dikim.v167) as dikimv167,sum(dikim.v168) as dikimv168,sum(dikim.v169) as dikimv169,sum(dikim.v170) as dikimv170,"
 s = s & "sum(dikimc.v160) as dikimcv160,sum(dikimc.v161) as dikimcv161,sum(dikimc.v162) as dikimcv162,sum(dikimc.v163) as dikimcv163,sum(dikimc.v164) as dikimcv164,sum(dikimc.v165) as dikimcv165,sum(dikimc.v166) as dikimcv166,sum(dikimc.v167) as dikimcv167,sum(dikimc.v168) as dikimcv168,sum(dikimc.v169) as dikimcv169,sum(dikimc.v170) as dikimcv170,"
 s = s & " sum(paketleme.v160) as paketlemv160,sum(paketleme.v161) as paketlemev161,sum(paketleme.v162) as paketlemev162,sum(paketleme.v163) as paketlemev163,sum(paketleme.v164) as paketlemev164,sum(paketleme.v165) as paketlemev165,sum(paketleme.v166) as paketlemev166,sum(paketleme.v167) as paketlemev167,sum(paketleme.v168) as paketlemev168,sum(paketleme.v169) as paketlemev169,sum(paketleme.v170) as paketlemev170,"
 s = s & "sum(nakıs.v160) as nakısv160,sum(nakıs.v161) as nakısv161,sum(nakıs.v162) as nakısv162,sum(nakıs.v163) as nakısv163,sum(nakıs.v164) as nakısv164,sum(nakıs.v165) as nakısv165,sum(nakıs.v166) as nakısv166,sum(nakıs.v167) as nakısv167,sum(nakıs.v168) as nakısv168,sum(nakıs.v169) as nakısv169,sum(nakıs.v170) as nakısv170,"
 s = s & "sum(nakısgelen.v160) as nakısgelenv160,sum(nakısgelen.v161) as nakısgelenv161,sum(nakısgelen.v162) as nakısgelenv162,sum(nakısgelen.v163) as nakısgelenv163,sum(nakısgelen.v164) as nakısgelenv164,sum(nakısgelen.v165) as nakısgelenv165,sum(nakısgelen.v166) as nakısgelenv166,sum(nakıs.v167) as nakısgelenv167,sum(nakısgelen.v168) as nakısgelenv168,sum(nakısgelen.v169) as nakısgelenv169,sum(nakısgelen.v170) as nakısgelenv170,"
s = s & "sum(baskı.v160) as baskıv160,sum(baskı.v161) as baskıv161,sum(baskı.v162) as baskıv162,sum(baskı.v163) as baskıv163,sum(baskı.v164) as baskıv164,sum(baskı.v165) as baskıv165,sum(baskı.v166) as baskıv166,sum(baskı.v167) as baskıv167,sum(baskı.v168) as baskıv168,sum(baskı.v169) as baskıv169,sum(baskı.v170) as baskıv170,"
s = s & "sum(baskıc.v160) as baskıcv160,sum(baskıc.v161) as baskıcv161,sum(baskıc.v162) as baskıcv162,sum(baskıc.v163) as baskıcv163,sum(baskıc.v164) as baskıcv164,sum(baskıc.v165) as baskıcv165,sum(baskıc.v166) as baskıcv166,sum(baskıc.v167) as baskıcv167,sum(baskıc.v168) as baskıcv168,sum(baskıc.v169) as baskıcv169,sum(baskıc.v170) as baskıcv170,"
s = s & "sum(yıkama.v160) as yıkamav160,sum(yıkama.v161) as yıkamav161,sum(yıkama.v162) as yıkamav162,sum(yıkama.v163) as yıkamav163,sum(yıkama.v164) as yıkamav164,sum(yıkama.v165) as yıkamav165,sum(yıkama.v166) as yıkamav166,sum(yıkama.v167) as yıkamav167,sum(yıkama.v168) as yıkamav168,sum(yıkama.v169) as yıkamav169,sum(yıkama.v170) as yıkamav170,"
s = s & "sum(yıkamagelen.v160) as yıkamagelenv160,sum(yıkamagelen.v161) as yıkamagelenv161,sum(yıkamagelen.v162) as yıkamagelenv162,sum(yıkamagelen.v163) as yıkamagelenv163,sum(yıkamagelen.v164) as yıkamagelenv164,sum(yıkamagelen.v165) as yıkamagelenv165,sum(yıkamagelen.v166) as yıkamagelenv166,sum(yıkamagelen.v167) as yıkamagelenv167,sum(yıkamagelen.v168) as yıkamagelenv168,sum(yıkamagelen.v169) as yıkamagelenv169,sum(yıkamagelen.v170) as yıkamagelenv170,"

s = s & " from (kesim inner join dikim on kesim.v1 = dikim.v1) inner join paketleme on dikim.v1 = paketleme.v1"
    s = s & " group by kesim.v1 having (((kesim.v1)='" & secim & "'))"
    
    Call baglanti
    RS.Open s, baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 0 To RS.Fields.Count - 1
            Controls("t" & i + 60).Value = RS.Fields(i).Value
        Next i
    End If
End If
End If
End Sub



Ek Dosyalar
.rar   TGS.rar (Dosya Boyutu: 297,21 KB / İndirme Sayısı: 48)
Cevapla


POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.848
02/04/2010
İzmir
Ofis 2003
Bugün,23:04
İncelermisiniz....

Kesim,dikim ve dikimc deki veriler forma aksettirildi...

Sanırım diğerlerini siz halledersiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...


Ek Dosyalar
.zip   TGS.zip (Dosya Boyutu: 1,69 MB / İndirme Sayısı: 49)
Please return your positive or negative ...
Cevapla


abdullahss
Üye
Kullanici Avatari
Üye
7
2
24/09/2012
0
İzmir
Belirtilmemiş
16/01/2015,13:03
Ufuk bey evet verileri aldı bu şekilde teşekkür ederim.
Cevapla


abdullahss
Üye
Kullanici Avatari
Üye
7
2
24/09/2012
0
İzmir
Belirtilmemiş
16/01/2015,13:03
Affınıza sığınarak bir şey daha sormak istiyorum tektboxlarda üst gurubdaki veriler tüm tablolarda ortak yani ilk 50 veri aynı comboboxdan seçtigimde buralarada verileri almam mümkünmüdür.
Cevapla


abdullahss
Üye
Kullanici Avatari
Üye
7
2
24/09/2012
0
İzmir
Belirtilmemiş
16/01/2015,13:03
Ufuk bey ilğiniz için çok teşekkür ederim son halinin kodlarını atıyorum umarım diğer arkadaşlarada yardımcı olur.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.ListIndex > -1 Then
    secim = ComboBox1.List(ComboBox1.ListIndex, 0)
    no.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
    t1.Text = secim
    For i = 49 To 240
        Me.Controls("t" & i).Text = ""
    Next i
   
   Set RS = CreateObject("adodb.recordset")
    RS.Open "select * from ana where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 1 To 49
            Controls("t" & (i - 0)).Text = RS.Fields(i).Value
        Next i
    End If
   
   
   
   Set RS = CreateObject("adodb.recordset") 'kesim tablosunda 240ad sütun var
    RS.Open "select * from kesim where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 110)).Text = RS.Fields(i).Value
        Next i
    End If
    
    Set RS = CreateObject("adodb.recordset") 'dikim tablosunda 170 sütun var
    RS.Open "select * from dikim where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 98)).Text = RS.Fields(i).Value
        Next i
    End If
    
    Set RS = CreateObject("adodb.recordset") 'dikimc tablosunda 170 sütun var
    RS.Open "select * from dikimc where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 88)).Text = RS.Fields(i).Value
        Next i
    End If
    RS.Close
  Set RS = CreateObject("adodb.recordset") 'paketleme tablosunda 170 sütun var
    RS.Open "select * from paketleme where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 77)).Text = RS.Fields(i).Value
        Next i
    End If
    RS.Close
 Set RS = CreateObject("adodb.recordset") 'baskı tablosunda 170 sütun var
    RS.Open "select * from baskı where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 66)).Text = RS.Fields(i).Value
        Next i
    End If
   Set RS = CreateObject("adodb.recordset") 'baskıc tablosunda 170 sütun var
    RS.Open "select * from baskıc where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 55)).Text = RS.Fields(i).Value
        Next i
    End If
    Set RS = CreateObject("adodb.recordset") 'nakıs tablosunda 170 sütun var
    RS.Open "select * from nakıs where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 44)).Text = RS.Fields(i).Value
        Next i
    End If
   Set RS = CreateObject("adodb.recordset") 'nakısgelen tablosunda 170 sütun var
    RS.Open "select * from nakısgelen where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 33)).Text = RS.Fields(i).Value
        Next i
    End If
     Set RS = CreateObject("adodb.recordset") 'yıkama tablosunda 170 sütun var
    RS.Open "select * from yıkama where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 22)).Text = RS.Fields(i).Value
        Next i
    End If
    Set RS = CreateObject("adodb.recordset") 'yıkamagelen tablosunda 170 sütun var
    RS.Open "select * from yıkamagelen where v1='" & secim & "'", baglan, 1, 1
    If RS.RecordCount > 0 Then
        For i = 160 To 170
            Controls("t" & (i - 11)).Text = RS.Fields(i).Value
        Next i
    End If
    
    RS.Close
End If
End Sub

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Excel UserForm'dan Access Veritabanı Yönetimi ve Access Rapor Kullanımı ogulcan92 6 4.995 24/06/2016, 12:03 firstisland
  Personel Bilgileri Takibi (Excel'den Access Veri Tabanı Bağlantısı) sturan2 29 36.382 09/04/2016, 19:19 atoz112
  Ms Access ek veri türü hakkında mengene2 1 2.102 14/07/2014, 03:01 mengene2
  Veri Doğrulama ile Süzerek Listeden Veri Alma ogulcan92 2 4.922 29/12/2012, 20:39 ozgurg4340
  Döviz bilgilari alma ve kur çevirimi yapma DUAYEN 4 1.818 22/12/2011, 21:10 arslanbey


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