Forum
Aktif konular
Üyeler
Kurallar
Arama
Bu Hatayı Alıyorum ADODB.Recordset Hata 800A0cb3 Bu Hatayı Alıyorum ADODB.Recordset Hata 800A0cb3
-
Merhaba Müridlerim
Üzerinde baya çalıştığım ama çözemediğim bi problem var.
kodları çalıştırdığım'da bu hatayı alıyorum.
ADODB.Recordset hata '800a0cb3'
Geçerli Kayýt Dizisi yer iþaretlerini desteklemiyor. Bu, saðlayýcýnýn veya seçili kayýt kümesi türünün bir sýnýrlamasý olabilir.
/yenicankiri/zdefter/defter.asp, satır 23
KOD :<%
Dim kon, Rs, i, s, Sayfa, SQL
Rs = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; pwd=root; database=movedb; option=16384; stmt=SET NAMES 'Latin5';"
Set kon = Server.CreateObject("ADODB.Connection" )
kon.Open Rs
%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset" )
SQL = "Select * from tbdefter"
Set Rs = kon.Execute(SQL )
If Not Rs.EOF Then
Rs.PageSize = 5
If Request.QueryString("s" ) <> "" Then
Sayfa = CInt(Request.QueryString("s" ) )
Else
Sayfa = 1
End If
Rs.AbsolutePage = Sayfa
%>
<style type="text/css">
<!--
.style2 {
color: #FFFFFF;
font-weight: bold;
}
.style3 {font-size: 36px}
-->
</style>
<p align="center" class="style3">Ziyaretçi Defteri </p>
<p align="center"><strong><a href="../default.asp">Portal</a> | <a href="../../forum/default.asp">Forum</a> | <a href="../../veritabani/default.asp">Veritabanı</a> </strong></p>
<p align="center"> </p>
<table width="458" border="0" align="center">
<%
i=0
Do While Not Rs.EOF And i<Rs.PageSize
%>
<tr>
<th width="86" bgcolor="#990000" scope="col"><div align="center" class="style2">Ad Soyad </div></th>
<th width="9" scope="col"><div align="center"><strong>:</strong></div></th>
<th colspan="2" scope="col"><div align="left"><%=Rs("fldadisoyadi" )%></div></th>
<th width="39" scope="col">ID</th>
</tr>
<tr>
<td bgcolor="#990000"><div align="center" class="style2">Email</div></td>
<td><div align="center"><strong>:</strong></div></td>
<td colspan="2"><div align="left"><%=Rs("fldemail" )%></div></td>
<td rowspan="2"><div align="center">
<p><%=i+1%></p>
</div></td>
</tr>
<tr>
<td height="21" bgcolor="#990000"><div align="center" class="style2">Tarih</div></td>
<td><div align="center"><strong>:</strong></div></td>
<td colspan="2"><div align="left"><%=Rs("fldtarih" )%></div></td>
</tr>
<tr>
<td colspan="5" bgcolor="#990000"><div align="center" class="style2">Notu</div></td>
</tr>
<tr>
<td colspan="5"><div align="center">
<p><%=Rs("fldnot" )%></p>
<p> </p>
</div></td>
</tr>
<%
i=i+1
Rs.MoveNext
Loop
%>
<tr>
<td colspan="5"><div align="center"><%
If Rs.PageCount > 0 Then
For s=1 To Rs.PageCount
Response.Write "<a href=""?s=" & s & """>" & s & "</a>"
Next
End If
%></div></td>
</tr>
</table>
<p>
<%
End If
%>
<%
if rs.bof then
Response.write "<center><h3>Ziyaretçi Veritabaninda Kayit Bulunamadi</h3></center>"
end if
%>
<div><!--#include file="defter_yaz.asp" --></div>------------------------------------------------------------------
teşekkürler müridlerim
-
Değerli Müridlerim
Bu sorunu çözemedim bi el atabilirmiyiz. şıkıştım access 'den mysql veritabanına yeni geçtim sıkıntı çekmekteyim yardımınızı bekliyorum
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla