AccessTr.neT

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...

DLookup olması şart değil...Örneğinizi ekleyin ne yapmak istediğinizi belirtin...

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...

Aşağıdakai yaptığım eklemeyi yapınız...

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

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?

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

SELECT * FROM

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