1 reply to this topic

[smarcon]

Olá pessoal, estou necessitando de ajuda, pois não consigo ver erro algum neste código, e isto já faz umas 4,5 horas, tô ficando loucão...

O erro foi este:

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/cadastro.asp, line 17, column 74
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

O codigo de cadastro é:

<%
Session.LCID = 1046

Function DataInvertida(data)
    dia=day(Data)
    mes=month(Data)
    ano=year(Data)
    DataInvertida=mes&"/"&dia&"/"&ano
End Function

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Codigo = Request.Form("Codigo_cliente")
Nome = Request.Form("Nome_cliente")
Telefone = Request.Form("Telefone")
Data = Datainvertida(Request.Form("Data"))
Obs = Request.Form("Obs")


Conexao.Execute "insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('" & Codigo & "','" & Nome & "','" & Telefone & "',#" & Data & "#,'" & Obs & "')"

Conexao.Close
Set Conexao = Nothing
%>

O código de consulta é:

<%

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

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
%>

Se algum de você conseguirem identificar o erro, por favor me notifiquem.

Agradecido,

Sandrão

[Bob]

Veja se dá certo, troquei o modo de consulta:

<%
Session.LCID = 1046

Function DataInvertida(data)
    dia=day(Data)
    mes=month(Data)
    ano=year(Data)
    DataInvertida=mes&"/"&dia&"/"&ano
End Function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("meu_banco.mdb")&";"

Set rs = Server.CreateObject ("ADODB.RecordSet")

Codigo = Request.Form("Codigo_cliente")
Nome = Request.Form("Nome_cliente")
Telefone = Request.Form("Telefone")
Data = Datainvertida(Request.Form("Data"))
Obs = Request.Form("Obs")


SQL = "insert into Clientes" &_
      "(Codigo_cliente,Nome,Telefone,Data_cadastramento,Obs)" &_
   "values" &_
   "('" & Codigo & "' , '" & Nome & "' , '" & Telefone & "' , '" & Data & "' , '" & Obs & "')"
  
rs.open SQL , Conn

rs.Close
Conn.Close
Set rs   = Nothing
Set Conn = Nothing
%>

<%
SQL2 = " SELECT * FROM Clientes order by Nome"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("meu_banco.mdb")&";"

Set rs_max = Server.CreateObject ("ADODB.RecordSet")

'rs_max.CursorType = adOpenKeyset

rs_max.Open SQL2, Conn

%>
<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
Conn.Close
Set rs_max   = Nothing
Set Conn = Nothing
%>