Resultados da tabela em uma variavel

[Carlos Moreira 0]

Alguem sabe como consigo colocar os resultados de uma tabela em uma variavelseparados por virgulas?DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&caminhobd&";" Set Conntmp = Server.CreateObject("ADODB.Connection") Conntmp.Open DSNtemp Set RStmp = Server.CreateObject("ADODB.Recordset") msqltemp = "SELECT ID from Cadastros"RStmp.Open msqltemp, Conntmp,3,3 ???????? A variavel teria de ficar assimVAR= "id1,id2,id3,id4, etc"???????????????RStmp.MoveNextLoopRStmp.Close Conntmp.Close Set RStmp = Nothing Set Conntmp = Nothing

[ska_ska 0]

bom.. com o loop ficaria facil né:

Set RStmp = Server.CreateObject("ADODB.Recordset") msqltemp = "SELECT ID from Cadastros"RStmp.Open msqltemp, Conntmp,3,3 VAR = ""Do While not RStmp.EOF   VAR= VAR & RStmp(ID) & ","   RStmp.MoveNextLoopVAR = MID(VAR,1,LEN(VAR - 1))response.write VAR

;)

[Carlos Moreira 0]

<%

DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&caminhobd&";"

Set Conntmp = Server.CreateObject("ADODB.Connection")

Conntmp.Open DSNtemp

 

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

msqltemp = "SELECT ID from CADASTROS"

RStmp.Open msqltemp, Conntmp,3,3

VAR = ""

Do While not RStmp.EOF

VAR= VAR & RStmp(ID) & ","

RStmp.MoveNext

Loop

VAR = MID(VAR,1,LEN(VAR - 1))

response.write VAR

%>

 

estava dando erro na linha 12 (em vermelho)

 

ADODB.Recordset error '800a0cc1'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/001.asp, line 12

 

Então achei que faltasse as "" e alterei para:

 

VAR = VAR & RStmp("ID") & ","

 

Ai deu erro na linha 15:

 

VAR = MID(VAR,1,LEN(VAR - 1))

 

Erro de tempo de execução do Microsoft VBScript error '800a000d'

Tipos incompatíveis: 'VAR'

/001.asp, line 15

[Ivan.Teles 23]

tenta:

 

VAR= VAR & RStmp("ID") & ","

[Carlos Moreira 0]

Esse eu arrumei mas deu erro na linha 15VAR = MID(VAR,1,LEN(VAR - 1))Erro de tempo de execução do Microsoft VBScript error '800a000d' Tipos incompatíveis: 'VAR' /001.asp, line 15

[Ivan.Teles 23]

acho que o erro deve esta ocorredo por que você esta definido pra ele pegar so um, e se na coluna estiver um Id 20

[Carlos Moreira 0]

Tirei essa linha: VAR = MID(VAR,1,LEN(VAR - 1))

 

e funcionou perfeitamente mostrando os resultados separados por virgula:

41,62,70,76,341,353,408,745,849,850,856,862,872,876

 

Então o correto ficou:

 

<%

DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&caminhobd&";"

Set Conntmp = Server.CreateObject("ADODB.Connection")

Conntmp.Open DSNtemp

 

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

msqltemp = "SELECT ID from cadastros"

RStmp.Open msqltemp, Conntmp,3,3

VAR = ""

Do While not RStmp.EOF

VAR = VAR & RStmp("ID") & ","

RStmp.MoveNext

Loop

response.write VAR

%>

 

Valeu

[Ivan.Teles 23]

beleza.. também acabei de testar..