Declarar Variable

Creo que tenemos un problema y es que digamos que no comprendo en que
momento se ejecuta tu consulta, ¿Como sabes que tu consulta trae algun
registro?, ¿Exactamente en donde intentas hacer la asignación? Que error
tira? te pongo algo de código.

En un ASP:

'Declaras tus variables
dim AdoCon, AdoRs, StrQuery, Variable

'Un par de constantes
Const adCmdText = &H0001
Const adOpenStatic = 3

'Creas el objeto conexion y el recordset
set AdoCon=server.CreateObject("ADODB.Connection")
set AdoRs=server.CreateObject("ADODB.Recordset")

'Para Sql Server solo cambiaría esta linea
AdoCon.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("../basededatos.mdb"))

'Defines tu query
StrQuery="Select count(pagsts) as cantidad From grmpag inner join relupp
On relupp.upppag=grmpag.pagpag"

'Ejecutas la consulta
AdoRs.Open StrQuery,AdoCon,adOpenStatic,adCmdText

'Validas si esta genero resultados
If not(AdoRs.Eof=true and AdoRs.Bof=True) Then
'Si entro aqui es porque el query trajo registros

'Aqui asignas el valor
Variable=AdoRs.Fields("cantidad").value
end if

'Cierras el recordset
AdoRs.Close

'Cierras la conexion con la base de datos y destruyes los objetos
Set AdoRs=Nothing
Adocon.Close
Set AdoCon=Nothing

Valdov - Omar Valdovino


"Rookie" escribió en el mensaje
news:

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