ADO İle veri güncelleme ve silme ?

[unalh]

S.a Arkadaşlar.

Yapmak istediğim

1-Maliyet adlı excell dosyasından Maliyet kayıtlarını seçili olan ürüne yapma

2-Maliyet adlı excell dosyasından Data dosyasından seçili olan veriyi silebilmek


Bu iki işlemi yapabilirsem dosyayı kullanabilirim.
İlginiz için şimdiden teşekkür ederim.
Hayırlı İşler.

 

[unalh]

S.a Arkadaşlar,

Güncelleme.

 

[Orion1]

Dos yanız ektedir.
Data dosyasını bir tane Silindi isminde alan eklendi.
Silenen kayıtlar için evet yazıyor.
Excelde ado ile kesin kayıt silme işlemi yoktur.Ancak köşeden kıvrılarak bu işlem gerçekleşitirilir.Silindi olan kayıtlar listelenmez şekilde listeleme yaparak o kayıtları göstermezsiniz am onlar orada dururlar.
Bu neden ve bazı başka sakıncılaraı yüzünden ado kullanacaksanız veri alma dışında veri kayıt güncelleme ve silme amaçlı olarak exceli vt olarak kullanmamanızı tavsiye ederim.
En azından access mdb dosyasını vt olarak kullanablirsiniz.
Dosyanız ektedir.

Private Sub CommandButton2_Click()
If ListBox1.ListIndex < 0 Then
    MsgBox "Ürün Silebilmek için listeden bir ürün seçiniz!", vbCritical, "UYARI"
    Exit Sub
End If
If MsgBox("[ " & ListBox1.Column(3) & " ] isimli ürünü simek istiyormusunuz?", vbYesNo) = vbNo Then Exit Sub
Set KAYIT_SETI = CreateObject("ADODB.Recordset")
SQL_SORGUSU = "Select * From [Data$] where S_NO ='" & CDbl(ListBox1.Column(0)) & "';"
KAYIT_SETI.Open SQL_SORGUSU, ADODB_DATA, 1, 3
KAYIT_SETI("Silindi") = "Evet"
KAYIT_SETI.Update
KAYIT_SETI.Close
Set KAYIT_SETI = Nothing
Call liste
MsgBox "Yeni Kayıt slindi." & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Private Sub CommandButton3_Click()
If ListBox1.ListIndex < 0 Then
    MsgBox "Ürün üzerinde değişiklik yapababilmek için listeden bir ürün seçiniz!", vbCritical, "UYARI"
    Exit Sub
End If
If Not IsNumeric(TextBox9.Text) Then
    MsgBox "Maliyet girilmedi." & vbLf & "Sayısal bir değer giriniz.", vbCritical, "UYARI"
    TextBox9.SetFocus
    TextBox9.SelStart = 0
    TextBox9.SelLength = Len(TextBox9.Text)
    Exit Sub
End If
Set KAYIT_SETI = CreateObject("ADODB.Recordset")
SQL_SORGUSU = "Select * From [Data$] where S_NO ='" & CDbl(ListBox1.Column(0)) & "';"
KAYIT_SETI.Open SQL_SORGUSU, ADODB_DATA, 1, 3
KAYIT_SETI("MALİYETİ") = CDbl(TextBox9.Text)
KAYIT_SETI("MALİYET_NOTLARI") = TextBox8.Text
KAYIT_SETI.Update
KAYIT_SETI.Close
Set KAYIT_SETI = Nothing
Call liste
MsgBox "Yeni Maliyet tutarı ve Not girildi." & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    
End Sub

 

[unalh]

Evren Hocam,

Dosya için çok teşekkür ederim.

ADO ile kayıt silme işlemini araştırdım sizin dediğinizgibi silme işleminin olmadığını öğrendim.
Benim istediğimi bu şekliyle çok iyi bir şekilde hallediyor.

Hayırlı Akşamlar.

 

[Orion1]

Evren Hocam,

Dosya için çok teşekkür ederim.

ADO ile kayıt silme işlemini araştırdım sizin dediğinizgibi silme işleminin olmadığını öğrendim.
Benim istediğimi bu şekliyle çok iyi bir şekilde hallediyor.

Hayırlı Akşamlar.

Bir yanlışlığa mahal vermeyelim.Bu konu excel için geçerli.
Normal veritabanlarında bildiğimiz manada kayıt siliniyor.

 

[unalh]

Doğrudur belirmemiştik Excel'de silinemiyor.

Tekrar teşekkürler.

Hayırlı akşamlar.

 

[Orion1]

Doğrudur belirmemiştik Excel'de silinemiyor.

Tekrar teşekkürler.

Hayırlı akşamlar.

Rica ederim.
İyi akşamlar.

 

[tamer42]

Dos yanız ektedir.


Private Sub CommandButton3_Click()
If ListBox1.ListIndex < 0 Then
................
End If
If Not IsNumeric(TextBox9.Text) Then
......................
End If
Set KAYIT_SETI = CreateObject("ADODB.Recordset")
SQL_SORGUSU = "Select * From [Data$] where S_NO ='" & CDbl(ListBox1.Column(0)) & "';"
KAYIT_SETI.Open SQL_SORGUSU, ADODB_DATA, 1, 3
KAYIT_SETI("MALİYETİ") = CDbl(TextBox9.Text)
KAYIT_SETI("MALİYET_NOTLARI") = TextBox8.Text
KAYIT_SETI.Update
KAYIT_SETI.Close
Set KAYIT_SETI = Nothing
Call liste
MsgBox "Yeni Maliyet tutarı ve Not girildi." & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub[/CODE]

Merhaba,

KAYIT_SETI.Update

Yukarıdaki kodla,
Sorgu sonucundaki kayıt güncellemede yalnızca bir kaydı güncelleme yapıyor.

Farklı bir sorgulama sonucunda 2,3,4, ... gibi 1' den fazla kayıt çıktığında nasıl bir yol izlenmelidir?

Teşekkürler,
iyi Çalışmalar.