[gemeaux]

Aşağıdaki gibi bir formum var. Burada, veritabanında kayıtlı olan haberleri okuyor.

myRS: Kayıtsetinin ismi. Kodun geri kalanını yazmadım.

...

<tr><td><input type="checkbox" name="kutu" value="sayi"><b>Haber ID : </b><%=myRS("haberID")%></td></tr>
<tr><td><%=myRS("haberBaslik")%></td></tr>
<tr><td><%=myRS("haberMetni")%></td></tr>

...

Daha sonra da seçilen haberlerin silimesini istiyorum ama sadece en alttaki haber siliniyor. Ne olursa olsun.
Tahminime göre SQL ifadesinde bir sorun var ama sebebini bilemiyorum. Yazım doğru mu?

...

sayi=Request.form("sayi")

strDBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.Mappath("dVTabani.mdb")
Set myDB=server.CreateObject("ADODB.Connection")
myDB.Open strDBFile

Set myRS=server.CreateObject("ADODB.Recordset")

myRS.Open "select * from haberler where haberID=" & sayi & "", myDB, 1, 3

While Not myRS.EOF
myRS.Delete
myRS.MoveNext
Wend

myRS.Close
Set myRS=nothing

myDB.Close
Set myDB=nothing

...

Hata olarak da SQL'de bir yazım hatası olduğunu söyledi. "haberID=..." kısmında var dedi.

Sebebini söyleyebilir misiniz?

Ş.T.

[eqZo]

hatamı veriyor yoksa işlem mi yapıyor ??

[pixage]

myRS.Open "select * from haberler where haberID=" & sayi & "", myDB, 1, 3

Yerine bunu dene
SQL="select * from haberler where haberID=" & sayi
myRS.Open SQL, MyDB, 1, 3

Çalışır (umarım) ...

sorun, çift tırnakların fazla kullanılmasından kaynaklanıyor.
Aynı zamanda,
myRS.Open "select * from haberler where haberID=" & sayi , myDB, 1, 3
şeklindede çalışması gerekli ama bundan net olarak emin değilim.
Kolay gelsin

[gemeaux]

İşlem yapmıyor.

Ben, bir önceki sayfadaki form'dan, işaretlenen checkbox'ların ait olduğu haberleri silmek istiyorum; fakat kullandığım SQL ifadesinde ne var, onu merak ediyorum.

[absconder]

hatan şurada, textboxlar ile sadece bir değer taşıyorsun o da son kaydın değeri... dolayısıyla sadece o kayıt siliniyor.

çözüm için ilkin evvela ,

<input

 type="checkbox" name="kutu" value="sayi<%=myRS("haberID")%>">

silme kısmında ise ikisinden biri, denemedim, ama kesinlikle birisi olacaktır

strDBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.Mappath("dVTabani.mdb")
Set myDB=server.CreateObject("ADODB.Connection")
myDB.Open strDBFile

for k=1 to Request.form("kutu").Count

Set myRS=server.CreateObject("ADODB.Recordset")
myRS.Open "select * from haberler where haberID=" & replace(Request.form("kutu")(k),"sayi","") , myDB, 1, 3

next

myDB.Close
Set myDB=nothing

yada

strDBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.Mappath("dVTabani.mdb")
Set myDB=server.CreateObject("ADODB.Connection")
myDB.Open strDBFile

for each i in request.form
if i="kutu" then

Set myRS=server.CreateObject("ADODB.Recordset")
myRS.Open "select * from haberler where haberID=" & replace(Request.form(i),"sayi","") , myDB, 1, 3

end if
next

myDB.Close
Set myDB=nothing