[Resolvido] Sistema em asp e banco de dados access

[reinaldo polato 1]

e ai galera beleza

 

está dando erro na linha

 

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

 

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

 

/sistema/cadastrar cliente/confirmar_vendas_do_vendedor.asp, linha 36

 

 

<%

'Recebendo parametros

CodCliente=Request.Form("CodCliente")
RazaoSocial=Request.Form("RazaoSocial")
Fantasia=Request.Form("Fantasia")
CNPJ=Request.Form("CNPJ")
IE=Request.Form("IE")
Tipo=Request.Form("Tipo")
Potencial=Request.Form("Potencial")
Endereco=Request.Form("Endereco")
Complemento=Request.Form("Complemento")
Bairro=Request.Form("Bairro")
Municipio=Request.Form("Municipio")
Cep=Request.Form("Cep")
Estado=Request.Form("Estado")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
HomePage=Request.Form("HomePage")
Cobranca=Request.Form("Cobranca")
Correio=Request.Form("Correio")
Anotacoes=Request.Form("Anotacoes")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\cadastrar cliente\db_vendedor.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("RazaoSocial")= Request("RazaoSocial")
objrecordset.Fields("Fantasia")= Request("Fantasia")
objrecordset.Fields("CNPJ")= Request("CNPJ")
objrecordset.Fields("IE")= Request("IE")
objrecordset.Fields("Tipo")= Request("Tipo")
objrecordset.Fields("Potencial")=Request("Potencial")
objrecordset.Fields("Endereco")= Request("Endereco")
objrecordset.fields("Complemento")= Request("Complemento")
objrecordset.Fields("Bairro")= Request("Bairro")
objrecordset.Fields("Municipio")= Request("Municipio")
objrecordset.Fields("Cep")= Request("Cep")
objrecordset.Fields("Estado")= Request("Estado")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("HomePage")= Request("HomePage")
objrecordset.Fields("Cobranca")= Request("Cobranca")
objrecordset.Fields("Correio")= Request("Correio")
objrecordset.Fields("Anotacoes")= Request("Anotacoes")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & CodCliente

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="green"><font color="white">CodCliente</td>
<td bgcolor="white"><%Response.Write(CodCliente)%></td>
</tr>
<tr>	
<td bgcolor="green"><font color="white">RazaoSocial</td>
<td bgcolor="white"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Fantasia</td>
<td bgcolor="white"><%Response.Write(Fantasia)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">CNPJ</td>
<td bgcolor="white"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">IE</td>
<td bgcolor="white"><%Response.Write(IE)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Tipo</td>
<td bgcolor="white"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Potencial</td>
<td bgcolor="white"><%Response.Write(Potencial)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Endereco</td>
<td bgcolor="white"><%Response.Write(Endereco)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Complemento</td>
<td bgcolor="white"><%Response.Write(Complemento)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Bairro</td>
<td bgcolor="white"><%Response.Write(Bairro)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Municipio</td>
<td bgcolor="white"><%Response.Write(Municipio)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Cep</td>
<td bgcolor="white"><%Response.Write(Cep)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Estado</td>
<td bgcolor="white"><%Response.Write(Estado)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Telefone</td>
<td bgcolor="white"><%Response.Write(Telefone)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">Celular</td>
<td bgcolor="white"><%Response.Write(Celular)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">HomePage</td>
<td bgcolor="white"><%Response.Write(HomePage)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Cobranca</td>
<td bgcolor="white"><%Response.Write(Cobranca)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Correio</td>
<td bgcolor="white"><%Response.Write(Correio)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Anotacoes</td>
<td bgcolor="white"><%Response.Write(Anotacoes)%></td>
</tr>
<tr>
</table>
<form  name="btn1" method="Post" action="consulta_vendedor.asp">
<input type="Submit" name="frm4" value="Consulta >>>">
</form>

 

alguem sabe como eu faço pra arrumar esse erro

[Vinicius Ianni 189]

O Caminho para o banco de dados está correto ?

As pastas estão com as devidas permisões?

[reinaldo polato 1]

estão tudo correto o banco de dados está no c:\sistema\cadastrar cliente\db_vendedor.mdb" está nessas pasta essa conexao do banco de dados está problema qual outra eu conexao eu posso usar strconexao="DBQ=c:\sistema\cadastrar cliente\db_vendedor.mdb"strdriver="Driver={Microsoft Access Driver (*.mdb)}" essa está com erro está certa essa conexao ou temque usar outra

[xanburzum 169]

Verifique se as permissões estão corretas,se estiver confira se o driver esta instalado, olha um

exemplo

[reinaldo polato 1]

Deu certo eu fiz criei o banco de dados de novo e deu certo valeu pela ajuda galera