Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Web Design Valdeci

Problemas com interrelacionamento de tabelas

Por , em ASP Clássico

Recommended Posts

Web Design Valdeci    0

Web Design Valdeci
Postado

Bom Dia,

 

Tenho dias tabelas, segmentos e listas. estou fazendo uma consulta que so mostrará o segmento se estiver em listas.

so q nao to conseguindo alguem pode me ajudar:

 

intID = request("id")
Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = "SELECT segmeto.id, segmento.nome FROM listas INNER JOIN segmentos ON listas.id_segmento = segmentos.id WHERE segmento.id = " & intID & " ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()
elel esta retornando

 

Microsoft JET Database Engine error '80040e10'

 

No value given for one or more required parameters.

 

/convenios.asp, line 23

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ernane Ramos    0

Ernane Ramos
Postado

Amigo...axu que você esqueceu do nome correto do ID da Segmento, sendo que tbm esqueceu do S do SegmentoS:

intID = request("id")
Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = "SELECT segmentos.id, segmentos.nome FROM listas INNER JOIN segmentos ON listas.id_segmento = segmentos.id WHERE segmentod.id = " & intID & " ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Amigo...axu que você esqueceu do nome correto do ID da Segmento, sendo que tbm esqueceu do S do SegmentoS:

intID = request("id")
Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = "SELECT segmentos.id, segmentos.nome FROM listas INNER JOIN segmentos ON listas.id_segmento = segmentos.id WHERE segmentod.id = " & intID & " ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

 

Amigo obrigado pela ajuda funfou mas nao aconteceu o que eu estava precisando.... Eu tenho a 4 tabelas... tabela: empresas, segmentos, clientes e listas. empresas: são as empresas que dão direito a um convênio, segmentos: são os segmentos dos convênios, clientes: são os clientes cadastrados para cada segmento do convênio e listas: é onde recebo o id da empresa, id do clientes e id do segmentos para exibir os as empresas que participam destes convênios. O que tá pegando é que na hora de chamar a tabela listas para cada empresa ele tá relacionando todos os segmentos que existem na tabela segmentos.

o que preciso é que ele chame os segmentos que estiverem cadastrados para as devidas empresas pois tem empresa que terá convênio com pet shop e outra nao.... será q deu pra entender... fiz a consulta:

Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = ""SELECT segmentos.id, segmentos.nome FROM listas INNER JOIN segmentos ON listas.id_segmento = segmentos.id WHERE segmentos.id ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

 

mas ele deu o maior pau repetindo um tanto de vezes os segmentos... será q você pode me ajudar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ernane Ramos    0

Ernane Ramos
Postado

Amigo...tente assim:

Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = ""SELECT segmentos.id, segmentos.nome FROM seguimentos INNER JOIN listas ON listas.id_segmento = segmentos.id  ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Amigo...tente assim:

Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = ""SELECT segmentos.id, segmentos.nome FROM seguimentos INNER JOIN listas ON listas.id_segmento = segmentos.id  ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

 

Ele funfou mas ainda repete varias vezes os segmentos.... vou postar a pagina inteira pra você entender.... deve ser alguma coisa na hora de chamar os segmentos... pode me ajudar... valeu

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="assets/conexao/conexao.asp" -->
<%
tsc = request.querystring("tsc")
if tsc = "exibir" then
id_empresa = request.querystring("id")
Set cs01 = Server.CreateObject("ADODB.Recordset")
cs01.ActiveConnection = strcon
cs01.Source = "SELECT * FROM EMPRESAS WHERE id = "&id_empresa&""
cs01.CursorType = 0
cs01.CursorLocation = 3
cs01.LockType = 1
cs01.Open()
end if

Set Recordset_loja = Server.CreateObject("ADODB.Recordset")
Recordset_loja.ActiveConnection = strcon
Recordset_loja.Source = "SELECT * FROM EMPRESAS ORDER BY ID"
Recordset_loja.CursorType = 0
Recordset_loja.CursorLocation = 3
Recordset_loja.LockType = 1
Recordset_loja.Open()

'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Recordset_loja_total
Dim Recordset_loja_first
Dim Recordset_loja_last
' set the record count
Recordset_loja_total = Recordset_loja.RecordCount

' set the number of rows displayed on this page
If (Recordset_loja_numRows < 0) Then
  Recordset_loja_numRows = Recordset_loja_total
Elseif (Recordset_loja_numRows = 0) Then
  Recordset_loja_numRows = 1
End If

' set the first and last displayed record
Recordset_loja_first = 1
Recordset_loja_last  = Recordset_loja_first + Recordset_loja_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset_loja_total <> -1) Then
  If (Recordset_loja_first > Recordset_loja_total) Then
	Recordset_loja_first = Recordset_loja_total
  End If
  If (Recordset_loja_last > Recordset_loja_total) Then
	Recordset_loja_last = Recordset_loja_total
  End If
  If (Recordset_loja_numRows > Recordset_loja_total) Then
	Recordset_loja_numRows = Recordset_loja_total
  End If
End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs	= Recordset_loja
MM_rsCount   = Recordset_loja_total
MM_size	  = Recordset_flores_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
	MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
	MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
	If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
	  If ((MM_rsCount Mod MM_size) > 0) Then		 ' last page not a full repeat region
		MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
	  Else
		MM_offset = MM_rsCount - MM_size
	  End If
	End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
	MM_rs.MoveNext
	MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
	MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
	MM_rs.MoveNext
	MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
	MM_rsCount = MM_index
	If (MM_size < 0 Or MM_size > MM_rsCount) Then
	  MM_size = MM_rsCount
	End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
	If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
	  If ((MM_rsCount Mod MM_size) > 0) Then
		MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
	  Else
		MM_offset = MM_rsCount - MM_size
	  End If
	End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
	MM_rs.MoveFirst
  Else
	MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
	MM_rs.MoveNext
	MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset_loja_first = MM_offset + 1
Recordset_loja_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (Recordset_loja_first > MM_rsCount) Then
	Recordset_loja_first = MM_rsCount
  End If
  If (Recordset_loja_last > MM_rsCount) Then
	Recordset_loja_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
	MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
	MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
	MM_joinChar = "&"
  Else
	MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
	MM_paramList = Split(MM_keepMove, "&")
	MM_keepMove = ""
	For MM_paramIndex = 0 To UBound(MM_paramList)
	  MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
	  If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
		MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
	  End If
	Next
	If (MM_keepMove <> "") Then
	  MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
	End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = MM_keepMove & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 3
Dim HLooper1__index
HLooper1__index = 0
Recordset_loja_numRows = Recordset_loja_numRows + HLooper1__numRows
%>
<%
mPagina = Request.querystring("Pagina")
   If mPagina = "" Then
	  paginacorrente = 1
	Else
	  paginacorrente = cint(mPagina)
   End If
   Recordset_loja.PageSize  = 16
   numpag = Recordset_loja.pagecount

   If paginacorrente > numpag Then 
	  paginacorrente = numpag
   End If   
   If paginacorrente < 1 Then 
	  paginacorrente = 1
   End If   
   If numpag <> 0 Then
	 Recordset_loja.AbsolutePage = paginacorrente
	Else
	  numpag=1
	  Recordset_loja_total=0
   End If 
			
	  For i = 1 to numpag 
	   if paginacorrente <> i then
		  linkpaginas = linkpaginas & "  "
		  linkpaginas = linkpaginas & "<A class='link_cinza_under'  "
		  linkpaginas = linkpaginas & "href=produtos.asp?idcat="&id_cat&"&pagina=" & i & ">" & i & "</A>"
		else
		  linkpaginas = linkpaginas & "<span class='txt_cinza_11'>  <B>"& i &"</B></span>"
	   end if
	  
   next
   linkpaginas = linkpaginas & "</font>"
   


Set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source = "SELECT segmentos.id, segmentos.nome FROM segmentos INNER JOIN listas ON listas.id_segmento = segmentos.id  ORDER BY segmentos.nome"
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>.:: Sistema Administrativo Aliança Alternativa ::.</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="assets/css/estilo.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
  
  <tr>
	<td height="24" background="assets/img/adm_barra_cinza.jpg"><table width="779" height="24" border="0" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="10"> </td>
		<td width="769" class="fonte_preta_11">.:: Convênios </td>
	  </tr>
	</table></td>
  </tr>
  <tr>
	<td><div align="center">
	  <form id="form1" name="form1" method="post" action="adm/index.asp?tsc=validar">
		<table width="779" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"> </td>
		  </tr>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"><table width="733" border="0" cellspacing="0" cellpadding="0">


				<tr>
				  <td><div align="justify" class="texto">
					<table width="674" height="222" border="0" align="center" cellpadding="0" cellspacing="0">
						<tr>
						  <td width="412" valign="top"><table border="0" cellpadding="0" cellspacing="0">
								<%
startrw = 0
endrw = HLooper1__index
numberColumns = 4
numrows = 4
while((numrows <> 0) AND (Not Recordset_loja.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
								<tr align="center" valign="top">
								  <%
While ((startrw <= endrw) AND (Not Recordset_loja.EOF))
var_imagem = Recordset_loja.Fields.Item("logomarca").Value
			var_id = Recordset_loja.Fields.Item("id").Value%>
								  <td><table width="150" border="0" cellspacing="0" cellpadding="0">
									   <tr>
									  <td width="3%"> </td>
									  <td width="92%"> </td>
									  <td width="5%"> </td>
									</tr>
									<tr>
									  <td> </td>
									  <td><div align="center"><a href="convenios.asp?tsc=exibir&id=<%=var_id%>" target="_self"><span class="fonte_preta_11"><img src="assets/img/adm/empresas/<%=var_imagem%>" width="130" height="180" border="0"></span></a></div></td>
									  <td> </td>
									</tr>
									<tr>
									  <td> </td>
									  <td> </td>
									  <td> </td>
									</tr>
									
								  </table>								  </td>
								  <%
	startrw = startrw + 1
	Recordset_loja.MoveNext()
	Wend
	%>
								</tr>
								<%
 numrows=numrows-1
 Wend
 %>
							  </table></td>
						</tr>
					  </table>
				  </div></td>
				</tr>
			  </table></td>
		  </tr>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"> </td>
		  </tr>
		  <%If tsc = "exibir" then%>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td valign="top" bgcolor="#E8E8E8" class="fonte_preta_11"><img src="http://www.aliancaalternativa.com.br/assets/img/adm/empresas/<%=cs01.Fields.Item("logomarca").Value%>"></td>
			<td width="403" rowspan="3" bgcolor="#E8E8E8"> </td>
		  </tr>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td width="331" valign="top" bgcolor="#E8E8E8" class="fonte_preta_11"><strong><%=cs01.Fields.Item("nome").Value%></strong></td>
			</tr>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td bgcolor="#E8E8E8" class="fonte_preta_11"><%=cs01.Fields.Item("descricao").Value%></td>
			</tr>
		<% end if%>
		<%If tsc = "exibir" then%>
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"> </td>
		  </tr>
		  
		  <tr>
			<td bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"><table width="330" border="0" cellspacing="0" cellpadding="0">
			<% 
			
'sql = "SELECT listas.id, listas.id_segmento FROM segmentos INNER JOIN Listas ON segmentos.id = listas.id_segmento WHERE listas.id_empresa = "&id_empresa&" and listas.id_segmento = "&id_segmento&" ORDER BY listas.id"		

			While (Not cs02.EOF)
			id_segmento = cs02.Fields.Item("id").Value
			Set cs03 = Server.CreateObject("ADODB.Recordset")
			cs03.ActiveConnection = strcon
			cs03.Source = "SELECT * FROM LISTAS WHERE id_empresa = "&id_empresa&" and id_segmento = "&id_segmento&""
			cs03.CursorType = 0
			cs03.CursorLocation = 3
			cs03.LockType = 1
			cs03.Open()
			i = 0
			While (Not cs03.EOF)			
			i = i + 1
			cs03.MoveNext()
			Wend
			%>
			  <tr>
				<td>• <a href="convenios2.asp?tsc=mostrar&id_empresa=<%=id_empresa%>&id_segmento=<%=id_segmento%>" class="link"><%=cs02.Fields.Item("nome").Value%></a><span class="fonte_cinza_11"> (<%=i%>)</span></td>
			  </tr>
			<%
			cs02.MoveNext()
			Wend
			%>
			</table></td>
		  </tr>
		  <%End If%>		  
		  <tr>
			<td width="45" bgcolor="#E8E8E8"> </td>
			<td colspan="2" bgcolor="#E8E8E8"><div align="right"><a href="http://www.bmcomunicacao.com.br" target="_blank" class="link">BM Comunicação</a></div></td>
		  </tr>
		</table>
		</form>
	  </div></td>
  </tr>
  <tr>
	<td> </td>
  </tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ernane Ramos    0

Ernane Ramos
Postado

Nuss...mas assim...

dei uma analisada aqui e peço que coloque especificando os 

<%=cs02.Fields.Item("nome").Value%>
.

Sugiro que coloque:

<%=cs02("segmentos.nome")%> ou outra tabela se for o caso, este codigo:

'sql = "SELECT listas.id, listas.id_segmento FROM segmentos INNER JOIN Listas ON segmentos.id = listas.id_segmento WHERE listas.id_empresa = "&id_empresa&" and listas.id_segmento = "&id_segmento&" ORDER BY listas.id"
Está sendo ignorado?

Onde você estaria declarando o id_empresa e o valor dela???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Nuss...mas assim...

dei uma analisada aqui e peço que coloque especificando os 

<%=cs02.Fields.Item("nome").Value%>
.

Sugiro que coloque:

<%=cs02("segmentos.nome")%> ou outra tabela se for o caso, este codigo:

'sql = "SELECT listas.id, listas.id_segmento FROM segmentos INNER JOIN Listas ON segmentos.id = listas.id_segmento WHERE listas.id_empresa = "&id_empresa&" and listas.id_segmento = "&id_segmento&" ORDER BY listas.id"
Está sendo ignorado?

Onde você estaria declarando o id_empresa e o valor dela???

 

Estaria declarando logo no começo quando a pessoa clica na imagem da logo da empresa conveniada ele envia o id empresa:

 

tsc = request.querystring("tsc")
if tsc = "exibir" then
id_empresa = request.querystring("id")
Set cs01 = Server.CreateObject("ADODB.Recordset")
cs01.ActiveConnection = strcon
cs01.Source = "SELECT * FROM EMPRESAS WHERE id = "&id_empresa&""
cs01.CursorType = 0
cs01.CursorLocation = 3
cs01.LockType = 1
cs01.Open()
end if

fiz o que você pediu mas deu erro....

 

ADODB.Fields error '800a0cc1'

 

Item cannot be found in the collection corresponding to the requested name or ordinal.

 

/convenios.asp, line 502

 

Coloquei dos dois jeitos: <%=cs02.Fields.Item("segmentos.nome").Value%> e <%=cs02("segmentos.nome")%>

mas na funfou...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Certo...verifique no banco de dados se na tabela Segmentos existe o campo nome, caso tenha, não tem o porque do erro, caso não tenha, coloque:

<%=cs02("NOMEDATABELA.nome")%>

 

É cara to dando cancera ein.. nao ta funfando nao... ele dá a mesma mensagem de erro e so funfa quando coloco:

<%=cs02("nome")%> e nao funfa qd coloco do jeito q você pediu... e qd funfa ainda aparece repetindo varias vezes os nomes dos segmentos... acesse ai..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Certo....mas o que estaria repetindo?

 

Clica em uma empresa tipo AECO... vai aparecer os segmentos... aparecerá academia varias vezes etc... antes aparecia apenas o nome do segmento e na frente a quantidade de clientes q existem cadastrados para a empresa selecionada com o respectivo segmento, e aparecia apenas uma vez.. agora aparece varias vezes...

 

Certo....mas o que estaria repetindo?

 

Clica em uma empresa tipo AECO... vai aparecer os segmentos... aparecerá academia varias vezes etc... antes aparecia apenas o nome do segmento e na frente a quantidade de clientes q existem cadastrados para a empresa selecionada com o respectivo segmento, e aparecia apenas uma vez.. agora aparece varias vezes...

 

 

o que tem zero eu nao quero q aparece entende....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito