AccessTr.neT
ado ara, güncelle, sil yardımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ado ara, güncelle, sil yardımı (/konu-ado-ara-guncelle-sil-yardimi.html)



ado ara, güncelle, sil yardımı - ozguryasin - 23/12/2010

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.


Cvp: ado ara, güncelle, sil yardımı - ozguryasin - 23/12/2010

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.


Cvp: ado ara, güncelle, sil yardımı - Coskun0559 - 23/12/2010

teşekkürler


Cvp: ado ara, güncelle, sil yardımı - alpeki99 - 23/12/2010

Yalnız bunlar ADO değil DAO komutları değil mi?


Cvp: ado ara, güncelle, sil yardımı - ozanakkaya - 24/12/2010

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