fmsjilha Postado Junho 3, 2005 Denunciar Share Postado Junho 3, 2005 tenho na paginal inicial do meu site um contador de visitantes, ele não esta atualizando o numero de visitantes, da erro no updateo codigo é esse:' Create ADO Connection Component to connect with database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DSN=midiatronics_loganc" ' Create ADO Recordset Component, and associate it with ADO connection Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Source = "Visitantes" oRs.ActiveConnection = oConn oRs.CursorLocation = adUseClient oRs.CursorType = adOpenStatic ' use a cursor other than Forward Only oRs.LockType = adLockOptimistic ' use a locktype permitting insertions ' Get Record Id="Visitantes" oRs.Open "SELECT * FROM Visitantes WHERE Visitantes = '"& Id &"'", oConn ' Verificar se o registro é válido If not oRs.RecordCount = 0 Then oRs("Number_of_Visits") = oRs("Number_of_Visits") + 1 'Soma 1 no numero de visitas oRs.Update Session("Number_of_Visits") = oRs("Number_of_Visits") Else Session("Number_of_Visits") = "" End If Session("Data_Sessao")= Date Session("Hora_Sessao")= Time oRs.Close oConn.Close Set oRs = Nothing Set oConn = NothingGostaria de saber se vocês podem me ajudar a solucionar esse problema!Grato Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fantasma Postado Junho 3, 2005 Denunciar Share Postado Junho 3, 2005 qual a msg de erro Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fmsjilha Postado Junho 3, 2005 Autor Denunciar Share Postado Junho 3, 2005 Error Type:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. da esse msg d erro ai! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fantasma Postado Junho 3, 2005 Denunciar Share Postado Junho 3, 2005 de um olha nas permissões de pastas e aquivosO que se passa é que como estás a usar uma bd access, tens de dar permissões de escrita Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
fmsjilha
tenho na paginal inicial do meu site um contador de visitantes, ele não esta atualizando o numero de visitantes, da erro no update
o codigo é esse:
' Create ADO Connection Component to connect with database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=midiatronics_loganc"
' Create ADO Recordset Component, and associate it with ADO connection
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Source = "Visitantes"
oRs.ActiveConnection = oConn
oRs.CursorLocation = adUseClient
oRs.CursorType = adOpenStatic ' use a cursor other than Forward Only
oRs.LockType = adLockOptimistic ' use a locktype permitting insertions
' Get Record
Id="Visitantes"
oRs.Open "SELECT * FROM Visitantes WHERE Visitantes = '"& Id &"'", oConn
' Verificar se o registro é válido
If not oRs.RecordCount = 0 Then
oRs("Number_of_Visits") = oRs("Number_of_Visits") + 1 'Soma 1 no numero de visitas
oRs.Update
Session("Number_of_Visits") = oRs("Number_of_Visits")
Else
Session("Number_of_Visits") = ""
End If
Session("Data_Sessao")= Date
Session("Hora_Sessao")= Time
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
Gostaria de saber se vocês podem me ajudar a solucionar esse problema!
Grato
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.