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.
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