Erro de conexão com o banco de dados em acess

[Bruno Golder 0]

Olá pessoal,

 

Sou novo aqui no forum e gostaria de pedir a ajuda de vocês, imagino estar levantando uma discurção antiga de como devo corrigir esse erro, meu interesse é monstar um banco de dados para usar com html ou asp, mas como não to conseguindo encontrar o erro, queria a ajuda de alguem.

 

Encontrei esse codigo teste em um forum visitado, já li vários mas ainda não consegui encontrar o erro...

 

Esse é o código que estou testando, estou utilizando o dreamwaver para manipula-lo.

 

 

<%Session.LCID = 1046Function DataInvertida(data)	data=day(Data)	mes=month(Data)	ano=year(Data)	DataInvertida=mes&"/"&dia&"/"&anoend Function  Set conexao = Server.CreateObject("ADODB.Connection")conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0";Data Source ="c:\Inetpub\wwwroot\meubanco.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.CloseSet Conexao = Nothing%>

Ao testar a pagina "formulario.htm", quando é feito o envio ao banco, aparece esse erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/cadastro.asp, line 12, column 62

conexao.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0";

 

Gostaria da ajuda de todos, desde jah agradeço.

 

Bruno Golder. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ted k' 126]

faltou o ";" e a conexão coloque na mesma linha:

 

conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="c:\Inetpub\wwwroot\meubanco.mdb;"

[Helder Santana 0]

substitua isso

"Provider=Microsoft.Jet.OLEDB.4.0";Data Source ="c:\Inetpub\wwwroot\meubanco.mdb"

 

por isso

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb;"

 

só feche as aspas depois da sua definição, ou na utilização de uma variável com concatenação, e o ; também igual ted k disse

 

abraço :lol:

[Bruno Golder 0]

Fiz como você disse, agora o erro é mais embaixo...

 

Tipo de erro:

ADODB.Connection (0x800A0E78)

Operação não permitida quando o objeto está fechado.

/cadastro.asp, line 19

 

a linha 19 é essa:

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

Podes me ajudar?

 

Abraços

[Helder Santana 0]

tente tirar os #

[Ted k' 126]

o Codigo_cliente é seu código de auto numeração?

[Bruno Golder 0]

Não é auto numeração, e nem possui chave primaria.Tirei os "#", mas o erro continua...ADODB.Connection (0x800A0E78)Operação não permitida quando o objeto está fechado./cadastro.asp, line 19To pirando daqui a pouco.Agradeço a ajuda.

[Ted k' 126]

você só fez a conexão mais você nem abriu ela

[Bruno Golder 0]

você só fez a conexão mais você nem abriu ela

Onde ela deveria ser aberta???

<%Session.LCID = 1046Function DataInvertida(data)	data=day(Data)	mes=month(Data)	ano=year(Data)	DataInvertida=mes&"/"&dia&"/"&anoend Function  Set conexao = Server.CreateObject("ADODB.Connection")conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb"Codigo = Request.Form("Codigo_cliente")Nome = Request.Form("Nome_cliente")Telefone = Request.Form("Telefone")Data = Datainvertida(Request.Form("Data"))Obs = Request.Form("Obs")[color="#FF0000"]Conexao.Execute "insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('" & Codigo & "','" & Nome & "','" & Telefone & "'," & Data & ",'" & Obs & "')"[/color]Conexao.CloseSet Conexao = Nothing%>

O erro está apresentado na linha 19 que esta marcado em vermelho, se você descobrir o erro, me ajude, Valeu!

[Custellinha 0]

trocaconexao.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb"paraconexao.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb"

[Ted k' 126]

tetan æ:

 

ASP

<%

Session.LCID = 1046

 

Function DataInvertida(data)

data=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:Inetpubwwwrootmeubanco.mdb"

objbanco.open conexao

Codigo = Request.Form("Codigo_cliente")

Nome = Request.Form("Nome_cliente")

Telefone = Request.Form("Telefone")

Data = Datainvertida(Request.Form("Data"))

Obs = Request.Form("Obs")

 

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

objbanco.Close

Set objbanco = Nothing

%>

[Mário Monteiro 179]

falta o Conexao.Open antes do Conexao.Execute

[Bruno Golder 0]

falta o Conexao.Open antes do Conexao.Execute

Tipo de erro:ADODB.Connection (0x800A0E78)Operação não permitida quando o objeto está fechado./cadastro.asp, line 19Fiz as alterações sugeridas, mas ainda persiste o erro...

<%Session.LCID = 1046Function DataInvertida(data)	data=day(Data)	mes=month(Data)	ano=year(Data)	DataInvertida=mes&"/"&dia&"/"&anoend Function  Set conexao = Server.CreateObject("ADODB.Connection")conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb"objbanco.open conexaoCodigo = Request.Form("Codigo_cliente")Nome = Request.Form("Nome_cliente")Telefone = Request.Form("Telefone")Data = Datainvertida(Request.Form("Data"))Obs = Request.Form("Obs")objbanco.Execute "insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('" & Codigo & "','" & Nome & "','" & Telefone & "'," & Data & ",'" & Obs & "')"objbanco.CloseSet objbanco = Nothing%>

[Ted k' 126]

teste isso æ:

 

ASP

<%@LANGUAGE="VBSCRIPT"%>

<%

Session.LCID = 1046

 

caminho=server.mappath("meubanco.mdb")

conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"

set objbanco=server.createobject("adodb.connection")

objbanco.open conexao

 

Dim Codigo, Nome, Telefone, Data, Obs

 

Codigo = Request.Form("Codigo_cliente")

Nome = Request.Form("Nome_cliente")

Telefone = Request.Form("Telefone")

Obs = Request.Form("Obs")

Data = Month(Request.Form("Data"))&"/"&Day(Request.Form("Data"))&"/"&Year(Request.Form("Data"))

 

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

 

Response.Write("Cadastrado com Sucesso!")

 

objbanco.Close

Set objbanco = Nothing

%>

[Bruno Golder 0]

teste isso æ:

 

ASP

<%@LANGUAGE="VBSCRIPT"%>

<%

Session.LCID = 1046

 

caminho=server.mappath("meubanco.mdb")

conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"

set objbanco=server.createobject("adodb.connection")

objbanco.open conexao

 

Dim Codigo, Nome, Telefone, Data, Obs

 

Codigo = Request.Form("Codigo_cliente")

Nome = Request.Form("Nome_cliente")

Telefone = Request.Form("Telefone")

Obs = Request.Form("Obs")

Data = Month(Request.Form("Data"))&"/"&Day(Request.Form("Data"))&"/"&Year(Request.Form("Data"))

 

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

 

Response.Write("Cadastrado com Sucesso!")

 

objbanco.Close

Set objbanco = Nothing

%>

Testei o código apareceu um novo erro...

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'objbanco'

/cadastro.asp, line 13

 

*linha 13: Nome = Request.Form("Nome_cliente")

 

O que você propõe?

[Custellinha 0]

bota isso:

 

<%Session.LCID = 1046Function DataInvertida(data)data=day(Data)mes=month(Data)ano=year(Data)DataInvertida=mes&"/"&dia&"/"&anoend FunctionSet conexao = Server.CreateObject("ADODB.Connection")conexao.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\meubanco.mdb"Dim Codigo, Nome, Telefone, Data, ObsCodigo = Request.Form("Codigo_cliente")Nome = Request.Form("Nome_cliente")Telefone = Request.Form("Telefone")Obs = Request.Form("Obs")Data = Month(Request.Form("Data"))&"/"&Day(Request.Form("Data"))&"/"&Year(Request.Form("Data"))Conexao.Execute("insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('"&Codigo&"','"&Nome&"','"&Telefone&"','"&Data&"','"&Obs&"')")Conexao.close()%>

[Bruno Golder 0]

Custellinha,tentei executar a sua sugestão, mas apareceu esse novo erro...Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável./cadastro.asp, line 18Imaginas como pode ser resolvido isso.

[Custellinha 0]

é o IIS!testa jogando num servidor...qualquer coisa posta ai!