Cleber

[caleixo]

Galera preciso urgentemente saber o que está errado nesse código. Se puderem ajudar...

Valeu

<%
vn=request.form("nome")
vm=request.form("email")
ve=request.form("endereco")
vz=request.form("cep")
vu=request.form("estado")
vc=request.form("cidade")
vt=request.form("telefone")
vs=request.form("sexo")
vp=request.form("photoshop")
vd=request.form("coreldraw")
vf=request.form("flash")
vw=request.form("fireworks")
vh=request.form("freehand")
vl=request.form("illustrator")
vi=request.form("finalidade")
%>

<%
set Rec = Server.CreateObject("ADODB.Recordset")
Rec.ActiveConnection = "dsn=Cadastro;"
Rec.Source = "SELECT * FROM Cadastro"
Rec.CursorType = 0
Rec.LockType = 3
Rec.Open
%>

<%
rec.addnew
rec.fields("Nome")=vn
rec.fields("Email")=vm
rec.fields("Endereco")=ve
rec.fields("cep")=vz
rec.fields("Estado")=vu
rec.fields("Cidade")=vc
rec.fields("Telefone")=vt
rec.fields("Sexo")=vs
rec.fields("Photoshop")=vp
rec.fields("Coreldraw")=vd
rec.fields("Flash")=vf
rec.fields("Fireworks")=vw
rec.fields("Freehand")=vh
rec.fields("Illustrator")=vl
rec.fields("Finalidade")=vi
rec.update
rec.close
%>

[bareta]

que erro q dá???? o q acontece?

[fertel]

é kd o erro? Eu não costumo adicionar registros assim não. Só uso desta forma para editar. Mas põe o erro ora

[dark0]

Ixe

Brother, seja mais objetivo na sua duvida!

No tópico procure colocar uma descrição da duvida, e na mensagem, coloque a duvida completa, desde o erro até o codigo!

Abraços

[caleixo]

Galera, a mensagem que apareçe é a seguinte:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] O mecanismo de banco de dados Microsoft Jet não pode abrir o arquivo '(desconhecido)'. Ele já foi aberto em modo exclusivo por outro usuário ou você precisa de permissão para exibir seus dados.

/asp/cad.asp, line 21

[dark0]

Brow, porque você ta usando DSN pra conectar ao banco?

TIpo.. uma conexao simples:

url_conexao = Server.MapPath("banco.mdb")

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

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

porque o problema aí, parece que seu codigo não está encontrando seu banco de dados..

[caleixo]

vou tentar isso aí, valeu!

[dark0]

<%

vn=request.form("nome")

vm=request.form("email")

ve=request.form("endereco")

vz=request.form("cep")

vu=request.form("estado")

vc=request.form("cidade")

vt=request.form("telefone")

vs=request.form("sexo")

vp=request.form("photoshop")

vd=request.form("coreldraw")

vf=request.form("flash")

vw=request.form("fireworks")

vh=request.form("freehand")

vl=request.form("illustrator")

vi=request.form("finalidade")

url_conexao = Server.MapPath("cadastro.mdb")

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

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

sql = "insert into cadastro (nome, email, endereco, cep, estado, cidade, telefone, sexo, photoshop, coreldraw, flash, fireworks, freehand, illustrator, finalidade) values('"&vn&"', '"&vm&"', '"&ve&"', '"&vz&"', '"&vu&"', '"&vc&"', '"&vt&"', '"&vs&"', '"&vp&"', '"&vd&"', '"&vf&"', '"&vw&"', '"&vh&"', '"&vl&"', '"&vi&"')"

conexao.execute(sql)

Response.write "Dados inseridos no banco com sucesso!"

%>

Fiz agora aqui.

Mechi em vermelho ali.

não testei, e não sei o caminho do seu banco de dados, nem o tipo de dado dos seus campos, então, pode ser que dê erros

T+

[caleixo]

não tá faltando nada aqui?:

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

[caleixo]

Cara eu to usando BD do Access.

E a resposta é um HTML que vem no final do ASP...

[dark0]

Cara eu to usando BD do Access.

E a resposta é um HTML que vem no final do ASP...

sim, eu sei que é access..

O que aconteceu quando você rodou aquele codigo que eu postei?

[caleixo]

Primeiro ele deu um erro dizendo que o códico não estava finalizado. Depois tentei de novo e ele deu o mesmo erro. Porém que na linha 22, que foi a que eu mandei perguntando se não faltava nada...

[caleixo]

Coloquei o último que você postou e deu o seguinte erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xae4 Thread 0xc18 DBC 0x109ad8c Jet' do Registro.

/asp/cad.asp, line 21

[dark0]

é isso aí

Bem o que eu falei naquele post!

você leu?

não testei, e não sei o caminho do seu banco de dados, nem o tipo de dado dos seus campos, então, pode ser que dê erros

Ou seja:

Veja o caminho do seu banco de dados, e altere no codigo!

Sabe em que parte daquele codigo tá o caminho do banco?

[caleixo]

Sei. Valeu vou continuar tentando...

[dark0]

Brother, olha só.

você postou um code aí.

Ele provavelmente não estava funcionando, por causa de sua conexao com o banco. você estava usando DSN.

Certo?

então, como eu nunca usei DSN, e também nunca usei aquele modo de inserir dados, eu re-fiz todo seu codigo, e mudei a conexao, e o modo de INSERT.

Fiz ele do meu jeito. Mas, como citei anteriormente, eu não sei sua estrutura de codigos, de banco de dados, de pastas.

Então, eu coloquei o codigo, para apontar para o banco, se ele estivesse na mesma pasta de onde estao os codigos.

Se não funcionar, olhe onde você colocou o banco de dados, veja se o local dele é alguma pasta onde você pode acessar usando o map path, ou se o local dele você só pode acessar usando o caminho físico.

Enfim, para o codigo que eu postei, sub-entende-se que o banco esteja na mesma pasta dos codigos!

Coloque ele lá e teste.

Se ainda assim der erro, poste aí o erro!

Pois, aquele codigo eu fiz aqui na hora, e não testei.

T+