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
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Son Düzenleme: 12/04/2009, 10:55, Düzenleyen: esrefigit.