[Resolvido] Active connection

[julycobain 0]

oi galera

 

como ja postei aqui no forum estou dando manutenção em um ADM

que nao fui eu q fiz

 

e estou encontrando o seguinte problema

 

Error Type:

Microsoft VBScript runtime (0x800A01A8)

Object required: 'rs.ActiveConnection'

/dev/juliana/ADMIN/functions.asp, line 153

 

 

o objeto rs esta criado e instanciado e ele vem da seguinte função

 

Function BuildCombo(psSql, pvValor)

Dim rs, sRet

Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorLocation = adUseClient

rs.Source = psSql

Set rs.ActiveConnection = OpenConnection

rs.Open 'essa e a linha 153 q esta com erro

 

Set rs.ActiveConnection = Nothing

If pvValor > "0" Then

sRet = "<option Value=""Null""> </option>"

Else

sRet = "<option Value=""Null"" selected> </option>"

End If

Do Until rs.EOF

If rs("KeyValue") = pvValor Then

sRet = sRet & "<option Value=""" & rs("KeyValue") & """ selected>" & rs("ListValue") & "</option>" & vbCrLf

Else

sRet = sRet & "<option Value=""" & rs("KeyValue") & """>" & rs("ListValue") & "</option>" & vbCrLf

End If

rs.MoveNext

Loop

rs.Close

set rs = Nothing

BuildCombo = sRet

End Function

 

alguem sabe como posso resolver o meu problema

se alguem puder ajudar eu agradeço desde ja

 

bjos

[Mário Monteiro 179]

tira o set na frente do rs.ActiveConnection

e veja se a variavél OpenConnection realmente contem a conexão com o bd

[julycobain 0]

valeu pela ajuda mas nao adiantou

 

eu fiz assim

 

essa e a minha conexao

 

set cnx = server.createobject("ADODB.Connection")

cnx.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Dev\juliana\ADMIN\bd_admim.mdb;Persist Security Info=False"

 

entao a variavel cnx e a variavel de conexao

 

na função eu fiz como você falou

 

 

Function BuildCombo(psSql, pvValor)

Dim rs, sRet

Set rs = Server.CreateObject("ADODB.Recordset")

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

rsAgenda.CursorLocation = 3

rs.Source = psSql

rs.ActiveConnection = cnx

rs.Open

Set rs.ActiveConnection = Nothing

 

If pvValor > "0" Then

sRet = "<option Value=""Null""> </option>"

Else

sRet = "<option Value=""Null"" selected> </option>"

End If

Do Until rs.EOF

If rs("KeyValue") = pvValor Then

sRet = sRet & "<option Value=""" & rs("KeyValue") & """ selected>" & rs("ListValue") & "</option>" & vbCrLf

Else

sRet = sRet & "<option Value=""" & rs("KeyValue") & """>" & rs("ListValue") & "</option>" & vbCrLf

End If

rs.MoveNext

Loop

rs.Close

set rs = Nothing

BuildCombo = sRet

End Function

 

mas nao adiantou

 

mesmo assim valeu pela ajuda se alguem souber alguma outra solução eu agradeço

 

bjos

 

july

[Mário Monteiro 179]

Onde está o erro agora??isso não precisa

Set rs.ActiveConnection = Nothing

ActiveConnection é parte do recordset que já foi setado

[julycobain 0]

valeu por toda a ajudaja consegui resolverbjosjuly