Recordset

[Filipe_Moraes 15]

Olá comunidade, no algi da minha ignorância, resolvi perguntar aos sabios do imasters, o que é e para que serve o RecordSet?? é que uso isso para trabalhar com campos em buscas, mas naum sei a logica ainda!!

Agradecia a resposta!! http://forum.imasters.com.br/public/style_emoticons/default/blush.gif :P

[Mário Monteiro 179]

O Recorset é um OBJETO que voce cria ara armazenar dados e indices que serão usados posteriormente po voce

[Filipe_Moraes 15]

marioufa, obrigado pela resposta anterior!! Fiz um site em ASP, (tenho instalado no pc), mas não consigo vizualizar o site no browser!!! sabes o que poderia estar acontecendo??Agradecia a resposta

[Mário Monteiro 179]

ocorre algum erro??

[Filipe_Moraes 15]

sim, o seguinte:Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03EC)Carácter ';' esperado/solucoes/Connections/conn.asp, linha 8, coluna 49var MM_conn_STRING = Provider=Microsoft.JET.OLEDB.4.0;Data Source="C:\\Inetpub\\wwwroot\\solucoes\\Connections\\bd1.mdb";Persist Security Info=False

[Filipe_Moraes 15]

alguém sabe resolver meu problema, ta na resposta anterior o erro que dá!! agradecia a resposta!!!

[Filipe_Moraes 15]

lucasBR, na conecção não tem 2 barras não, aparece isso la no browser, mas qd olhas a conecção só há uma barra!!!ops, afinal havia duas barras, mas continua o mesmo erro:Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03EC)Carácter ';' esperado/solucoes/Connections/conn.asp, linha 8, coluna 49var MM_conn_STRING = Provider=Microsoft.JET.OLEDB.4.0;Data Source="C:\Inetpub\wwwroot\solucoes\Connections\bd1.mdb";Persist Security Info=False

[Mário Monteiro 179]

issoProvider=tem de estar dentro da aspas senao fica errado

[Filipe_Moraes 15]

olá, ta ai o codigo da conecção:

ASP

<%

// FileName="Connection_ado_conn_string.htm"

// Type="ADO"

// DesigntimeType="ADO"

// HTTP="false"

// Catalog=""

// Schema=""

var MM_conn_STRING=Provider="Microsoft.JET.OLEDB.4.0"; Data Source="C:InetpubwwwrootsolucoesConnectionsbd1.mdb";Persist Security Info=False

 

%>

 

e continua a dar este erro no browser e ja tentei colocar as " antes do Provider.

 

HTTP 500.100 - Erro interno do servidor - Erro de ASP

IIS (Serviços de informação Internet - Internet Information Services)

 

--------------------------------------------------------------------------------

 

Informações técnicas (para o pessoal do suporte)

 

Tipo de erro:

Erro de compilação do Microsoft JScript (0x800A03EC)

Carácter ';' esperado

/solucoes/Connections/conn.asp, linha 8, coluna 60

var MM_conn_STRING=Provider="Microsoft.JET.OLEDB.4.0"; Data Source="C:\Inetpub\wwwroot\solucoes\Connections\bd1.mdb";Persist Security Info=False

-----------------------------------------------------------^

 

ainda não consegui!!!

[marcelinho 0]

Set MM_conn_STRING = Server.CreateObject("ADODB.Connection")MM_conn_STRING.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\solucoes\Connections\bd1.mdb" MM_conn_STRING.opententa essa linha ai em cimae depois verifica se realmente esse é o caminho do banco mesmo!!e o resto esta tudo em ordem?IIS, a permissa de escrita do banco de dados, tudo certo?qualquer erro posta ae pra gente ajudar!!

[Filipe_Moraes 15]

continua a dar o mesmo erro, eu desisto!!!!Ja testei a conecção, mas só falta fazer a permissão de escrita do banco de dados, como faço isso??Agradecia a resposta e obrigado pelas outras!!

[Filipe_Moraes 15]

São 5 pgs, a pagina principal é essa, não consigo visualizar:

 

ASP

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conn.asp" -->

<%

var rsMsgs__MMColParam = "0";

if (String(Request.QueryString("0")) != "undefined" &&

    String(Request.QueryString("0")) != "") {

  rsMsgs__MMColParam = String(Request.QueryString("0"));

}

%>

<%

var rsMsgs = Server.CreateObject("ADODB.Recordset");

rsMsgs.ActiveConnection = MM_conn_STRING;

rsMsgs.Source = "SELECT *  FROM forum2  WHERE forum.respID = "+ rsMsgs__MMColParam.replace(/'/g, "''") + "  ORDER BY id DESC";

rsMsgs.CursorType = 0;

rsMsgs.CursorLocation = 2;

rsMsgs.LockType = 1;

rsMsgs.Open();

var rsMsgs_numRows = 0;

%>

<%

var Repeat1__numRows = 10;

var Repeat1__index = 0;

rsMsgs_numRows += Repeat1__numRows;

%>

<%

// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

 

// set the record count

var rsMsgs_total = rsMsgs.RecordCount;

 

// set the number of rows displayed on this page

if (rsMsgs_numRows < 0) {            // if repeat region set to all records

  rsMsgs_numRows = rsMsgs_total;

} else if (rsMsgs_numRows == 0) {    // if no repeat regions

  rsMsgs_numRows = 1;

}

 

// set the first and last displayed record

var rsMsgs_first = 1;

var rsMsgs_last  = rsMsgs_first + rsMsgs_numRows - 1;

 

// if we have the correct record count, check the other stats

if (rsMsgs_total != -1) {

  rsMsgs_numRows = Math.min(rsMsgs_numRows, rsMsgs_total);

  rsMsgs_first   = Math.min(rsMsgs_first, rsMsgs_total);

  rsMsgs_last    = Math.min(rsMsgs_last, rsMsgs_total);

}

%>

<%

// *** Recordset Stats: if we don't know the record count, manually count them

 

if (rsMsgs_total == -1) {

 

  // count the total records by iterating through the recordset

  for (rsMsgs_total=0; !rsMsgs.EOF; rsMsgs.MoveNext()) {

    rsMsgs_total++;

  }

 

  // reset the cursor to the beginning

  if (rsMsgs.CursorType > 0) {

    if (!rsMsgs.BOF) rsMsgs.MoveFirst();

  } else {

    rsMsgs.Requery();

  }

 

  // set the number of rows displayed on this page

  if (rsMsgs_numRows < 0 || rsMsgs_numRows > rsMsgs_total) {

    rsMsgs_numRows = rsMsgs_total;

  }

 

  // set the first and last displayed record

  rsMsgs_last  = Math.min(rsMsgs_first + rsMsgs_numRows - 1, rsMsgs_total);

  rsMsgs_first = Math.min(rsMsgs_first, rsMsgs_total);

}

%>

 

<% var MM_paramName = ""; %>

<%

// *** Move To Record and Go To Record: declare variables

 

var MM_rs        = rsMsgs;

var MM_rsCount   = rsMsgs_total;

var MM_size      = rsMsgs_numRows;

var MM_uniqueCol = "";

    MM_paramName = "";

var MM_offset = 0;

var MM_atTotal = false;

var MM_paramIsDefined = (MM_paramName != "" && String(Request(MM_paramName)) != "undefined");

%>

<%

// *** Move To Record: handle 'index' or 'offset' parameter

 

if (!MM_paramIsDefined && MM_rsCount != 0) {

 

  // use index parameter if defined, otherwise use offset parameter

  r = String(Request("index"));

  if (r == "undefined") r = String(Request("offset"));

  if (r && r != "undefined") MM_offset = parseInt®;

 

  // if we have a record count, check if we are past the end of the recordset

  if (MM_rsCount != -1) {

    if (MM_offset >= MM_rsCount || MM_offset == -1) {  // past end or move last

      if ((MM_rsCount % MM_size) != 0) {  // last page not a full repeat region

        MM_offset = MM_rsCount - (MM_rsCount % MM_size);

      } else {

        MM_offset = MM_rsCount - MM_size;

      }

    }

  }

 

  // move the cursor to the selected record

  for (var i=0; !MM_rs.EOF && (i < MM_offset || MM_offset == -1); i++) {

    MM_rs.MoveNext();

  }

  if (MM_rs.EOF) MM_offset = i;  // set MM_offset to the last possible record

}

%>

<%

// *** Move To Record: if we dont know the record count, check the display range

 

if (MM_rsCount == -1) {

 

  // walk to the end of the display range for this page

  for (var i=MM_offset; !MM_rs.EOF && (MM_size < 0 || i < MM_offset + MM_size); i++) {

    MM_rs.MoveNext();

  }

 

  // if we walked off the end of the recordset, set MM_rsCount and MM_size

  if (MM_rs.EOF) {

    MM_rsCount = i;

    if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;

  }

 

  // if we walked off the end, set the offset based on page size

  if (MM_rs.EOF && !MM_paramIsDefined) {

    if ((MM_rsCount % MM_size) != 0) {  // last page not a full repeat region

      MM_offset = MM_rsCount - (MM_rsCount % MM_size);

    } else {

      MM_offset = MM_rsCount - MM_size;

    }

  }

 

  // reset the cursor to the beginning

  if (MM_rs.CursorType > 0) {

    if (!MM_rs.BOF) MM_rs.MoveFirst();

  } else {

    MM_rs.Requery();

  }

 

  // move the cursor to the selected record

  for (var i=0; !MM_rs.EOF && i < MM_offset; i++) {

    MM_rs.MoveNext();

  }

}

%>

<%

// *** Move To Record: update recordset stats

 

// set the first and last displayed record

rsMsgs_first = MM_offset + 1;

rsMsgs_last  = MM_offset + MM_size;

if (MM_rsCount != -1) {

  rsMsgs_first = Math.min(rsMsgs_first, MM_rsCount);

  rsMsgs_last  = Math.min(rsMsgs_last, MM_rsCount);

}

 

// set the boolean used by hide region to check if we are on the last record

MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);

%>

<%

// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

 

// create the list of parameters which should not be maintained

var MM_removeList = "&index=";

if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";

var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

 

// add the URL parameters to the MM_keepURL string

for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {

  var nextItem = "&" + items.item().toLowerCase() + "=";

  if (MM_removeList.indexOf(nextItem) == -1) {

    MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));

  }

}

 

// add the Form variables to the MM_keepForm string

for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {

  var nextItem = "&" + items.item().toLowerCase() + "=";

  if (MM_removeList.indexOf(nextItem) == -1) {

    MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));

  }

}

 

// create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL + MM_keepForm;

if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);

if (MM_keepURL.length > 0)  MM_keepURL = MM_keepURL.substring(1);

if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);

%>

<%

// *** Move To Record: set the strings for the first, last, next, and previous links

 

var MM_moveFirst="",MM_moveLast="",MM_moveNext="",MM_movePrev="";

var MM_keepMove = MM_keepBoth;  // keep both Form and URL parameters for moves

var MM_moveParam = "index";

 

// if the page has a repeated region, remove 'offset' from the maintained parameters

if (MM_size > 1) {

  MM_moveParam = "offset";

  if (MM_keepMove.length > 0) {

    params = MM_keepMove.split("&");

    MM_keepMove = "";

    for (var i=0; i < params.length; i++) {

      var nextItem = params[i].substring(0,params[i].indexOf("="));

      if (nextItem.toLowerCase() != MM_moveParam) {

        MM_keepMove += "&" + params[i];

      }

    }

    if (MM_keepMove.length > 0) MM_keepMove = MM_keepMove.substring(1);

  }

}

 

// set the strings for the move to links

if (MM_keepMove.length > 0) MM_keepMove = Server.HTMLEncode(MM_keepMove) + "&";

var urlStr = Request.ServerVariables("URL") + "?" + MM_keepMove + MM_moveParam + "=";

MM_moveFirst = urlStr + "0";

MM_moveLast  = urlStr + "-1";

MM_moveNext  = urlStr + (MM_offset + MM_size);

MM_movePrev  = urlStr + Math.max(MM_offset - MM_size,0);

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<script RUNAT=SERVER LANGUAGE=VBSCRIPT>                              

function DoDateTime(str, nNamedFormat, nLCID)                       

        dim strRet                                                             

        dim nOldLCID                                                           

                                                                               

        strRet = str                                                           

        If (nLCID > -1) Then                                                   

                oldLCID = Session.LCID                                         

        End If                                                                 

                                                                               

        On Error Resume Next                                                   

                                                                               

        If (nLCID > -1) Then                                                   

                Session.LCID = nLCID                                           

        End If                                                                 

                                                                               

        If ((nLCID < 0) Or (Session.LCID = nLCID)) Then                      

                strRet = FormatDateTime(str, nNamedFormat)                     

        End If                                                                 

                                                                               

        If (nLCID > -1) Then                                                   

                Session.LCID = oldLCID                                         

        End If                                                                 

                                                                               

        DoDateTime = strRet                                                 

End Function                                                                   

</SCRIPT>                                                                   

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Untitled Document</title>

<style type="text/css">

<!--

.style1 {

        font-size: 9px;

        font-weight: bold;

        font-family: Arial;

}

.style2 {

        font-family: Arial;

        font-size: 12px;

}

.style5 {font-family: Arial; font-weight: bold; font-size: 12px; }

.style7 {

        font-family: Arial;

        font-weight: bold;

        font-size: 14px;

}

-->

</style>

</head>

 

<body>

<table width="723" border="0" cellpadding="1">

  <tr bgcolor="#999999">

    <td width="186"><span class="style7">FÓRUM</span></td>

    <td width="273"> </td>

    <td width="250"><span class="style1"><a href="postar.asp">Postar nova mensagem </a></span></td>

  </tr>

  <tr>

    <td> </td>

    <td><div align="center" class="style5">

      <% if (MM_offset != 0) { %>

      <A HREF="<%=MM_movePrev%>"><<Anterior</A>

      <% } // end MM_offset != 0 %>

      <% if (!MM_atTotal) { %>

      <A HREF="<%=MM_moveNext%>">Próximo>></A>

      <% } // end !MM_atTotal %>

</div></td>

    <td> </td>

  </tr>

  <% if (!rsMsgs.EOF || !rsMsgs.BOF) { %>

  <% while ((Repeat1__numRows-- != 0) && (!rsMsgs.EOF)) { %>

  <tr bgcolor="#999999">

    <td><span class="style5">Autor<br>

        <%= DoDateTime((rsMsgs.Fields.Item("data").Value), 2, -1) %>      <br>

    </span></td>

    <td><span class="style5">Mensagem</span></td>

    <td><span class="style5">Resposta</span></td>

  </tr>

  <tr>

    <td><%=(rsMsgs.Fields.Item("autor").Value)%></td>

    <td><A HREF="respostas.asp?<%= Server.HTMLEncode(MM_keepURL) + ((MM_keepURL!="")?"&":"") + "id=" + rsMsgs.Fields.Item("id").Value %>"><%=(rsMsgs.Fields.Item("msg").Value)%></A></td>

    <td><%=(rsMsgs.Fields.Item("CountOfid").Value)%></td>

  </tr>

  <%

  Repeat1__index++;

  rsMsgs.MoveNext();

}

%>

  <% } // end !rsMsgs.EOF || !rsMsgs.BOF %>

 

  <tr bgcolor="#999999">

    <td><span class="style2">Exibindo mensagem <%=(rsMsgs_first)%> de  a <%=(rsMsgs_total)%></span></td>

    <td> </td>

    <td> </td>

  </tr>

</table>

<br>

<% if (rsMsgs.EOF && rsMsgs.BOF) { %>

"Não Existem mensagens neste forum"

<% } // end rsMsgs.EOF && rsMsgs.BOF %>

</body>

</html>

<%

rsMsgs.Close();

%>

[Filipe_Moraes 15]

Pagina de conecção:

ASP

<%

// FileName="Connection_ado_conn_string.htm"

// Type="ADO"

// DesigntimeType="ADO"

// HTTP="false"

// Catalog=""

// Schema=""

Set MM_conn_STRING = Server.CreateObject("ADODB.Connection")

MM_conn_STRING.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source="C:InetpubwwwrootsolucoesConnectionsbd1.mdb"

MM_conn_STRING.open

%>

[Filipe_Moraes 15]

agora ta a dar este erro:Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03F7)Constante de cadeia não terminada/solucoes/Connections/conn.asp, linha 2, coluna 42'FileName="Connection_ado_conn_string.htm"

[Mário Monteiro 179]

o que tem nesta linha 42??

[Filipe_Moraes 15]

o problema é esse, não ha linha 42, ta lá é linha 2 coluna 42!!