Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

ado ara, güncelle, sil yardımı

ozguryasin
ozguryasin
Access Cevaplanmış Soruları
4
3515

ado ara, güncelle, sil yardımı

Çözüldü #1
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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.
.rar orn.rar (Dosya Boyutu: 27,78 KB | İndirme Sayısı: 6)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #2
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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.
.rar ADO_Biten.rar (Dosya Boyutu: 18,64 KB | İndirme Sayısı: 38)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #3
Coskun0559
Onursal Üye
Coskun0559
Bul
Onursal Üye
Adı Soyadı: Co.... ÇA....
Yaşı: 39
Konum: Tekirdağ
Ofis Versiyonu: -
Son Oturumu: 13/11/2024,03:19
Yorumları: 1.221
Konuları: 99
Kayıt Tarihi: 02/11/2008
Teşekkür Puanı: 519
teşekkürler
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #4
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Yalnız bunlar ADO değil DAO komutları değil mi?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da