erro asp access

[gspereira 0]

alguém poderia me dizer o que ha de errado? obrigada!!!!!!!

 

ERRO:

Provider erreur '80004005'

Erreur non spécifiée

/40.asp, ligne 8

 

CODIGO:

<!--#include file="../Connections/pesquisa_con.asp" -->
<%
set Recordset = Server.CreateObject("ADODB.Recordset")
[b]LINHA 8 [/b]Recordset.ActiveConnection = MM_pesquisa_con_STRING
Recordset.Source = "SELECT *  FROM secteur41_en  ORDER BY Logo DESC, hebergement DESC, web DESC, email DESC, societe ASC"

PESQUISA_CON
MM_pesquisa_con_STRING = "F:\inetpub\vhosts\malipages.com\httpdocs\bd1.mdb;"

e fecho:
<%
Recordset.Close()
%>
<%
Set Recordset = Nothing
%>

[xanburzum 169]

o ActiveConnection , precisa ser o nome da variavel conexao do objeto connection , ou uma string contendo parametros para a connectionString e naun passar o path nela, faz assim

 

constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring

'crio o rs
	set rs=server.createobject("ADODB.Recordset")
	'crio o SQL
	SQL="SELECT login FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3

[gspereira 0]

MM_pesquisa_con_STRING = "F:\inetpub\vhosts\malipages.com\httpdocs\bd1.mdb;"

é o conteudo do include pesquisa_con

[xanburzum 169]

entaun o valor dela é um caminho e no ActiveConnection precisa ser uma conexao valida, precisa ser o nome da variavel conexao do objeto connection , ou uma string contendo parametros para a connectionString

 

MM_pesquisa_con_STRING = "F:\inetpub\vhosts\malipages.com\httpdocs\bd1.mdb;"
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open MM_pesquisa_con_STRING 
Recordset.ActiveConnection = conexao

[gspereira 0]

agora o erro diz que o nome da fonte de dados é muito longo

MM_pesquisa_con_STRING é muito longo?

foi o ultradev que criou

 

nao sei o que esta acontecendo pois mudei de hospedagem e começou a dar problemas

no outro funcionava sem problemas mas como nao trabalhara mais com windows fui obrigada a mudar

[xanburzum 169]

deixa apenas constring...

[gspereira 0]

mesmo erro

[xanburzum 169]

usa assim, direto, naun precisa especificar o activeconnection, você faz

ele no metodo open do obj recordset

 

rs.open SQL,conexao,1,3

con_STRING = "F:\inetpub\vhosts\malipages.com\httpdocs\bd1.mdb;"
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open con_STRING
'crio o rs
	set rs=server.createobject("ADODB.Recordset")
	'crio o SQL
	SQL="SELECT login FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3

[gspereira 0]

ainda da o mesmo erro

 

se eu fizer assim funciona, mas nao por muito tempo, depois da erro de novo na conexao. sera que estou fechando certo? bd1.mdb criei no painel de controle da minha hospedagem

 

<%

set Recordset = Server.CreateObject("ADODB.Recordset")

Recordset.ActiveConnection = "bd1.mdb"

Recordset.Source = "SELECT * FROM secteur39 ORDER BY Logo DESC, hebergement DESC, web DESC, email DESC, societe ASC"

Recordset.CursorType = 0

Recordset.CursorLocation = 2

 

FECHANDO

<%

Recordset.Close()

%>

<%

Set Recordset = Nothing

%>

[Patrique 0]

Tente assim

 

<%
Set rsRecordset = Server.CreateObject("ADODB.Recordset")
strCon="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("bd1.mdb")
strSQL = "SELECT * FROM secteur39 ORDER BY Logo DESC, hebergement DESC, web DESC, email DESC, societe ASC"
rsRecordset.CursorType = 0
rsRecordset.CursorLocation = 2
rsRecordset.Open strSQL, strCon
%>