Skip to main content

AccessTr.neT


Ado kullanarak kayit ekleme degistirme veya silme

Ado kullanarak kayit ekleme degistirme veya silme

Çözüldü #1
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
.rar Deneme.rar (Dosya Boyutu: 17,21 KB | İndirme Sayısı: 57)
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
onu inceledim ama biraz karisik geldi,yeni ögrenen ben icinImg-cray
acep birisi göndermis oldugum data üzerinde yapabilirmi cok mutmain olacagimImg-grin
saygilar
Cevapla
Çözüldü #4
ö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:
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:
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:
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:
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

.rar Deneme.rar (Dosya Boyutu: 25,76 KB | İndirme Sayısı: 84)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #5
saygıdeğer mumcos, sorun çözüldümü acaba?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task