Declarar Variable

Dim Variable


Rs.Open "Select estado, fecha, count(registro) as cantidad from tabla",
Conexion, etc, etc

if Rs.Eof=False and Rs.Bof=False then
Variable=Rs.Fields("Cantidad").Value
end if

Y como diria el chavo del ocho: "La idea es esa".

"Rookie" escribió en el mensaje
news:

Hola, como puedo pasar a una variable, un campo del select? ...

SELECT estado, fecha, Count(registro) as cantidad FROM Accesos where .

necesito que el valor de "cantidad" se almacene en una variable

P.D. la pagina to tiene formularios, solo procesa los datos y los envia a
otra aplicacion, por lo que no puedo usar FORM

Jajaja... muy buena...

Rookie, recuerda que las variables en ASP no son persistentes... asi que,
cuando la pagina termina de ser procesada... tu variable desaparece.

Saludos,

Matias Iacono
Microsoft MVP



"Valdov" wrote in message
news:%238muTgc%

Dim Variable


Rs.Open "Select estado, fecha, count(registro) as cantidad from tabla",
Conexion, etc, etc

if Rs.Eof=False and Rs.Bof=False then
Variable=Rs.Fields("Cantidad").Value
end if

Y como diria el chavo del ocho: "La idea es esa".

"Rookie" escribió en el mensaje
news:
> Hola, como puedo pasar a una variable, un campo del select? ...
>
> SELECT estado, fecha, Count(registro) as cantidad FROM Accesos where

.

>
> necesito que el valor de "cantidad" se almacene en una variable
>
> P.D. la pagina to tiene formularios, solo procesa los datos y los envia

a

> otra aplicacion, por lo que no puedo usar FORM
>
>

podrias indicarme el ejemplo completo... no lo he logrado, me envia error.
utilizo SQL como BD

de antemano, gracias

"Valdov" wrote:

Dim Variable


Rs.Open "Select estado, fecha, count(registro) as cantidad from tabla",
Conexion, etc, etc

if Rs.Eof=False and Rs.Bof=False then
Variable=Rs.Fields("Cantidad").Value
end if

Y como diria el chavo del ocho: "La idea es esa".

"Rookie" escribió en el mensaje
news:
> Hola, como puedo pasar a una variable, un campo del select? ...
>
> SELECT estado, fecha, Count(registro) as cantidad FROM Accesos where .
>
> necesito que el valor de "cantidad" se almacene en una variable
>
> P.D. la pagina to tiene formularios, solo procesa los datos y los envia a
> otra aplicacion, por lo que no puedo usar FORM
>
>

Creo que seria mas facil si pones algo de código y así entre todos vemos que
pasa.

Valdov - Omar Valdovino


"Rookie" escribió en el mensaje
news:

podrias indicarme el ejemplo completo... no lo he logrado, me envia error.
utilizo SQL como BD

de antemano, gracias

"Valdov" wrote:

> Dim Variable
>
>
> Rs.Open "Select estado, fecha, count(registro) as cantidad from tabla",
> Conexion, etc, etc
>
> if Rs.Eof=False and Rs.Bof=False then
> Variable=Rs.Fields("Cantidad").Value
> end if
>
> Y como diria el chavo del ocho: "La idea es esa".
>
> "Rookie" escribió en el mensaje
> news:
> > Hola, como puedo pasar a una variable, un campo del select? ...
> >
> > SELECT estado, fecha, Count(registro) as cantidad FROM Accesos where

.

> >
> > necesito que el valor de "cantidad" se almacene en una variable
> >
> > P.D. la pagina to tiene formularios, solo procesa los datos y los

envia a

> > otra aplicacion, por lo que no puedo usar FORM
> >
> >
>
>
>

O.K. este es el codigo para halar data de la BD, la conneccion al servidor la
hago en el archivo "global", este toma la data y la pasa a un .dll que lo
convierte a .pdf, todo funciona bien, solo no logro pasar el valor de
"cantidad" a una variable.

Debo crear una nueva conneccion?.. o modificar la que tengo?.. tienes un
codigo similar, incluyendo la cadena de conneccion para SQL?

mi codigo:

Sub SetCommandObj(objCommand, orderId)
'Consulta a SQL
Dim strSQL
Dim s_DocNum
s_DocNum = request.QueryString("s_DocNum")
strSQL = "SELECT Fact.DocNum, Fact.DocDate, Fact.DocTime,
Fact.SlpCode, Fact.GroupNum," &_
"DetFact.DocDueDate, DetFact.CardCode,
DetFact.CardName, DetFact.Address, DetFact.Address2, " &_

"FROM OINV LEFT OUTER JOIN "&_
"DetFact ON Fact.DocEntry = Fact.DocEntry INNER
JOIN WHERE Fact.DocNum =" & s_DocNum
'response.write strSQL
With objCommand
'Coneccion al archivo UDL
.ActiveConnection = "File Name=" & Server.MapPath("comp1.udl")
.CommandText = strSQL
End With
End Sub