Problema al mostrar consulta de ACCEs
Publicado por xpopex (1 intervención) el 21/05/2007 19:34:14
Hola buenas tardes a todos!
Tengo una pagina de intranet hecha en asp.3.0 esta pagina se conecta a una base de datos en acces.
En acces tengo una consulta la cual suma varias tablas y me da un total el cual quiero mostrar en una pagina de consulta en mi pagina.
Ya he hecho paginas anteriormente parecidas y no habia pasado ningun problema, el problema con esta es que no me pone los puntos decimales de mi consulta, les anexo el codigo para ver si ustedes me pueden ayudar, con mi problema.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<!--#include file="../../../../adovbs.inc"-->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros2.mdb"
objConn.Open
Dim iMinimoAcciones
iMinimoAcciones = Request.QueryString("credito")
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tipo_de_pago_desempleo" , objConn, adOpenForwardOnly, , adCmdTable
objRS.Filter ="cre_hip = "& iMinimoAcciones
If objRS.EOF then
Server.Transfer("credito_no_capturado.asp")
Ucase(iMinimoAcciones)
End if
Do While Not objRS.EOF
Response.Write "<VALUE= " & objRS("nom_cli") & ">"
Response.Write "<VALUE= " & objRS("cr") & ">"
Response.Write "<VALUE= " & objRS("num_cli") & ">"
Response.Write "<VALUE= " & objRS("cta_cli1") & ">"
Response.Write "<VALUE= " & objRS("cta_cli2") & ">"
Response.Write "<VALUE= " & objRS("cta_cli3") & ">"
Response.Write "<VALUE= " & objRS("emp") & ">"
Response.Write "<VALUE= " & objRS("tip_ban") & ">"
Response.Write "<VALUE= " & objRS("fec_acre") & ">"
Response.Write "<VALUE= " & objRS("fec_sin") & ">"
Response.Write "<VALUE= " & objRS("mod") & ">"
Response.Write "<VALUE= " & objRS("tip_pag") & ">"
Response.Write "<VALUE= " &_
objRS("cre_hip")
Dim nom_cli, cre_hip, cr, num_cli, cta_cli1, cta_cli2, cta_cli3, emp, tip_ban, fec_acre, fec_sin, moda, tip_pag
nom_cli = objRS("nom_cli")
cre_hip = objRS("cre_hip")
cr = objRS("cr")
num_cli = objRS("num_cli")
cta_cli1 = objRS("cta_cli1")
cta_cli2 = objRS("cta_cli2")
cta_cli3 = objRS("cta_cli3")
emp = objRS("emp")
tip_ban = objRS("tip_ban")
fec_acre = objRS("fec_acre")
fec_sin = objRS("fec_sin")
moda = objRS("mod")
tip_pag = objRS("tip_pag")
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn = Nothing
%>
<%
Dim objConn1
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros2.mdb"
objConn1.Open
Dim iMinimoAcciones1
iMinimoAcciones1 = Request.QueryString("credito")
Dim objRS1
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open "total_9_m" , objConn1
objRS1.Filter ="cre_hip = "& iMinimoAcciones1
If objRS1.EOF then
Server.Transfer("credito_no_capturado.asp")
Ucase(iMinimoAcciones)
End if
Do While Not objRS1.EOF
Response.Write "<VALUE= " & objRS1("recepcion9") & ">"
Response.Write "<VALUE= " & objRS1("aplicacion_9_m") & ">"
Response.Write "<VALUE= " & objRS1("transferencia") & ">"
Response.Write "<VALUE= " & objRS1("total_9_m") & ">"
Response.Write "<VALUE= " & objRS1("cre_hip") & ">"
Dim cre_hip1, aplicacion_9_m, recepcion9, transferencia, total_9_m
cre_hip1 = objRS1("cre_hip")
recepcion9 = cdbl(objRS1("recepcion9"))
aplicacion_9_m = objRS1("aplicacion_9_m")
transferencia = objRS1("transferencia")
total_9_m = objRS1("total_9_m")
objRS1.MoveNext
Loop
objRS1.Close
Set objRS1=Nothing
objConn1.Close
Set objConn1 = Nothing
%>
Tengo una pagina de intranet hecha en asp.3.0 esta pagina se conecta a una base de datos en acces.
En acces tengo una consulta la cual suma varias tablas y me da un total el cual quiero mostrar en una pagina de consulta en mi pagina.
Ya he hecho paginas anteriormente parecidas y no habia pasado ningun problema, el problema con esta es que no me pone los puntos decimales de mi consulta, les anexo el codigo para ver si ustedes me pueden ayudar, con mi problema.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<!--#include file="../../../../adovbs.inc"-->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros2.mdb"
objConn.Open
Dim iMinimoAcciones
iMinimoAcciones = Request.QueryString("credito")
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tipo_de_pago_desempleo" , objConn, adOpenForwardOnly, , adCmdTable
objRS.Filter ="cre_hip = "& iMinimoAcciones
If objRS.EOF then
Server.Transfer("credito_no_capturado.asp")
Ucase(iMinimoAcciones)
End if
Do While Not objRS.EOF
Response.Write "<VALUE= " & objRS("nom_cli") & ">"
Response.Write "<VALUE= " & objRS("cr") & ">"
Response.Write "<VALUE= " & objRS("num_cli") & ">"
Response.Write "<VALUE= " & objRS("cta_cli1") & ">"
Response.Write "<VALUE= " & objRS("cta_cli2") & ">"
Response.Write "<VALUE= " & objRS("cta_cli3") & ">"
Response.Write "<VALUE= " & objRS("emp") & ">"
Response.Write "<VALUE= " & objRS("tip_ban") & ">"
Response.Write "<VALUE= " & objRS("fec_acre") & ">"
Response.Write "<VALUE= " & objRS("fec_sin") & ">"
Response.Write "<VALUE= " & objRS("mod") & ">"
Response.Write "<VALUE= " & objRS("tip_pag") & ">"
Response.Write "<VALUE= " &_
objRS("cre_hip")
Dim nom_cli, cre_hip, cr, num_cli, cta_cli1, cta_cli2, cta_cli3, emp, tip_ban, fec_acre, fec_sin, moda, tip_pag
nom_cli = objRS("nom_cli")
cre_hip = objRS("cre_hip")
cr = objRS("cr")
num_cli = objRS("num_cli")
cta_cli1 = objRS("cta_cli1")
cta_cli2 = objRS("cta_cli2")
cta_cli3 = objRS("cta_cli3")
emp = objRS("emp")
tip_ban = objRS("tip_ban")
fec_acre = objRS("fec_acre")
fec_sin = objRS("fec_sin")
moda = objRS("mod")
tip_pag = objRS("tip_pag")
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn = Nothing
%>
<%
Dim objConn1
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros2.mdb"
objConn1.Open
Dim iMinimoAcciones1
iMinimoAcciones1 = Request.QueryString("credito")
Dim objRS1
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open "total_9_m" , objConn1
objRS1.Filter ="cre_hip = "& iMinimoAcciones1
If objRS1.EOF then
Server.Transfer("credito_no_capturado.asp")
Ucase(iMinimoAcciones)
End if
Do While Not objRS1.EOF
Response.Write "<VALUE= " & objRS1("recepcion9") & ">"
Response.Write "<VALUE= " & objRS1("aplicacion_9_m") & ">"
Response.Write "<VALUE= " & objRS1("transferencia") & ">"
Response.Write "<VALUE= " & objRS1("total_9_m") & ">"
Response.Write "<VALUE= " & objRS1("cre_hip") & ">"
Dim cre_hip1, aplicacion_9_m, recepcion9, transferencia, total_9_m
cre_hip1 = objRS1("cre_hip")
recepcion9 = cdbl(objRS1("recepcion9"))
aplicacion_9_m = objRS1("aplicacion_9_m")
transferencia = objRS1("transferencia")
total_9_m = objRS1("total_9_m")
objRS1.MoveNext
Loop
objRS1.Close
Set objRS1=Nothing
objConn1.Close
Set objConn1 = Nothing
%>
Valora esta pregunta
0