2 Kelimeyi bulma sorunu..(Sözlük Programı)

Ana Sayfa

Forum

Makaleler

Haberler

Kadromuz

Eğitmenler

İletişim

NetDersleri Forum -- Visual Basic / Visual Basic.Net -- 2 Kelimeyi bulma sorunu..(Sözlük Programı)

Konu Tarihi :12.02.2010 22:00:54 - Okunma :94

HASAN KAÇAK
Normal Üye
Çevrimdışı

Üyelik Tarihi:15.12.2009 17:38:00
Nereden:SAANE
Mesaj Sayısı:6
Son Giriş:12.08.2010 17:32:36

2 Kelimeyi bulma sorunu..(Sözlük Programı)

Selamun aleykum arkadaşlar

Ben şuan dönem ödevim olan sözlük programıyla ugraşıyorum fakat 1.kelimeyi buluyor 2.kelimeyi yazdıgımda "This causes two bindings in the collection to bind to the same property.Parameter name : binding" yazıyor...

KODUM BU

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BuyukSozluk.mdb")

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Hide()

Form1.Show()

End Sub

Dim ds As New DataSet

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

conn.Open()

ds.Clear()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim adp As New OleDbDataAdapter("Select * from sozluk_tr2en where sozluk_tr2en_kelime LIKE '" + TextBox1.Text + "%'", conn)

adp.Fill(ds)

TextBox2.Clear()

TextBox2.DataBindings.Add("Text", ds.Tables(0), "sozluk_tr2en_anlam")

conn.Close()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

TextBox1.Clear()

End Sub

End Class

yardımlarınız için şimdiden teşekkür..!

İmza :NetDersleri |Görsel Eğitim Platformu

Konu Tarihi :12.02.2010 22:00:54 - Okunma :94

MESUTCAKIR
Site Yöneticisi
Çevrimdışı

Üyelik Tarihi:28.10.2009 19:33:33
Nereden:İSTANBUL
Mesaj Sayısı:50
Son Giriş:28.08.2010 15:11:21

2 Kelimeyi bulma sorunu..(Sözlük Programı)
Merhaba, ben bu gibi durumlarda kabaca olayı anlamak için www.translate.google.com.tr adresine girerim ve Sözlükten yararlanırım. Bu koleksiyonda aynı property.Parameter adına bağlamak için iki bağları nedenleri: bağlayıcı Burada anlatılmak istenen yanlış anlamadıysam ds üzerine 2 kere işlem yapıyorsun ve 2.ci işlemde tek bir veri değilde 2 veri buluyor çünkü ds iki kere veri eklenmiş oluyor button1 girmeden önce ds.clear() gibi bişi denersen bence çözülcek.
İmza :VisualStudio.Gen.TR & NetDersleri.com

Konu Tarihi :12.02.2010 22:00:54 - Okunma :94

HASAN KAÇAK
Normal Üye
Çevrimdışı

Üyelik Tarihi:15.12.2009 17:38:00
Nereden:SAANE
Mesaj Sayısı:6
Son Giriş:12.08.2010 17:32:36

2 Kelimeyi bulma sorunu..(Sözlük Programı)
Yok mesut kardeş yanlış anlamıssın :) Benim demek istediğim 1.kelimeyi buluyor 2.kelimeyi bulurken direk o hatayı veriyor..Yani 2.kelimede 2 veri falan bulmuyo...
İmza :NetDersleri \|Görsel Eğitim Platformu

Konu Tarihi :12.02.2010 22:00:54 - Okunma :94

ÜZEYIR ÖZTEMUR
Normal Üye
Çevrimdışı

Üyelik Tarihi:15.01.2010 22:51:09
Nereden:BURSA
Mesaj Sayısı:20
Son Giriş:01.09.2010 10:41:02

2 Kelimeyi bulma sorunu..(Sözlük Programı)
İyi Geceler...... Öncelikle Yeni Bir Tane Function (Fonksiyon,DataSet) Oluştur... Try Sonra Try Bölümünde Yeni Bir Tane Dataset Oluştur... Sonra Yeni Bir Tane DataAdapter Oluştur Ve Sql Kodunu Buraya Yazdır... Sonra DataAdepter.Fill Metoduyla DataAdaterden Çektiğin Verileri Datasetine Aktar.. Sonra Her Nerede Gösteriyosan Örn. TextBox1de. Onu Temizle Özne... Sonra TextBooxınızın DataBinding Oalyıyla Datasete Aktardığın Verileri Okutun... Sonra Gene TextBoxınıczın DataBindings Olayını Temizleyin.. Sonra Connectionu Kapatın... ve TextBox1i Temşizleyin.. MessageBox.Show(ex.Message) Şu Kodu Kullanın... End Try DataSetinizi Geriye Döndürürün.... Sonrada Örneğin Goster_Click Evıntında Fonksiyonunuzu Çağırın... Anlamadıysan İşte Kodlar.... Public Function goster() As DataSetTry adp.Fill(ds) TextBox2.Clear() TextBox2.DataBindings.Add( TextBox2.DataBindings.Clear() conn.Close() TextBox1.Clear() MessageBox.Show(ex.Message) Dim ds As New DataSetDim adp As New OleDbDataAdapter("Select * from sozluk_en2tr where sozluk_en2tr_kelime LIKE '" + TextBox1.Text + "%'", conn)"Text", ds.Tables(0), "sozluk_en2tr_anlam")Catch ex As ExceptionEnd Try Return dsEnd Function --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private goster() Sub BtnGoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEnd Sub Catch ex As Exception
İmza :www.zeynep-uzeyir.net.tc \|\| Herkesi bekleriz....

Sadece Üyeler Konulara Cevap Verebilir !