vb de dlookup kullanımı
Tarih
09/04/2014 12:03
Konu Sahibi
kokotuna
Yorumlar
6
Okunma
2210
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
Merhaba arkadaşlar...
acsess te olduğu gibi farklı formdan Dlookup fonksiyonu ile vbnette nasıl veri çektirebilirim...
sanırım Dlookup vbnette kullanılmıyor...
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Bugün,11:16
Çözüldü 
DLookup olması şart değil...Örneğinizi ekleyin ne yapmak istediğinizi belirtin...
Please return your positive or negative ...
Cevapla

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
ekli dosyada sondajverigirişi formunda açıklama açılır kutusundan birini seçtiğimde YASS bölümüne sondaj bilgilerinde bulunan aynı çalışma adına denk gelen YASS değerini sondajverigirişindeki YASS bölümüne aktarmak istiyorum...
Umarım anlatabilmişimdir...
yardımlarınız için şimdiden teşekkürler...


Ek Dosyalar
.rar   PROGRAM - Kopya - Kopya - Kopya (4) - Kopya - Kopya - Kopya.rar (Dosya Boyutu: 252,34 KB / İndirme Sayısı: 18)
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Bugün,11:16
Çözüldü 
Aşağıdakai yaptığım eklemeyi yapınız...

Visual Basic Code
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
Private Sub TextBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TextBox8.SelectedIndexChanged
        If Me.TextBox8.Text = "KUMLU ÇAKIL" Then
            Me.TextBox9.Text = "GM"

        ElseIf Me.TextBox8.Text = "SİLTLİ ÇAKIL" Then
            Me.TextBox9.Text = "GW -GP"
        ElseIf Me.TextBox8.Text = "KİLLİ KUMLU ÇAKIL" Then
            Me.TextBox9.Text = "GC"
        ElseIf Me.TextBox8.Text = "ÇAKILLI KUM" Then
            Me.TextBox9.Text = "SW-SP"
        ElseIf Me.TextBox8.Text = "SİLTLİ ÇAKILLI KUM" Then
            Me.TextBox9.Text = "SM"
        ElseIf Me.TextBox8.Text = "KİLLİ KUM" Then
            Me.TextBox9.Text = "SC"
        ElseIf Me.TextBox8.Text = "SİLTLİ KİL" Then
            Me.TextBox9.Text = "CL"
        ElseIf Me.TextBox8.Text = "ORGANİK SİLT" Then
            Me.TextBox9.Text = "OL"
        ElseIf Me.TextBox8.Text = "İNORGANİK SİLT" Then
            Me.TextBox9.Text = "MH"
        ElseIf Me.TextBox8.Text = "İNORGANİK KİL" Then
            Me.TextBox9.Text = "CH"
        ElseIf Me.TextBox8.Text = "ORGANİK KİL" Then
            Me.TextBox9.Text = "OH"
        ElseIf Me.TextBox8.Text = "TURBA" Then
            Me.TextBox9.Text = "PT"
        ElseIf Me.TextBox8.Text = "DOLGU" Then
            Me.TextBox9.Text = "DOLGU"
        End If
'----------------Eklenen kısım---------------------------------------------------
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

        baglanti.Open()
        Dim komut As New OleDb.OleDbCommand("SELECT * FROM SONDAJBİLGİLERİ", baglanti)

        Dim oku As OleDb.OleDbDataReader
        oku = komut.ExecuteReader()
        While oku.Read()
            If Me.TextBox1.Text = oku(5) Then Me.TextBox10.Text = oku(9)
        End While
        baglanti.Close()

'----------------------------------------------------------------------------------



    End Sub


Please return your positive or negative ...
Cevapla

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
syn power teşekkürler tam istediğim gibi olmuş, ancak birdaha aynı şeyle karşılaştığımdaki karşılaşıcağım için kodda parantez içinde yazan oku(5),oku(9) sayıların anlamı nedir?
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Çözüldü 
Veritabanından okuma işlemi yapılıyor. Bu bilgileri ekrana bastırmak için ya veritabanındaki sütun adını kullanırsınız ya da Sql ile

SQL Code
SELECT * FROM

diye veri çektiğinizde sütun numarasını kullanırsınız.

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Visual Basic 6.0 Grid Nesnesi Kullanımı ceforce 5 1.995 24/11/2013, 09:19 alpeki99
Çözüldü DataReportta rownumber kullanımı ynlmz 4 1.339 02/10/2013, 11:33 ogulcan92
Çözüldü Treeview kullanımı ynlmz 6 2.513 21/02/2013, 23:58 ynlmz
Çözüldü Adodc kontrol SQL kullanımı ynlmz 3 1.458 18/12/2012, 23:25 ynlmz
Çözüldü Textbox kullanımı ve içeriğinin yönetilmesi byclever 12 4.174 09/03/2012, 18:17 byclever


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