Como contar los registros que devuelve esta consulta con INNER JOIN

[sqa212]

set rsBuscar=db.execute("SELECT * FROM productos INNER JOIN autores ON productos.idautor = autores.idautor where nombreautor like '%" & Replace(Keyword, "'", "''") & "%' ")

[Myakire]

Pues con rsBuscar.RecordCount
o con vector = rsBuscar.GetRows (y checando el UBound)

[sqa212]

He usado <%=rsBuscar.RecordCount%> y obtengo -1 (Que extraño!!!), lo de vector = rsBuscar.GetRows (y checando el UBound) nunca he usado GetRows, si me lo pudieras detallar un poquito te lo agradeceria

[Myakire]

Por lo del menos uno. Eso se arregla con usar un cursor definido como adUseClient (3) en lugar de adUseServer (2).

Y por lo de GetRows, en www.ASPFacil.com (¿o era en www.asptutor.com.ar?) hay un muy buen artículo sobre el tema.

Saludos

[sqa212]

Como ves no estaba haciendo uso de un recordset, la conexion la hago a traves de otro archivo de esta forma(Usando ODBC):

dim db
dim strConn
strConn = "webconn"
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn

Si lo hiciera como tu dices, como pondria esto:

set rsBuscar=Server.CreateObject("ADODB.Recordset")
rsBuscar.Open "productos", strConn, 3,3 Para que me buscase tanto en la tabla productos y en la tabla autores

[Myakire]

Pues no te entendí.

Pero una forma de hacer lo que intentas (con DSN, como lo tienes, aunque sería mejor detectamente al driver) es:

Set oConn = Server.CreateObject("ADODB.Connection")
oConn .ConnectionString = "DSN=webconn"
oConn .Open
Set oRS = Server.createobject("ADODB.Recordset")
sql = "SELECT * FROM productos INNER JOIN autores ON productos.idautor = autores.idautor where nombreautor like '%" & Replace(Keyword, "'", "''") & "%' "
Set oRS = oConn .Execute(sql)
' o bien oRS.Open sql,oConn,3,3
NumRegistros = oRs.RecordCount

[sqa212]

Myakire Gracias funciono OK.