Erro ao selecionar registros

[Slaa 0]

Saudações! Ajudem por favor...

 

ERRO:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/clientes/login.now.asp, line 21

 

<%Dim strSQL				Dim objConn				Dim objRs				Dim strLoginName   Dim strnome	 Dim strLoginPassword	Dim lngMemberID			' Capturar DatastrLoginName = Request.Form("LoginName")strLoginPassword = Request.Form("LoginPassword")' DB ConnSet objConn = Server.CreateObject("ADODB.Connection")Set objRs = Server.CreateObject("ADODB.Recordset")objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb")' ProcurarstrSQL = "SELECT MemberID FROM Members WHERE LoginName = '" & strLoginName & "' AND LoginPassword = '" & strLoginPassword & "'"Set objRs = objConn.Execute(strSQL)' AutenticaçãoIf objRs.EOF Then	session("logado") = ("erro")	Response.redirect("http://www.hv.com/clientes/home.asp")Else	lngMemberID = objRs(0)	session("memberID") = objrs("memberID")	session("loginname") = Request.Form("LoginName")	session("loginpassword") = Request.Form("LoginPassword")	session("logado") = ("logou")	Response.Redirect("http://www.hv.com/clientes/central.asp?memberID=" & lngmemberid)End If' ...Set objRs = NothingobjConn.CloseSet objConn = Nothing%>

[mkboy 1]

JA testou se as variaveis nas SQLs estao com valores?um response.write SQLresponse.end ajuda muito nestes casos....

[Slaa 0]

JA testou se as variaveis nas SQLs estao com valores?um response.write SQLresponse.end ajuda muito nestes casos....

Ixi, o problema eh outro.. esse jah resolvi.... Microsoft JET Database Engine error '80040e07'Data type mismatch in criteria expression./clientes/_conn_selects.asp, line 12

<%strloginname = session("loginname")memberID = session("memberID")' SELECT-------------------------------------------------------------------------------strSQL = "SELECT * FROM Members WHERE loginname = '" & loginname & "'"' Open the Database	set objrs=conexao.execute(strsql)'--------------------------------------------------------------------------------------strSQL2 = "SELECT * FROM host WHERE hostID = '" & MemberID & "'"' Open the Database	set objrs2=conexao.execute(strsql2)'--------------------------------------------------------------------------------------strSQL3 = "SELECT * FROM financeiro WHERE financeiroID = '" & MemberID & "'"' Open the Database	set objrs3=conexao.execute(strsql3)'--------------------------------------------------------------------------------------'--------------------------------------------------------------------------------------'Declaração'Memberscodigo  = objrs("codigo")loginname = objrs("Loginname") loginpassword = objrs("loginpassword")nome = objrs("nome")email = objrs("email")emailsec = objrs("emailsec")endereco = objrs("endereco")cidade = objrs("cidade")estado = objrs("estado")cep = objrs("cep")telefone = objrs("telefone")celular = objrs("celular")'Hostdominio = objrs2("dominio")plano = objrs2("plano")os = objrs2("os")espaco = objrs2("espaco")transferencia = objrs2("transferencia")recursos = objrs2("recursos")addespaco = objrs2("addespaco")addtransferencia = objrs2("addtransferencia")addespacoqtd = objrs2("addespacoqtd")addtransferenciaqtd = objrs2("addtransferenciaqtd")'Financeiroprecoespacoadd = objrs3("precoespacoadd")precotransferenciaadd = objrs3("precotransferenciaadd")estatus = objrs3("status")precoplano = objrs3("precoplano")vencimento = objrs3("vencimento")periodo = objrs3("periodo")banco = objrs3("banco")%>

[Salgado 4]

Essa linha é de qual SELECT? Normalmente esse erro acontece quando o Tipo de dado no campo é diferente do Tipo buscado.

[Slaa 0]

Essa linha é de qual SELECT? Normalmente esse erro acontece quando o Tipo de dado no campo é diferente do Tipo buscado.

Ai que tah eu tenho verificado todos os campos no DB.. e todos estaum lah... escritos direitinho...Se o campo estiver vazio, tem problema?

[Salgado 4]

Não cara, são os tipo de dados! Por exemplo, normalmente os campos com ID no nome são do tipo Autonumérico ou Numero. E nas suas SQLs aparecem com ' (aspas simples) que para os BD's são campos tipo texto.

[Slaa 0]

Não cara, são os tipo de dados! Por exemplo, normalmente os campos com ID no nome são do tipo Autonumérico ou Numero. E nas suas SQLs aparecem com ' (aspas simples) que para os BD's são campos tipo texto.

Como devo colocar entaum para Autonumericos?

[Salgado 4]

Se o campo que estiver em seu SELECT for tipo numérico use sem as '.

[Slaa 0]

Se o campo que estiver em seu SELECT for tipo numérico use sem as '.

Mais problemas.... agora com EOF... soh que jah tentei colocar um mas naum funciona... ele sempre dah como true.... como se naum existisse nada no DB, mas existe!

ADODB.Field error '800a0bcd'Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record./clientes/_conn_selects.asp, line 24

[Salgado 4]

Como está agora o código?

[Slaa 0]

Como está agora o código?

Desculpa, mas eu naum sei o que fiz que deu certo.....Sabe lah em cima no primeiro select?BOm eu soh mudei para memberID = " & memberID & ""e derepente funcionou!Mas eu nem sei como agradecer vcs!Vo colocar o codigo!

<%strloginname = session("loginname")memberID = session("memberID")' SELECT-------------------------------------------------------------------------------strSQL = "SELECT * FROM Members WHERE memberID = " & memberID & ""' Open the Database set objrs=conexao.execute(strsql)'--------------------------------------------------------------------------------------strSQL2 = "SELECT * FROM host WHERE hostID = " & MemberID & ""' Open the Database set objrs2=conexao.execute(strsql2)'--------------------------------------------------------------------------------------strSQL3 = "SELECT * FROM financeiro WHERE financeiroID = " & MemberID & ""' Open the Database set objrs3=conexao.execute(strsql3)'--------------------------------------------------------------------------------------'--------------------------------------------------------------------------------------'Declaração'Memberscodigo = objrs("codigo")loginname = objrs("Loginname") loginpassword = objrs("loginpassword")nome = objrs("nome")email = objrs("email")emailsec = objrs("emailsec")endereco = objrs("endereco")cidade = objrs("cidade")estado = objrs("estado")cep = objrs("cep")telefone = objrs("telefone")celular = objrs("celular")'Hostdominio = objrs2("dominio")plano = objrs2("plano")os = objrs2("os")espaco = objrs2("espaco")transferencia = objrs2("transferencia")recursos = objrs2("recursos")addespaco = objrs2("addespaco")addtransferencia = objrs2("addtransferencia")addespacoqtd = objrs2("addespacoqtd")addtransferenciaqtd = objrs2("addtransferenciaqtd")'Financeiroprecoespacoadd = objrs3("precoespacoadd")precotransferenciaadd = objrs3("precotransferenciaadd")estatus = objrs3("status")precoplano = objrs3("precoplano")vencimento = objrs3("vencimento")periodo = objrs3("periodo")banco = objrs3("banco")%>

[marcelinho 0]

faz assim:

 

<%strloginname = session("loginname")memberID = session("memberID")' SELECT-------------------------------------------------------------------------------strSQL = "SELECT * FROM Members WHERE memberID = " & memberID & ""' Open the Databaseset objrs=conexao.execute(strsql)'--------------------------------------------------------------------------------------strSQL2 = "SELECT * FROM host WHERE hostID = " & MemberID & ""' Open the Databaseset objrs2=conexao.execute(strsql2)'--------------------------------------------------------------------------------------strSQL3 = "SELECT * FROM financeiro WHERE financeiroID = " & MemberID & ""' Open the Databaseset objrs3=conexao.execute(strsql3)'--------------------------------------------------------------------------------------'--------------------------------------------------------------------------------------'Declaração'Membersif not objrs.eof and not objrs.bof thencodigo = objrs("codigo")loginname = objrs("Loginname")loginpassword = objrs("loginpassword")nome = objrs("nome")email = objrs("email")emailsec = objrs("emailsec")endereco = objrs("endereco")cidade = objrs("cidade")estado = objrs("estado")cep = objrs("cep")telefone = objrs("telefone")celular = objrs("celular")end if'Hostif not objrs2.eof and not objrs2.bof thendominio = objrs2("dominio")plano = objrs2("plano")os = objrs2("os")espaco = objrs2("espaco")transferencia = objrs2("transferencia")recursos = objrs2("recursos")addespaco = objrs2("addespaco")addtransferencia = objrs2("addtransferencia")addespacoqtd = objrs2("addespacoqtd")addtransferenciaqtd = objrs2("addtransferenciaqtd")end if'Financeiroif not objrs3.eof and not objrs3.bof thenprecoespacoadd = objrs3("precoespacoadd")precotransferenciaadd = objrs3("precotransferenciaadd")estatus = objrs3("status")precoplano = objrs3("precoplano")vencimento = objrs3("vencimento")periodo = objrs3("periodo")banco = objrs3("banco")end if%>

testa ae

[Slaa 0]

OK, mas surgiu mais um problema....

Microsoft JET Database Engine error '80040e14'Syntax error in FROM clause./clientes/_conn.asp, line 28

Eu adicionei o seguinte select....veja o codigo todo:

<%' Open Databasecaminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))' Crio o objeto de conexao ADO	Set conexao = Server.CreateObject("ADODB.Connection")	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"001.mdb"' Abro a conexão	conexao.open	strloginname = session("loginname")memberID = session("memberID")' SELECT-------------------------------------------------------------------------------strSQL = "SELECT * FROM Members WHERE memberID = " & memberID & ""' Open the Database	set objrs=conexao.execute(strsql)'--------------------------------------------------------------------------------------strSQL2 = "SELECT * FROM host WHERE hostID = " & MemberID & ""' Open the Database	set objrs2=conexao.execute(strsql2)'--------------------------------------------------------------------------------------strSQL3 = "SELECT * FROM financeiro WHERE financeiroID = " & MemberID & ""' Open the Database	set objrs3=conexao.execute(strsql3)'--------------------------------------------------------------------------------------strSQL4 = "SELECT * FROM Members a, financeiro b, host c, WHERE a.memberID=b.financeiroID=c.hostID ORDER BY a.memberiID"	set objrs4=conexao.execute(strsql4)	'--------------------------------------------------------------------------------------'Declaração'Memberscodigo  = objrs("codigo")loginname = objrs("Loginname") loginpassword = objrs("loginpassword")nome = objrs("nome")email = objrs("email")emailsec = objrs("emailsec")endereco = objrs("endereco")cidade = objrs("cidade")estado = objrs("estado")cep = objrs("cep")telefone = objrs("telefone")celular = objrs("celular")'Hostdominio = objrs2("dominio")plano = objrs2("plano")os = objrs2("os")espaco = objrs2("espaco")transferencia = objrs2("transferencia")recursos = objrs2("recursos")addespaco = objrs2("addespaco")addtransferencia = objrs2("addtransferencia")addespacoqtd = objrs2("addespacoqtd")addtransferenciaqtd = objrs2("addtransferenciaqtd")'Financeiroprecoespacoadd = objrs3("precoespacoadd")precotransferenciaadd = objrs3("precotransferenciaadd")estatus = objrs3("status")precoplano = objrs3("precoplano")vencimento = objrs3("vencimento")periodo = objrs3("periodo")banco = objrs3("banco")'AdminmemberID_admin = objrs4("memberID")codigo_admin  = objrs4("codigo")loginname_admin = objrs4("Loginname") nome_admin = objrs4("nome")email_admin = objrs4("email")dominio_admin = objrs4("dominio")estatus_admin = objrs4("status")precoplano_admin = objrs4("precoplano")vencimento_admin = objrs4("vencimento")%>

Ajude PLZ! PS: coloquei o negócio que você pediu, mas tah funcionando do mesmo jeito sem... afinal eh melhor deixar ou retirar?

[Salgado 4]

Deixa sem

[Slaa 0]

Deixa sem

OK, mas tem algo errado nesta expressão:

strSQL4 = "SELECT * FROM Members a, financeiro b, host c, WHERE a.memberID=b.financeiroID=c.hostID ORDER BY a.memberID"	set objrs4=conexao.execute(strsql4)

ERRO:

Microsoft JET Database Engine error '80040e14'Syntax error in FROM clause./clientes/_conn.asp, line 28

[Slaa 0]

Ele fica mostrando sempre o mesmo usuario repetidas vezes.... eis o select:

 

strSQL4 = "SELECT * FROM Members a, financeiro b, host c WHERE a.memberID=b.financeiroID AND a.memberID=c.hostID ORDER BY a.memberID"	set objrs4=conexao.execute(strsql4)

e os declarados:

 

if not objrs4.eof and not objrs4.bof thenmemberID_admin = objrs4("memberID")codigo_admin  = objrs4("codigo")loginname_admin = objrs4("Loginname") nome_admin = objrs4("nome")email_admin = objrs4("email")dominio_admin = objrs4("dominio")estatus_admin = objrs4("status")precoplano_admin = objrs4("precoplano")vencimento_admin = objrs4("vencimento")end if

[Mário Monteiro 179]

onde voce exibe os valores???

[Slaa 0]

onde voce exibe os valores???

Como assim? EU mostro eles em uma tabela no codigo abaixo:

<%DO WHILE NOT objrs4.EOF%> <tr>				<td width="5%">Cod.</td>				<td width="2%"> </td>				<td width="3%"><span style="font-weight: bold">User:</span></td>				<td width="25%" bgcolor="#EFEFEF"><%=loginname_admin%></td>				<td width="10%"><span style="font-weight: bold">e-mail:</span></td>				<td width="25%" bgcolor="#EFEFEF"><%=email_admin%></td>				<td width="10%"><span style="font-weight: bold">Status:</span></td>				<td width="20%" bgcolor="#EFEFEF"><% if estatus_admin = "OK" then%> <font color=green><%=estatus_admin%></font>				<% else %><font color=red><%=estatus_admin%><%end if%></font></td>			  </tr><%objrs4.MoveNextLoopend if%>

[Mário Monteiro 179]

mas isto tem de estar dentro do LAÇO tambemmemberID_admin = objrs4("memberID")codigo_admin = objrs4("codigo")loginname_admin = objrs4("Loginname") nome_admin = objrs4("nome")email_admin = objrs4("email")dominio_admin = objrs4("dominio")estatus_admin = objrs4("status")precoplano_admin = objrs4("precoplano")vencimento_admin = objrs4("vencimento")isto não apareceu ali. está ou nao???

[Slaa 0]

Alguém?

 

Tentei simplificar o Select, mas descobri que o problema naum eh o select....

 

Ele co0ntinua mostrando soh 6x (tem 6 dados no DB) o mesmo usuario!

 

o que esta errado?

 

CODIGO:

<%response.expires = "0"if session("memberID") <> "1" thenresponse.redirect("http://www.hv.com/clientes/central.asp")else%> <!-- #include file="connexao.asp" --><!-- #include file="_titulo.asp" --><table width="780" border="0" cellpadding="0" cellspacing="0">  <tr> 	<td width="144" valign="top"> 	  <!-- #include file="_menu.asp" -->	   </td>	<td width="626" valign="top"> 	 <table width="636" border="0" cellpadding="0" cellspacing="0">	  <tr>		<th height="20" background="http://www.hv.com/imgs/menucentro.jpg" scope="col"><span>Administração de Usuários</span></th>	  </tr>	  <tr>		<td background="http://www.hv.com/imgs/menucentro_3_barras.jpg" scope="row"><table width="636" border="0" cellspacing="0" cellpadding="2">			<tr>			  <th height="20" background="http://www.hv.com/imgs/menucentro_3_subtitulo.jpg" scope="col">Administrador</th>			</tr>		  </table>			<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">			  <tr>				<td colspan="8"><span style="font-weight: bold"><%=nome%></span> | IP: <b><%= request.servervariables("REMOTE_ADDR")%>					<% if loginname= "Admin" then%>| <a href="#" onClick="java script:window.open('http://www.hv.com/clientes/_admin.asp','popup','width=800, height=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, directories=no, status=no')">Admin</a>  | <a href="#" onClick="java script:window.open('http://www.hv.com/livesupport/chat/admin/login.asp','popup','width=800, height=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, directories=no, status=no')">Chat </a><%end if%>				</b></td>			  </tr><%DO WHILE NOT objrs4.EOF%> <tr>				<td width="5%">Cod.</td>				<td width="2%"> </td>				<td width="3%"><span style="font-weight: bold">User:</span></td>				<td width="25%" bgcolor="#EFEFEF"><%=loginname_admin%></td>				<td width="10%"><span style="font-weight: bold">e-mail:</span></td>				<td width="25%" bgcolor="#EFEFEF"><%=email_admin%></td>				<td width="10%"><span style="font-weight: bold">Status:</span></td>				<td width="20%" bgcolor="#EFEFEF"><% if estatus_admin = "OK" then%> <font color=green><%=estatus_admin%></font>				<% else %><font color=red><%=estatus_admin%><%end if%></font></td>			  </tr><%objrs4.MoveNextLoopend if%>			</table> 		  </td>	  </tr>	</table></td>  </tr></table>

Nao eu coloquei no arquivo de connexao.asp