[ÇÖZÜLDÜ] tüm verileri silmek

[Fuat Şirin]

access te oluşturulmuş bir tablodaki tüm girişleri

urun tablosundaki girilmiş verileri silmek için

vb6 da nasıl bir kod girişi yapılmalıdır

 

[modalı]

Aşağıdaki SQL kodunu çalıştırın.

DELETE tblDegisiklik.* FROM tblDegisiklik;

tblDegisiklik yerine tablo adınız gelmeli.

İyi çalışmalar

 

[gulsum1]

cevap

bu her hangi bir veritabanının tablosuna bağlanıp verileri silmek için kullanılır

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor


klasor = CurrentProject.Path & "\evrak.mdb"

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With

With rst
.ActiveConnection = conn
.Open "2007", LockType:=adLockOptimistic
rst.MoveFirst


End With

With rst
.Delete
End With
rst.Close

conn.Close

dikkat tüm tabloyu siler


buda aynı veri tabanının içinde bir tablodaki verileri siler
Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
rs.Open "depo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.delete
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

eğer herhangi bir koşula uyanları sileceksen
If rs("malid") = malid.value Then
rs("malmiktarı") = malmiktarı.value-malsatış.value
rs.Update
End If

 

[Fuat Şirin]

Aşağıdaki SQL kodunu çalıştırın.



DELETE tblDegisiklik.* FROM tblDegisiklik;

tblDegisiklik yerine tablo adınız gelmeli.

İyi çalışmalar

bu kodu bir butona bağladım ama olmadı hocam vb6 da bu kodu nasıl yazabilrim sizide çok rahatsız ediyorum ama

 

[modalı]

Sayın Fuat Şirin,

Artık bağlantı kurmayı yapabiliyrosunuz sandım:

Dim strSql As String
Set baglanti = New ADODB.Connection
baglanti.Open “Driver={Microsoft Access Driver (*.mdb)}; DBQ=” & App.Path & “\veri.mdb”

strSql= "DELETE tblDegisiklik.* FROM tblDegisiklik"

baglanti.execute(strSql)

Gibi birşey olmalı. Çalışmaz ise
strSql="delete from tblDegisiklik"

olarak deneyin.

İyi çalışmalar

 

[Fuat Şirin]

hocam nerde

hocam adodc ile bağlantı kuruyordum

adodb yi anlayamadım

onun içinde bir nesne mi eklemek gerekiyor

 

[Fuat Şirin]

baglanti.Open "Driver = {Microsoft Access Driver (*.mdb)}; DBQ=” & App.Path & “\magza.mdb"

bu satırda hata veriyor
hocam nasıl yapabilrim

 

[modalı]

baglanti.Open "Driver = {Microsoft Access Driver (*.mdb)}; DBQ=” & App.Path & “\magza.mdb"

bu satırda hata veriyor
hocam nasıl yapabilrim

baglanti.Open "Driver = {Microsoft Access Driver (*.mdb)}; DBQ=C:\magza.mdb"

plarak değiştirin. Sanırım mdb dosyanızla vb6 uygulamanız aynı yerde değil.

 

[Fuat Şirin]

hocam aynı yerde

vista yükledikten sonra pek düzgün çalışmıyor ondan olabilir

birde xp yüklü bir pcde deniyeceğim

hocam çok özür diliyerek sölüyorum ama

programı bitirdim hemen hemen yarın mağzada işleme koyacağım

önemli olarak bir tek diğer açtığım konu kaldı hocam

accesste koşullu toplama değerli yardımlarınız için şimdiden çok teşekkür

bu konuda inanın çok yeniyim yardımcı olucağınız temennisi ile

saygılarımla

 

[Fuat Şirin]

xp yüklü bilgisayardada denedim hocam
acaba referans mı yüklemem lazım

çünkü satırı tamamen kırmızı olarak işaretliyor