PAGINA ASP NAO INSERE OS DADOS NO BANCO ACCESS
Boa tarde pessoal e gostaria da ajuda d voces.
estou fazendo um sistema de chamados bem simples com uma banco de dados access.
eles ja le os dados das tabelas mas quando eu vou inserir novos registros ele não insere...
Ja copiei o sql e coloquei direto no access e rodou numa boa.
estou enviando o codigo para vocês darem uma olhada
----Arquivo de funções-----
Sub abreConn()
Set conn = Server.CreateObject([Ô]ADODB.Connection[Ô])
strCaminho = Server.MapPath([Ô]includes/dados/Atendimento.mdb[Ô])
Conn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & strCaminho & [Ô];[Ô]
End Sub
---- na pagina que recebe os dados pos post ---------
call abreconn
SQL = [Ô]SELECT * from atendimento where codigo = [Ô] & Atendimento & [Ô];[Ô]
Set rsAtendimento = Server.CreateObject([Ô]ADODB.Recordset[Ô])[ô]
set rsAtendimento = Conn.Execute(SQL)
if rsAtendimento.eof then [ô]VERIFICA SE é UM NOVO ATENDIMENTO OU SE é UMA MODIFICAÇÃO.
SQL=[Ô]INSERT INTO atendimento (operadora, empresa, uf, contato, telefone, defeito, equipamento, data_abertura, descrição, solução, suporte, rma_status,numero_equipamento, status)[Ô] VALUES([ô][Ô]&Operadora&[Ô][ô],[ô][Ô]&Contratada&[Ô][ô],[ô][Ô]&Estado&[Ô][ô],[ô][Ô]&Contato&[Ô][ô],[ô][Ô]&Telefone&[Ô][ô],[ô][Ô]&Defeito&[Ô][ô],[ô][Ô]&Equipamento&[Ô][ô],[ô][Ô]&Abertura&[Ô][ô],[ô][Ô]&Descricao&[Ô][ô],[ô][Ô]&Solucao&[Ô][ô],[ô][Ô]&Suporte&[Ô][ô],[ô]0[ô],[ô][Ô]&nSerie&[Ô][ô],[ô][Ô]&Status&[Ô][ô]);[Ô]
else
response.write([Ô]Upadate na tabela[Ô])
end if
Set rsNovo = Server.CreateObject([Ô]ADODB.Recordset[Ô])
set rsNovo = Conn.Execute(SQL)
estou fazendo um sistema de chamados bem simples com uma banco de dados access.
eles ja le os dados das tabelas mas quando eu vou inserir novos registros ele não insere...
Ja copiei o sql e coloquei direto no access e rodou numa boa.
estou enviando o codigo para vocês darem uma olhada
----Arquivo de funções-----
Sub abreConn()
Set conn = Server.CreateObject([Ô]ADODB.Connection[Ô])
strCaminho = Server.MapPath([Ô]includes/dados/Atendimento.mdb[Ô])
Conn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & strCaminho & [Ô];[Ô]
End Sub
---- na pagina que recebe os dados pos post ---------
call abreconn
SQL = [Ô]SELECT * from atendimento where codigo = [Ô] & Atendimento & [Ô];[Ô]
Set rsAtendimento = Server.CreateObject([Ô]ADODB.Recordset[Ô])[ô]
set rsAtendimento = Conn.Execute(SQL)
if rsAtendimento.eof then [ô]VERIFICA SE é UM NOVO ATENDIMENTO OU SE é UMA MODIFICAÇÃO.
SQL=[Ô]INSERT INTO atendimento (operadora, empresa, uf, contato, telefone, defeito, equipamento, data_abertura, descrição, solução, suporte, rma_status,numero_equipamento, status)[Ô] VALUES([ô][Ô]&Operadora&[Ô][ô],[ô][Ô]&Contratada&[Ô][ô],[ô][Ô]&Estado&[Ô][ô],[ô][Ô]&Contato&[Ô][ô],[ô][Ô]&Telefone&[Ô][ô],[ô][Ô]&Defeito&[Ô][ô],[ô][Ô]&Equipamento&[Ô][ô],[ô][Ô]&Abertura&[Ô][ô],[ô][Ô]&Descricao&[Ô][ô],[ô][Ô]&Solucao&[Ô][ô],[ô][Ô]&Suporte&[Ô][ô],[ô]0[ô],[ô][Ô]&nSerie&[Ô][ô],[ô][Ô]&Status&[Ô][ô]);[Ô]
else
response.write([Ô]Upadate na tabela[Ô])
end if
Set rsNovo = Server.CreateObject([Ô]ADODB.Recordset[Ô])
set rsNovo = Conn.Execute(SQL)
Arrumei..
eram as permissões do iis..
obrigado
eram as permissões do iis..
obrigado
Tópico encerrado , respostas não são mais permitidas