Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Son güncelleme: 06.11.2009 15:19

meqannn

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/bloklar/bloklar/istatistik/index.asp, line 21

YUKARIDAKİ HATAYI ALIYORUM . AŞAĞIYA KODLARIDA YAZDIMKİ YARDIMCI OLURKEN İŞİNİZ KOLAYLASIR BELKİ DİYE YARDIMLARINIZI BEKLİORUM

------------------------------------------------------------------
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="1%" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" width="99%" align="left">İstatistikler [Genel]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(sayaclar_veriyolu & ".mdb")
Set pordus = Server.CreateObject("ADODB.Recordset")
zaman=mid(now(),1,10)
ip_no=Request.ServerVariables("REMOTE_ADDR")
sor="Select * from ipler where ipsi like '"&ip_no&"' "
pordus.Open sor,Sur,1,3
if pordus.eof then
pordus.AddNew
pordus("ipsi")=ip_no
pordus("hit")="1"
pordus("tarih")=zaman
pordus.Update " HATAYI GOSTERDİĞİ LİNE 21 "
pordus.close
tekil="ok"
else
if pordus("tarih") <> zaman then tekil="ok" else tekil="no" end if
pordus("hit")=pordus("hit")+1
pordus("tarih")=zaman
pordus.Update
pordus.close
end if
Sor="Select * from sayaclar where tarih like '"&zaman&"'"
pordus.Open sor,Sur,1,3
if pordus.eof then
pordus.AddNew
pordus("tarih")=zaman
pordus("tekil")="1"
pordus("cogul")="1"
pordus.Update
pordus.close
else
if tekil="ok" then
pordus("tekil")=pordus("tekil")+1
pordus("cogul")=pordus("cogul")+1
pordus.Update
pordus.close
else
pordus("cogul")=pordus("cogul")+1
pordus.Update
pordus.close
end if
end if
Dim tariht,tarihc,topt,topc
tariht=0
tarihc=0
topt=0
topc=0
Sor="Select * from sayaclar"
pordus.Open sor,Sur,1,3
toplamgun=pordus.recordcount
Do while not pordus.Eof
if pordus("tarih")=zaman then
tariht=pordus("tekil")
tarihc=pordus("cogul")
end if
topt=pordus("tekil")+topt
topc=pordus("cogul")+topc
pordus.movenext
loop
pordus.close
gunluktekilortalama = topt / toplamgun
gunlukcogulortalama = topc / toplamgun
%>
<table border="0" width="100%">
<tr>
<td width="49%">IP Adresiniz</td>
<td width="1%">:</td>
<td width="50%"><%=request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td width="49%">Toplam Üye</td>
<td width="1%">:</td>
<td width="50%">
<%
Set rs21 = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select id FROM Uyeler"
rs21.open rSQL,uyeler,1,3
%>
<%=rs21.recordcount%></td>
</tr>
<tr>
<td width="49%">Son Üyemiz</td>
<td width="1%">:</td>
<td width="50%">
<%
set rs = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select id,kadi FROM Uyeler ORDER BY id DESC"
rs.open rSQL,uyeler,1,3
%>
<a href="profil.asp?id=<%=rs("id")%>"><%=server.HTMLEncode(rs("kadi"))%></a>
</td>
</tr>
<tr>
<td width="49%">Aktif Üyeler</td>
<td width="1%">:</td>
<td width="50%">
<marquee onmouseover="this.stop();" onmouseout="this.start();" direction="left" scrollamount="3"><%
Session.LCID = 1033
tarih1 = Now()
tarih2 = DateAdd("n" , -10, Now())
Set rec1 = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# ORDER BY songiris desc"
rec1.open rSQL,uyeler,3,3
%>
<%Do While not rec1.Eof%>
<%if left((rec1("ban")),3)="0" then%>
<%if left((rec1("yetki")),3)="0" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="1" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="2" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="3" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="4" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="5" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="6" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="7" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="8" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="9" then%><a href="profil.asp?id=<%=rec1("id")%>">@<%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="10" then%><a href="profil.asp?id=<%=rec1("id")%>">#<%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%end if%>
<%if left((rec1("ban")),3)="1" then%><a href="profil.asp?id=<%=rec1("id")%>"><strike><%=server.htmlencode(rec1("kadi"))%></strike></a>, <%end if%>
<%
rec1.Movenext
Loop
Session.LCID = 1055
%></marquee>
</td>
</tr>
<tr>
<td width="49%">Aktif Kişi</td>
<td width="1%">:</td>
<td width="50%"><%#@~^aQAAAA==@#@&ZC^V,SWTb1Ok7+i/Dcb@#@&ZmsV,bmDr-+`/D/VnC E2`*@#@&"+d2Kx/n qDrY~ZPQ,bawVbmmOkKxcJzmOr7+jknDkJ#@#@&0B8AAA==^#~@%></td>
</tr>
<tr>
<td width="49%">Aktif Üyeler</td>
<td width="1%">:</td>
<td width="50%">
<%
Session.LCID = 1033
tarih1 = Now()
tarih2 = DateAdd("n" , -10, Now())
Set rson = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# "
rson.open rSQL,uyeler,3,3
%>
<%=rson.recordcount%>
<%
Do While not rson.Eof
rson.Movenext
Loop
Session.LCID = 1055
%>
</td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
 
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="20" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" align="left">İstatistikler [Sayaçlar]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<table border="0" width="100%">
<tr>
<td width="49%">Bugün Tekil</td>
<td width="1%">:</td>
<td width="30%"><%=tariht%></td>
</tr>
<tr>
<td width="49%">Bugün Çoğul</td>
<td width="1%">:</td>
<td width="30%"><%=tarihc%></td>
</tr>
<tr>
<td width="49%">Toplam Tekil</td>
<td width="1%">:</td>
<td width="30%"><%=topt%></td>
</tr>
<tr>
<td width="49%">Toplam Çoğul</td>
<td width="1%">:</td>
<td width="30%"><%=topc%></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
 
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="20" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" align="left">İstatistikler [Rekor]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<table border="0" width="100%">
<tr>
<td width="100%" colspan="3" align="center">Tekil Rekor</td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<tr>
<td width="49%" align="right"><%=rec("tarih")%></td>
<td width="1%">:</td>
<td width="50%"><%=rec("tekil")%></td>
</tr>
<%
rec.movenext
end if
next
%>
<tr>
<td width="100%" colspan="3" align="center">Çoğul Rekor</td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<tr>
<td width="49%" align="right"><%=rec("tarih")%></td>
<td width="1%">:</td>
<td width="50%"><%=rec("cogul")%></td>
</tr>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>

#01.11.2008 11:18 0 0 0

kalpsiz47

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(sayaclar_veriyolu & ".mdb")

yerine bunu kullan

Sur.Open "Provider = Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("sayaclar_veriyolu.mdb")

bide :
(sayaclar_veriyolu & ".mdb") yerine ("sayaclar_veriyolu.mdb") bunu yaz veri tabanın adı sayaclar_veriyolu.mdb olmalı

#08.07.2009 17:40 0 0 0

GONUL_SAYFAM

bişe anlamadım

#30.07.2009 05:07 0 0 0

bozok

veri tabanına başlanamıyor. arkadaşın dediğini eskisiyle değiştir.

#06.11.2009 15:19 0 0 0

Microsoft OLE DB Provider for ODBC Drivers error '80004005' Konusuna Benzer Konular
Runtime Error Hatasının Çözümü - C++ Hatası 23.03.2009
Microsoft Sicherheitsupdate für Xp lücken 20.03.2004
Microsoft Windows XP Komutlari!!! 08.04.2004
Microsoft Visual C++ 6.0 01.09.2004
Microsoft Visual C++ 6.0[Türkce] 08.09.2004