Skip to main content

AccessTr.neT


vb de dlookup kullanımı

vb de dlookup kullanımı

Çözüldü #1
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
Çözüldü #2
DLookup olması şart değil...Örneğinizi ekleyin ne yapmak istediğinizi belirtin...
Please return your positive or negative ...
Cevapla
Çözüldü #3
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...
.rar PROGRAM - Kopya - Kopya - Kopya (4) - Kopya - Kopya - Kopya.rar (Dosya Boyutu: 252,34 KB | İndirme Sayısı: 19)
Cevapla
Çözüldü #4
Aşağıdakai yaptığım eklemeyi yapınız...

Visual Basic Code
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
Çözüldü #5
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
Çözüldü #6
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

Visual Basic 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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da