tablo içindeki verileri silme

[programer]

Herkese iyi akşamlar arkadaşlar aşağıdaki kodlarla veritabanı dosyasına bağlanıyorum ve kayıt yapıyorum. Ama bu kullandığım veriler gecici yeni verileri kaydetmeden tablonun içindeki tüm verileri silmek istiyorum

Yazdır komutu

Private Sub Cmd_Yazdir_Click()
  Set RS = CreateObject("ADODB.recordset")
  strSQL = "SELECT * FROM [Satis_Cikis_Rpt]"
  RS.Open strSQL, adoCN, 1, 3
  
  
  
  say = RS.RecordCount
  
  F = Sheets("Firma_Tnt").Range("B:B").Cells.Find(What:=Satis_Cikis_Frm.FRMKD.Value, LookIn:=xlValues).Row
  Firma_Adi = Sheets("Firma_Tnt").Cells(F, 3)
  a = Sheets("Ambar_Tnt").Range("B:B").Cells.Find(What:=Satis_Cikis_Frm.AMBKD.Value, LookIn:=xlValues).Row
  Ambar_Adi = Sheets("Ambar_Tnt").Cells(a, 3)
  
  For b = 1 To 25
    If Controls("STK" & b) = "" Then GoTo Cikis
       say = say + 1
       RS.AddNew
       RS(0) = say
       RS(1) = CVar(Satis_Cikis_Frm.BN1)
       RS(2) = CVar(Satis_Cikis_Frm.BN2)
       RS(3) = Satis_Cikis_Frm.TARIH.Value
       RS(4) = "Satis_Cikis_Fisi"
       RS(5) = Satis_Cikis_Frm.FRMKD.Value
       RS(6) = Firma_Adi
       RS(7) = Satis_Cikis_Frm.AMBKD.Value
       RS(8) = Ambar_Adi
       RS(9) = Satis_Cikis_Frm.INO.Value
       RS(10) = Satis_Cikis_Frm.ITA.Value
       RS(11) = Satis_Cikis_Frm.VSIPNO1.Value
       RS(12) = Satis_Cikis_Frm.VSIPNO2.Value
       RS(13) = Controls("STK" & b)
       F = Sheets("Stok_Tnt").Range("B:B").Cells.Find(What:=Controls("STK" & b).Value, LookIn:=xlValues).Row
       Stok_Adi = Sheets("Stok_Tnt").Cells(F, 3)
       RS(14) = Stok_Adi
       RS(15) = Controls("GMIK" & b)
Next
say = 0
Cikis:
RS.Update
RS.Close
End Sub

UserForm_Initialize

Private Sub UserForm_Initialize()
 
On Error Resume Next
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = Application.ThisWorkbook.Path & "\RaporDb.mdb"
ReportPath = Application.ThisWorkbook.Path & "\sat_cks.rpt"
If Dir(DatabasePath) = "" Then
   MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestDB"
   Unload Me
   Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
End Sub

 

[Necdet]

Merhaba,

Accessten anlamam ama veri tabanında tablo silmenin yolunu yazayım

DELETE FROM TABLE

Tüm verileri siler, aşağıdaki kod ise Soyadı "YEŞERTENER" olan kayıtları siler

DELETE FROM TABLE
WHERE soyad = 'YEŞERTENER'

kendinize göre uyarlayınız.

 

[programer]

Sayın Necdet Yeşertener bu komutların nasıl kullanıldığını bende tam olarak bilmiyorum internette baya bi araştırdım ama malesef kendime göre uyarlıyamadım yardımcı olursanız sevinirim

 

[programer]

Arkadaşlar soruma Sayın Evren Gizlen'in http://www.excel.web.tr/f117/ado-sql-execute-ile-i-lemler-mdb-dosyasynda-t73689.html konusundaki örnegi inceleyip kendime göre uyarlamaya başardım aşağıdaki kodu ekledim işimi gördü

Set rs = adoCN.Execute("Delete * from Satis_Cikis_Rpt")

yardımlarınıdan dolayı teşekkür ederim