Cadastro

[Guest Eliel Gilberto]

E aí pessoal,

gostaria se possivel que alguém me explicasse o seguinte:

estou montando um cadastro no bd MS ACESS, com os seguintes arquivos formulario. htm, cadastro.asp e consulta.asp.

Funciona normalmente no PWS os cadastros atraves do formulario aparecendo no bd e retornando response.write cadastro efetuado.

Acontece quando vou fazer a consulta ela dá este erro.

Microsoft JET Database Engine error '80040e10'

Não foi fornecido um valor para um ou mais dos parâmetros exigidos

/consulta.asp, line 14

o cód é este:

<%

'Agora vamos criar a conexão com o banco de dados.

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

conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\_private\SNB.mdb"

Conexao.Open

Set RS_Max = Server.CreateObject("ADODB.Recordset")

RS_Max.CursorType = adOpenKeyset

RS_Max.Open "SELECT * FROM Clientes order by Nome", Conexao

%>

<table border="0" width="100%">

<tr>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Cód_Cliente</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Nome</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Telefone</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Data</font></td>

</tr>

</table>

<%

'

do while not Rs_max.eof

%>

<table border="0" width="100%">

<tr>

<td width="25%"><font size="2" face="Verdana"><%=rs_max("Codigo_cliente")%></font></td>

<td width="25%"><font size="2" face="Verdana"><%=rs_max("Nome")%></font></td>

<td width="25%"><font size="2" face="Verdana"><%=rs_max("Telefone")%></font></td>

<td width="25%"><font size="2" face="Verdana"><%=rs_max("Data_cadastramento")%></font></td>

</tr>

</table>

<%

rs_max.movenext

loop

Rs_max.close

Conexao.Close

Set Conexao = Nothing

%>

[Guest Guest]

cara,

usa o ADO é melhor

[Guest Decio]

Tenta abrir a conexão com a string abaixo , só pra ver se funciona...

Conexao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _

"DBQ="& ("c:\inetpub\wwwroot\_private\SNB.mdb")

outra coisa:

eu faria assim para mostrar os dados:

<%

do while not Rs_max.eof

Response.Write "<table border='0' width='100%'>"

Response.Write "<tr>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max(codigo_cliente") & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Nome")" & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Telefone") & "></font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Data_cadastramento") & "</font></td>"

Response.Write "</tr></table>"

rs_max.movenext

loop

%>

[Guest Eliel Gilberto]

Tenta abrir a conexão com a string abaixo , só pra ver se funciona...

Conexao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _

"DBQ="& ("c:\inetpub\wwwroot\_private\SNB.mdb")

outra coisa:

eu faria assim para mostrar os dados:

<%

do while not Rs_max.eof

Response.Write "<table border='0' width='100%'>"

Response.Write "<tr>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max(codigo_cliente") & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Nome")" & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Telefone") & "></font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Data_cadastramento") & "</font></td>"

Response.Write "</tr></table>"

rs_max.movenext

loop

%>

Waleu cara,

Mudei conforme falou.

<%

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

Conexao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _

"DBQ="& ("inetpub\wwwroot\_private\CTC.mdb")

conexao.open

Set RS_Max = Server.CreateObject("ADODB.Recordset")

RS_Max.CursorType = adOpenKeyset

RS_Max.Open "Select * from funcionarios order by Nome", Conexao

%>

<table border="0" width="100%">

<tr>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Nome_pretendente</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Email</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Telefone</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Data_cadastramento</font></td>

<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Mensagem</font></td>

</tr>

</table>

<%

do while not Rs_max.eof

Response.Write "<table border='0' width='100%'>"

Response.Write "<tr>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Nome_pretendente") & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Email") & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Telefone") & "></font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Data_cadastramento") & "</font></td>"

Response.Write "<td width='25%'><font size='2' face='Verdana'>" & rs_max("Mensagem") & "</font></td>"

Response.Write "</tr></table>"

rs_max.movenext

loop

Rs_max.close

Conexao.Close

Set Conexao = Nothing

%>

ocorre isto:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC para Microsoft Access] Seqüência de agrupamento selecionada não suportada pelo sistema operacional.

/consulta.asp, line 16

Pode me informar o que acontece?

Obrigado!

[Guest Decio]

Se for possível, crie um banco de dados com os mesmos campos e envie para mim para este e-mail : deciohp@yahoo.com.br , ai eu testo na minha máquina que fica mais facil ver o que esta acontecendo.