Tablo karşılaştırma

ouney · 24 Şubat 2004

database in içerisindeki 2 tabloyu karşılaştırmak
1. tabloda olup da 2. tabloda olmayan kayıtları 2. tabloya kaydetmek istiyorum ama döngüde bir hata yapıyorum zannedersem

karşılaştırma konusunda yardımcı olabilir misiniz acaba?

oyuncu · 25 Şubat 2004

kodu yazman kodun hatasını nasıl söyleyebiliriz
mantıklı istekler pls

ouney · 25 Şubat 2004

ad=Request.form("isim")
Pth=Server.Mappath("adlar.mdb")
Baglanti_cum= "DBQ="& Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Baglanti_cum
Set recset=Server.CreateObject("ADODB.Recordset")
SQL="Select * from isim"
recset.open SQL,Baglanti,1,3
do while not recset.eof
if ad=recset(isim") then
recset.movenext
else
recset.addnew
recset("isim")=dosyaadi
recset.update
end if
loop

kullandığım kod bu. ama soru biraz değişti şimdi
formdan gelen verileri bütün kayıtlarla karşılaştırmak ve mevcut olan veriyi kaydetmemek istiyorum. mevcut veriden farklıysa kaydetmek istiyorum

serbil · 2 Nisan 2004

ouney' Alıntı:
ad=Request.form("isim")
Pth=Server.Mappath("adlar.mdb")
Baglanti_cum= "DBQ="& Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Baglanti_cum
Set recset=Server.CreateObject("ADODB.Recordset")
SQL="Select * from isim"
recset.open SQL,Baglanti,1,3
do while not recset.eof
if ad=recset(isim") then
recset.movenext
else
recset.addnew
recset("isim")=dosyaadi
recset.update
end if
loop

kullandığım kod bu. ama soru biraz değişti şimdi
formdan gelen verileri bütün kayıtlarla karşılaştırmak ve mevcut olan veriyi kaydetmemek istiyorum. mevcut veriden farklıysa kaydetmek istiyorum

ben recset yerine rs kullandım

Rs.Open "SELECT * FROM isim where isim like '"&Request.Form("isim")&"' '", Baglanti, 1, 3
if rs.eof then
rs.addnew

rs.close
else
response.write "Bu domain ismi daha once kaydedilmiştir"
rs.close
end if

olmazsa http://www.serbil.com adresine yaz tekrar bakarız

Tablo karşılaştırma

ouney

oyuncu

0

ouney

serbil

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5