Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/04/2014 12:03
Konu Sahibi
kokotuna
Yorumlar
6
Okunma
2729
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
01/06/2017,09:32
Çö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.865
02/04/2010
İzmir
Ofis 2003
21/09/2017,12:38
Çö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
01/06/2017,09:32
Çö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.865
02/04/2010
İzmir
Ofis 2003
21/09/2017,12:38
Çö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
01/06/2017,09:32
Çö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

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çö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 2.527 24/11/2013, 09:19 alpeki99
Çözüldü DataReportta rownumber kullanımı ynlmz 4 1.629 02/10/2013, 11:33 ogulcan92
Çözüldü Treeview kullanımı ynlmz 6 2.981 21/02/2013, 23:58 ynlmz
Çözüldü Adodc kontrol SQL kullanımı ynlmz 3 1.690 18/12/2012, 23:25 ynlmz
Çözüldü Textbox kullanımı ve içeriğinin yönetilmesi byclever 12 4.759 09/03/2012, 18:17 byclever

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.