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.
VB.nette sözlük yapmak
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
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
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 12/04/2009, 10:55, Düzenleyen: esrefigit.
Konuyu Okuyanlar: 2 Ziyaretçi