Dataform 2

[br1 0]

Ola queria saber o seguinte...

 

Uso o data form 2 e quando eu cadastro ele fica em um relatorio com todos as mensages do cadastro.

 

O que eu queria era que cada cadastro lista-se por id:

 

http://www.portalcatalao.com.br/sites/cata...ro/consulta.asp

 

Essa é a url

 

queria que lista-se assim

http://www.portalcatalao.com.br/sites/cata....asp?entrada=63

 

so não aparece cada cadastro individual mais sim o todo

 

Obrigado Aguardo respostas

 

Bruno

[Penna 0]

SQL = "SELECT * FROM tabela WHERE entrada="&entrada&""

[br1 0]

valeu pena

 

amigo a questão que vai ser um relatrio

 

http://www.portalcatalao.com.br/sites/cata...stro/listar.asp

 

e presiso que abra o ID 63 - 67

[Penna 0]

Não entendi..

[br1 0]

è o seguinte intendi...fiz o seguintemudei o campo entrada por IDstrQ = "SELECT * FROM agenda"porstrQ = "SELECT * FROM agenda WHERE id="&id&""deu o seguinte erroTipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id='./marcal2/df_consulta.asp, line 187o codigo é o seguinte...<%If Request.QueryString("PagAtual") = "" Then PagAtual = 1 NumPagMax = VarPagMaxElse NumPagMax = CInt(Request.QueryString("NumPagMax")) PagAtual = CInt(Request.QueryString("PagAtual")) Select Case Request.QueryString("Submit") Case "Anterior" : PagAtual = PagAtual - 1 Case "Proxima" : PagAtual = PagAtual + 1 Case "Menos" : NumPagMax = NumPagMax - VarPagMax Case "Mais" : NumPagMax = NumPagMax + VarPagMax Case Else : PagAtual = CInt(Request.QueryString("Submit")) End Select If NumPagMax < PagAtual then NumPagMax = NumPagMax + VarPagMax End If If NumPagMax - (VarPagMax - 1) > PagAtual then NumPagMax = NumPagMax - VarPagMax End IfEnd IfSet objCon = Server.CreateObject("ADODB.Connection")objCon.Open strCon If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then If Request.Form("recordno") <> "" Then Set objRS_delete = Server.CreateObject("ADODB.Recordset") objRS_delete.CursorLocation = 3 objRS_delete.CursorType = 0 objRS_delete.LockType = 3 strQ_delete = Request.Form("strQ") indice = Trim(Request.Form("indice")) If indice <> "" Then strQ_delete = " SELECT * FROM agenda WHERE " & indice objRS_delete.Open strQ_delete, objCon, , , &H0001 If indice = "" Then objRS_delete.Move Request.Form("recordno") - 1 If Not objRS_delete.EOF Then objRS_delete.Delete objRS_delete.UpdateBatch End IF objRS_delete.Close Set objRS_delete = Nothing Set strQ_delete = Nothing End If End IfSet objRS = Server.CreateObject("ADODB.Recordset")objRS.CursorLocation = 3objRS.CursorType = 2objRS.LockType = 1objRS.CacheSize = RegPorPagstrQ = "SELECT * FROM agenda"If Trim(Request("string_busca")) <> "" Then If Trim(Request("campo_busca")) <> "" Then strQ = strQ & " Where " & Trim(Request("campo_busca")) & " LIKE '%" & Trim(Request("string_busca")) & "%'" Else strQ = strQ & " Where 1 <> 1" strQ = strQ & " Or estado LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or habitos LIKE '%" & Trim(Request("string_busca")) & "%'" strQ = strQ & " Or bairro LIKE '%" & Trim(Request("string_busca")) & "%'" End IfEnd IfIf Trim(Request.QueryString("Ordem")) <> "" Then strQ = strQ & " ORDER BY " & Request.QueryString("Ordem")End IfobjRS.Open strQ, objCon, , , &H0001objRS.PageSize = RegPorPagSet objRS_indice = Server.CreateObject("ADODB.Recordset")objRS_indice.CursorLocation = 2objRS_indice.CursorType = 0objRS_indice.LockType = 2strQ_indice = "SELECT * FROM agenda WHERE 1 <> 1"objRS_indice.Open strQ_indice, objCon, , , &H0001indice = ""For Each item In objRS_indice.Fields If item.properties("IsAutoIncrement") = True Then indice = item.name Exit For End IfNextobjRS_indice.CloseSet objRS_indice = NothingSet strQ_indice = NothingSet objRS.ActiveConnection = NothingobjCon.CloseSet objCon = Nothing%><B>Consultar Registros</B><BR>Visualize os registros da tabela abaixo:<BR><FORM name="form_busca" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">Pesquizar por <INPUT type=text name=string_busca value="<%=Request("string_busca")%>" class=texto_pagina size="20"> em<SELECT name=campo_busca class=texto_pagina> <OPTION value="" selected>Registros</OPTION> <OPTION value="estado" <% If Trim(Request("campo_busca")) = Trim("estado") Then : Response.Write "selected" : End If %>>estado</OPTION> <OPTION value="habitos" <% If Trim(Request("campo_busca")) = Trim("habitos") Then : Response.Write "selected" : End If %>>habitos</OPTION> <OPTION value="bairro" <% If Trim(Request("campo_busca")) = Trim("bairro") Then : Response.Write "selected" : End If %>>bairro</OPTION></SELECT><INPUT type="submit" name="submit" value="ok" class=texto_pagina style="color: black"></FORM><%If Not(objRS.EOF) Then objRS.AbsolutePage = PagAtual TotPag = objRS.PageCount%>Foram encontrados <%= objRS.RecordCount%> registros<BR><BR><TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_registros> <TR class=titulos_registros><%If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then Response.Write "<TD align=""center"" style=""background-color: crimson; color: white"" width=""1%"" nowrap><b>Editar</b></TD>"End IFIf Right(Request.QueryString("Ordem"), 3) = "asc" Then Ordem = "desc"Else Ordem = "asc"End IF%> <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=estado+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 6) = "estado" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>estado</b></TD> <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=habitos+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 7) = "habitos" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>habitos</b></TD> <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=bairro+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 6) = "bairro" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>bairro</b></TD> </TR><%For Cont = 1 to objRS.PageSize%>Valeu

[Penna 0]

Na boa véio não entendi ainda..Você tem um campo nome na tebela, se você quiser listar todos os nomes iguais faça assim:SQL = "SELECT * FROM tabela WHERE Nome = '"&Request("Nome")&"'"No endereço:pagina.asp?Nome=AlexIsso vai fazer com que liste todos os registros que estiverem com o nome Alex.Caso seja isso, você não pode fazer com id, pois ele é uncio, não tem dois iguais. Você pode até fazer. Se for para listar apenas um registro. Ai você faz o mesmo esquema.

[br1 0]

Kra como eu lhe passei o codigo eu não uso SQL mais simstrQ =e ai como faço????eu passei o codigo da pg

[br1 0]

posso usar strQ = "SELECT * FROM agenda WHERE id = '"&Request("id")&"'

[Penna 0]

strQ = "SELECT * FROM Agenda WHERE ID = "&Request("ID")&""Isso é uma variavel, pode ser qualquer nome ali.

[Penna 0]

Isso mesmo..

[br1 0]

consegui