Not: bu kodlar ilişkisiz form için yapılması gerekir.
Olay
Dim rs As New ADODB.Recordset ' tanımlama Ado kod dizilimini kullanacağımızı belirledik.
Dim rs1 As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'tabloya bağlandık
rs.AddNew ' yeni alan ekleyeceğimizi söyledik
rs.Fields("Alan1") = Me.MetinKutusu1 ' Metin Kutusu 1 de bulunan veriyi Alan1 e ekliyeceğimiz yerleri belirtik.
rs.Update ' ekleme işlemini geçekleştirdik.
rs.Close ' bağlantıyı kapattık
Set rs = Nothing ' rs boşalttık. (rs.close ile nothing birisi kullanılıyor fakat ben ikisinide kullanıyorum.)
'Bu birinci kodumuzdu şimdi ss ile işlem yaptık ve rs bir ile işlemimiz bitti. aynı şekilde yine rs kullanabiliriz.
'karışık engellensin diye rs1 yapacağız. isterseniz siz başka birşeyde yapabilirsiniz. öneli olan bir değişken tanımlandığında onunla işimiz bittikten sonra tekrar kullanabileceğimizi bilmemizdir.
rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'Tablo ikiye bağlandık
rs1.Find "[Alan1]=" & Me.Metinkutusu ' burada metin kutusu içinde bulunan veriyi tabloda buldurup sadece onu sildireceğiz.
rs1.Delete ' malum silme işlemi
rs1.Update ' işlemi gerçekleştirdik.
rs1.Close ' bağlantıyı bitirdik.
Set rs1 = Nothing
Olay Bitimi