vb de dlookup kullanımı
Tarih
09/04/2014 12:03
Konu Sahibi
kokotuna
Yorumlar
6
Okunma
2134
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ü 
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.849
02/04/2010
İzmir
Ofis 2003
Bugün,03:13
Çö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ü 
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.849
02/04/2010
İzmir
Ofis 2003
Bugün,03:13
Çö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ü 
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....
5.994
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,23:53
Çö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.947 24/11/2013, 09:19 alpeki99
Çözüldü DataReportta rownumber kullanımı ynlmz 4 1.302 02/10/2013, 11:33 ogulcan92
Çözüldü Treeview kullanımı ynlmz 6 2.463 21/02/2013, 23:58 ynlmz
Çözüldü Adodc kontrol SQL kullanımı ynlmz 3 1.442 18/12/2012, 23:25 ynlmz
Çözüldü Textbox kullanımı ve içeriğinin yönetilmesi byclever 12 4.118 09/03/2012, 18:17 byclever


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