Cita:
Iniciado por Myakire fallen_angel, no entendí tu duda ni tu problema ¿cuando no hay registros entra al IF, esa es?
esa es parte de la duda, pero opte por resolverla de este modo
Cita: SQL2="SELECT SUM(TOT_NET) AS RESULTADO1, SUM(TOT_BRU) AS RESULTADO2 FROM monitor WHERE (fec_vta >= CONVERT(DATETIME, '"&PERIODO1&"', 102)) AND (fec_vta <= CONVERT(DATETIME, '"&PERIODO2&"', 102)) AND COD_LOC="&COD_LOC&" AND TIP_DOC=41 AND TIP_VTA=1"
SET RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open SQL2, CONN2, 1, 2
IF NOT RS2.EOF THEN
A=(RS2.FIELDS("RESULTADO1"))
B=(RS2.FIELDS("RESULTADO2"))
IF VARTYPE(A) <> 1 AND VARTYPE(B)<>1 THEN
TOT_FAC_NET_INT=CDBL(RS2.FIELDS("RESULTADO1"))+TOT _FAC_NET_INT
TOT_FAC_BRU_INT=CDBL(RS2.FIELDS("RESULTADO2"))+TOT _FAC_BRU_INT
END IF
END IF
RS2.CLOSE
aclaro el concepto: al realizar la busqueda por periodo si ingresaba un periodo donde no existian registros, por logica no deveria entrar al primer IF, pero seguramente como la sentencia SQL era una suma este = ingresaba y me arrojaba un error al pasar los datos a una variable de tipo numerico.
darb te edjunto el codigo que ocupo para conectarme a una BD SQL SERVER
Cita: SQL2="SELECT SUM(tot_net) AS resultado1, SUM(tot_bru) AS resultado2 FROM monitor WHERE (fec_vta >= CONVERT(DATETIME, '"&PERIODO1&"', 102)) AND (fec_vta <= CONVERT(DATETIME, '"&PERIODO2&"', 102)) AND COD_LOC="&COD_LOC&""
SET Conn2 = Server.CreateObject("ADODB.Connection")
SET RS2=Server.CreateObject("ADODB.Recordset")
CONN2.Open "Provider=SQLOLEDB.1;Password=(password_del_usuari o default);Persist Security Info=True;User ID=sa;Initial Catalog=(tu_base_de_datos);Data Source=localhost"
RS2.Open SQL2, CONN2, 1, 2
SA= usuario de la BD
la password debes de configurarla en el SQL SERVER
espero q sea de utilidad
PD:Mi problema esta solucionado, asi q se puede cerrar este post