ADO ile kayıt silme

[ekmekevi]

Dim con As New ADODB.Connection
Dim rs As New C.Recordset
Dim sorgu As Variant, yol As String
Dim kayit As Byte, satir As Integer, sutun As Byte
yol = "C:\Users\ekmek\Desktop\fiyat artış\SİPARİŞ.xlsb"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select*from[Gelsiparis$] where[İSLEM KODU]=" & txtislemkod.Value & ""
rs.Open sorgu, con, 1, 3
For sutun = 1 To rs.Fields.Count - 1
rs.Fields(CInt(sutun)) = Controls("txt" & sutun).Value
Next sutun

rs.Update
rs.Close
con.Close
arkadaşlar yukardaki kod ile sayfaya bilgi girip yazıp güncelliyorum silmek için hangi kodu kullamam lazım yardımlar için teşekkürler

 

[Haluk]

Veri tabanı olarak MS Excel kullanıyorsanız, ADO ile bağlantı kurarak hücredeki veriyi gerçek anlamda silemezsiniz.

Yani, siz o hücreyi boş görürsünüz ama aslında doludur..... Yani bir anlamda; hücrenin içi gözle görülmeyen karakterle doludur.

Bu işlerde veri tabanı olarak MS Access kullanmak daha mantıklı olur....

.

 

[ekmekevi]

Veri tabanı olarak MS Excel kullanıyorsanız, ADO ile bağlantı kurarak hücredeki veriyi gerçek anlamda silemezsiniz.

Yani, siz o hücreyi boş görürsünüz ama aslında doludur..... Yani bir anlamda; hücrenin içi gözle görülmeyen karakterle doludur.

Bu işlerde veri tabanı olarak MS Access kullanmak daha mantıklı olur....

.

peki rs. silecegim satır nosunu yani indexsini nasıl alırım