AccessTr.neT

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.

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