Acil Asp Veritabanı Yardımı

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

Veritabanı Oluşturdum Kayıt Ekleyip Silebiliyorum, Fakat veritabanından kayıt çekemiyorum.yardım ederseniz.sevinirim,şimdiden teşekkürler.

sisyphem · Tecrübeli Üye Kayıt: 15 Şub 2007 Mesajlar: 836

Daha önce yaptığım bir projede şöyle kullanımışım. Kodlar da herhangi bir sorun olmaması lazım. Çaılştığını hatırlıyorum. test tablosundaki ad soyad ve no alanlarını yazdırıyoru. Eğer kayıt yoksa kayıtlı öğrenci yok sonucunu veriyor. Biraz karışık görünüyor ama umrım işine yarar.

Kod:

<% Set con=Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veri.mdb")%>

<% set testhepsi=server.CreateObject("ADODB.recordset")
sql70="select * from test"
testhepsi.open sql70,con,1,3
%>

<% if not testhepsi.eof then %><br><br>
      <table width="200" border="1">
<% testhepsi.movefirst
      do until testhepsi.EOF
      %>
<tr>
<td><a href="anasayfa.asp?islem=testsonuc2&soyad=<%=testhepsi("soyad")%>"><%=testhepsi("ad")%></a></td>
<td><%=testhepsi("soyad")%></td>
<td><%=testhepsi("no")%></td>
</tr>
<% testhepsi.movenext
loop %>
</table>
<% else %><br>
<table width="200" border="0">
<tr>
<td><div align="center" class="style6">Kayitli Ögrenci Yok.</div></td>
</tr>
</table>
<% end if %>

raco38 · Aktif Üye Kayıt: 09 Şub 2008 Mesajlar: 295

Çalışırsa benimde çok işime yarayacak

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

ben veritabanını oluşturdum yolu dbb/veritabanim.mdb
içindeki tablo adı bilgilihoca
id otamatik ad ise metin olarak 2 sutun var.o halde kod ;

<% Set con=Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbb/veritabanim.mdb")%>

<% set testhepsi=server.CreateObject("ADODB.recordset")
sql70="select * from bilgilihoca"
testhepsi.open sql70,con,1,3
%>

<% if not testhepsi.eof then %><br><br>
<table width="200" border="1">
<% testhepsi.movefirst
do until testhepsi.EOF
%>
<tr>
<td><a href="anasayfa.asp?islem=testsonuc2&soyad<%=testhepsi("ad")%></a></td>
</tr>
<% testhepsi.movenext
loop %>
</table>
<% else %><br>
<table width="200" border="0">
<tr>
<td><div align="center" class="style6">Kayit Yok.</div></td>
</tr>
</table>
<% end if %>

olması gerekmez mi???fakat çalışmadı

sisyphem · Tecrübeli Üye Kayıt: 15 Şub 2007 Mesajlar: 836

Şu şekilde dener misiniz? Bir de ürettiği hata ne onu ekelrseniz iyi olur.

Kod:

<% Set con=Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbb/veritabanim.mdb")%>

<% set testhepsi=server.CreateObject("ADODB.recordset")
sql70="select * from bilgilihoca"
testhepsi.open sql70,con,1,3
%>

<% if not testhepsi.eof then %><br><br>
<table width="200" border="1">
<% testhepsi.movefirst
do until testhepsi.EOF
%>
<tr>
<td><%=testhepsi("ad")%></td>
</tr>
<% testhepsi.movenext
loop %>
</table>
<% else %><br>
<table width="200" border="0">
<tr>
<td><div align="center" class="style6">Kayit Yok.</div></td>
</tr>
</table>
<% end if %>

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

iç sunucu hatas veriyor. Sad

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

sisyphem yazmış:

Şu şekilde dener misiniz? Bir de ürettiği hata ne onu ekelrseniz iyi olur.

Kod:

<% Set con=Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbb/veritabanim.mdb")%>

<% set testhepsi=server.CreateObject("ADODB.recordset")
sql70="select * from bilgilihoca"
testhepsi.open sql70,con,1,3
%>

<% if not testhepsi.eof then %><br><br>
<table width="200" border="1">
<% testhepsi.movefirst
do until testhepsi.EOF
%>
<tr>
<td><%=testhepsi("ad")%></td>
</tr>
<% testhepsi.movenext
loop %>
</table>
<% else %><br>
<table width="200" border="0">
<tr>
<td><div align="center" class="style6">Kayit Yok.</div></td>
</tr>
</table>
<% end if %>

bu kodlar doğru gibi ama bii yerde hata var galiba...

osayrac

Bir de böyle denermisiniz hocamm..

<% Set con=Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbb/veritabanim.mdb")%>

<% set testhepsi=server.CreateObject("ADODB.recordset")
sql70="select * from bilgilihoca"
testhepsi.open sql70,con,1,3
%>

<% if testhepsi.eof then %><br><br>
<table width="200" border="1">
<tr>
<td>Kayıt yok</td>
</tr>
<% else
do while testhepsi.EOF
%>
<tr>
<td><%=testhepsi("ad")%></td>
</tr>
<% testhepsi.movenext
loop

end if

%>
</table>

sisyphem · Tecrübeli Üye Kayıt: 15 Şub 2007 Mesajlar: 836

Hocam son verdiğim kodlarda hata olmaması lazım. Eğer hala olmadıysa elinizdeki projenin ilgili yerini gönderirseniz bakabilirim.

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

bomboş bi sayfa çıkıyo ben size en iyisi ilgili dosyaları göndereyim bir bakın bakalım.

sisyphem · Tecrübeli Üye Kayıt: 15 Şub 2007 Mesajlar: 836

Buyrun hocam. Şimdi sorunsuz çalışıyor.

Sezgin_blk · Site Gezgini Kayıt: 09 Hzr 2008 Mesajlar: 36

Çok Teşekkürler...sisyphem