Ders 6 - Asp ve Ado Birlikteliği

<BODY>

<!--#include file="ADOvbs.inc"-->

<%

Dim varMusteriKodu

varMusteriKodu=Request.Form("txtkodu")

Dim Rs

StrSql = "SELECT * FROM MUSTERI"

StrProvider="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=c:\data\musteriler.mdb"

Set Rs = Server.CreateObject("ADODB.recordset")

Rs.Open StrSql, StrProvider, adOpenDynamic, adLockOptimistic

Rs.Find "kodu = " & varMusteriKodu

If Rs.EOF Then

  Response.Write "Girilen kod bulunamadi"

Else

  Rs.Delete adAffectCurrent

  Response.Write "kayit silinmistir."

End If

Rs.Close

Set Rs=Nothing

%>

</BODY>

</HTML>

Kaynak: Faruk Çubukçu
Tarih:
Hit: 2411
Yazar: renegadealien



Yorumlar


Siftahı yapan siz olun
Yorum yapabilmek için üye girişi yapmalısınız.