VB.nette sözlük yapmak - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: VB.nette sözlük yapmak (/konu-vb-nette-sozluk-yapmak.html) |
VB.nette sözlük yapmak - uyghurturuk - 11/04/2009 sa arkadaşlar. ben vb.net ile Access arasında ilişki kurmak ve bunun sonucunda ortaya bir sözlük çıkmasını istiyorum. önceden vb.net ile Access bağlantısı çok yaptım. Tek sorun sözlük mantığını nasıl yapabilirim. Neye göre arama yapıp nasıl karşılığını bulabilirim. örneğin textbox1'e book yazdığım zaman yan taraftaki listbox1 de Kitap yazısı görmek istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum. Cvp: VB.nette sözlük yapmak - esrefigit - 12/04/2009 Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim klasor klasor = CurrentProject.Path & "\data.mdb" With conn .Provider = "Microsoft.JET.OLEDB.4.0" .Open klasor End With With rst .ActiveConnection = conn .Open "words", LockType:=adLockOptimistic .MoveFirst end with rst.Find "[türkçe] = '"&Me.kelime If rst.EOF = True Then MsgBox "Kelime bulunamadi." Else me.karsiligi=rst("ingilizce") end if rst.close conn.Close eğer mdb dosyası vbnet projesi ile aynı yerde yani aynı klasörde ise bu şekilde yok farklı yerde ise klasor = bunun karşısına mdb nin tam yolunu yazmanız gerrekir burda mantık şu tabloda iki alan var biri türkçe diğeri ingilizce sen formda arama kutusuna türkçe kelimeyi yazdığında kod tabloda türkçe alanında senin yazdığını arar bulunca o satırdaki ingilizcesini karşılığı alanaına yazar ayrıca bu kodların hepsi online kod deposunda var dikkat edersen ben ordaki ado ile veri ekleme ve ado ile veri bulma kodunu birleştirip bu kodu ortaya çıkardım diğer arkadaşlarda soru sormadan önce biraz hayal gücü ve kod deposunu bir araya getirirlerse ortaya eminim muhteşem sonuçlar çıkar |