AccessTr.neT

Tam Versiyon: ado ara, güncelle, sil yardımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
ekteki örnek dosyada ekleme özelliğini ayarlayabildim fakat, silme, güncelleme ve bul olaylarını ayarlayamadım. ado ile yeni uğraşmaya başladım. içindeki kodları başka bir örnekten alıp uyarlamaya çalıştım. fakat bir türlü tam olarak yapamadım. yardımlarınızı bekliyorum. şimdiden teşekkürler.
kendi konuma cevap vermek gibi olmasın ama araştırmalarım ve denemelerim sonucunda birşeyler oluştu onuda ekleyeyim yararlanmak isteyen arkadaşlar olabilir.
teşekkürler
Yalnız bunlar ADO değil DAO komutları değil mi?
Alpeki'nin belirttiği gibi bu kodlar dao. Sorunuza yanıt açısından aşağıdaki linki incele.

Formlar arası veri aktarımı

örnekteki "frm_hasta" formundaki kayıt ekleme ve güncelleme kodu

strSQL = "SELECT * FROM TBL_HASTA_BILGI "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[Kimlik]=" & Me.kaynakno
If Not rstkayit.EOF Then
.Fields("tc_no") = Me.htcno
.Fields("kaynakno") = Me.kaynakno
.Fields("adi") = Me.hadi
.Fields("soyadi") = Me.hsoyadi
.Fields("mah_koy_id") = Me.mahkoykutu.Column(0)
.Fields("adres") = Me.hadres
.Fields("tlf") = Me.htlf
.Fields("SGK_id") = Me.sgkkutu
.Fields("SGK_durum_id") = Me.sgkdurumkutu.Column(0)
.Fields("SGK_sicil") = Me.hsicil
.Update
Else
.AddNew
.Fields("tc_no") = Me.htcno
.Fields("kaynakno") = Me.kaynakno
.Fields("adi") = Me.hadi
.Fields("soyadi") = Me.hsoyadi
.Fields("mah_koy_id") = Me.mahkoykutu.Column(0)
.Fields("adres") = Me.hadres
.Fields("tlf") = Me.htlf
.Fields("SGK_id") = Me.sgkkutu
.Fields("SGK_durum_id") = Me.sgkdurumkutu.Column(0)
.Fields("SGK_sicil") = Me.hsicil
.Update
End If
End With