Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/12/2009 18:46
Konu Sahibi
mumcos
Yorumlar
4
Okunma
3257
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mumcos

Üye
 38
 9
 27
 29/10/2009
0
 Kırşehir
 
 Ofis 2007
 31/08/2010,12:26
Çözüldü 
saygideger abiler,
Acces te ado kullanarak kayit ekleme mevcut kaydi degistirme veya silma yapabilmem gerekiyor,yardimci olursanir sevinirim..
formda düzenlemeye calistim,örnekte kayit eklemeyi hallettim,ama digerlerinde takildim:-(
Saygilar
mümtaz


mumcos, 29-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Uzman
Ol....
 38
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 01/02/2019,07:14
Çözüldü 
Eşref hocanın ADO ile eklemiş olduğu örnek dosyayı incelemenizi tavsiye ederim.

Tüm Özellikleri ile ADO Örneği


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.

Kullanici Avatari

mumcos

Üye
 38
 9
 27
 29/10/2009
0
 Kırşehir
 
 Ofis 2007
 31/08/2010,12:26
Çözüldü 
onu inceledim ama biraz karisik geldi,yeni ögrenen ben icinImg-cray
acep birisi göndermis oldugum data üzerinde yapabilirmi cok mutmain olacagimImg-grin
saygilar


mumcos, 29-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

esrefigit

Aktif Üye
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çözüldü 
öncelikle kullandığın dil ado değil dao dur ondan dolayı ado sana karışık gelmiştir dao ile güncelleme silme ekleme vs vs ado ile çok az benzerlik göstersede farklıdır.

neyse senin istediğin

kodlar bunlar

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Befehl10_Click()
Dim R As Recordset, DB As Database
Dim kriter As Variant
Set DB = CurrentDb()
Set R = DB.OpenRecordset("Artikel1", dbOpenDynaset)
kriter = "Aid =" & Me.Artikelliste.Column(0)
    R.FindFirst kriter
   R.Delete
R.Close
DoCmd.OpenTable "Artikel1"
Me.Artikelliste.Requery
End Sub


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Befehl16_Click()
Dim R As Recordset, DB As Database
Dim kriter As Variant
Set DB = CurrentDb()
Set R = DB.OpenRecordset("Artikel1", dbOpenDynaset)
kriter = "Aid =" & Me.Liste17.Column(0)
    R.FindFirst kriter
    R.Edit
         R!Artikelname = Me.Metin20
     R.Update
R.Close
DoCmd.OpenTable "Artikel1"
Me.Liste17.Requery
End Sub


ve örneğinde ektedir yalnız unutma bunlar sadece silme ve düzenleme (değiştirme) bu kodlar bu haliyle bırkılmamalıdır silme veya editleme kodlarında seçilen isim tabloda yoksa yani NoMatch ise uyarı versin vs vs kısımlarıda tamamlaman gerekir ayrıca accessin kendi yardımında dao yada ado ilgili bir çok kod var onları incelemeni tavsiye derim

örneiğin

accessin kendi içindeki yardımda dao silme kodu

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub DeleteX()

   Dim dbsNorthwind As Database
   Dim rstEmployees As Recordset
   Dim lngID As Long

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")
   Set rstEmployees = _
      dbsNorthwind.OpenRecordset("Employees")

   ' Add temporary record to be deleted.
   With rstEmployees
      .Index = "PrimaryKey"
      .AddNew
      !FirstName = "Janelle"
      !LastName = "Tebbs"
      .Update
      .Bookmark = .LastModified
      lngID = !EmployeeID
   End With

   ' Delete the employee record with the specified ID 
   ' number.
   DeleteRecord rstEmployees, lngID

   rstEmployees.Close
   dbsNorthwind.Close

End Sub


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub DeleteRecord(rstTemp As Recordset, _
   lngSeek As Long)

   With rstTemp
      .Seek "=", lngSeek
      If .NoMatch Then
         MsgBox "No employee #" & lngSeek & " in file!"
      Else
         .Delete
         MsgBox "Record for employee #" & lngSeek & _
            " deleted!"
      End If
   End With

End Sub


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.966
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,08:43
Çözüldü 
saygıdeğer mumcos, sorun çözüldümü acaba?


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Tarih Arası Ay Bazında Satır Ekleme fkilic76 6 218 06/03/2019, 09:13
Son Yorum: haliliyas
Çözüldü İki Tarih Arası Satır Ekleme Ve Veri Kaydetme fkilic76 5 149 26/02/2019, 18:04
Son Yorum: fkilic76
Çözüldü Raporu Pdf Olarak Kayıt Etmek. m_demir 10 779 25/02/2019, 01:18
Son Yorum: zetyu
Çözüldü Üç Tarihi Tek Textboxt Da Değiştirme karaca10 3 122 22/02/2019, 18:54
Son Yorum: ozanakkaya
Çözüldü Mükerrer Kayıt (il Ve İlçe Sorunu) Dart Reder 6 296 16/02/2019, 08:16
Son Yorum: Dart Reder

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.