Acces Esta loco

lorenzorene · #1 (**permalink**) 15/04/2003, 13:19

Estoy programando un web con ASP Vbscript con aceso a bases de datos access, al introducir cambios y movimientos en la base de datos solo me respeta las operaciones 12 beses al 13 lo que deveria ser la ultima tupla se muebe a la primera, mandandome al traste todos los calculos (deven de ser secuenciales) al pedir un reporte (una consulta de la tabla) por poner un ejemplo me manda las tuplas de esta manera 7,8,9,1,2,3,4,5,6 en donde yo quisiera que fuese 1,2,3,4,5,6,7, pero en fin, al introducirme a la base de datos y chechar la tabla que estoy afectando, hay si estan EN ORDEN, si alguien sabe el ritual budù o el mecanismo para darle una limpi se lo agradecere. o solo el "POR QUE"

Llevo tres dias sin dormir y dos jaras de cafe de 2 litros.

:-p

maestro · #2 (**permalink**) 15/04/2003, 16:04

No te entiendo la mitad del dialecto que has usado

, pero creo que esto te servira.

http://aspfacil.com/articulos/verarticulo.asp?id=22

lorenzorene · #3 (**permalink**) 15/04/2003, 18:00

Ok boy de a cuerdo con todo lo demás pero el detalle es en si cuando empiezo a trabajar con la base de datos en access, tengo mis instrucciones INSERT y demás, el detalle es que, por alguna razón extraña al agregarle datos (tuplas a mi base de datos) solo se registran vien las primeras 12 es decir que de la tupla numero 1 a la 12 esta todo en orden, después la tupla numero 13 me la inserta en lo que era la tupla numero 1, y desde ese punto comienza otra vez a meter datos, algo así como si el indice interno de la base de datos en access se descompusiera, en este mismo instante me encuentro trabajando en ello.

Vamos la operación que quiero que realice la hace bien 12 veces ya las demás por sin ningún lado, y por si fuera poco boy a revisar mi tabla en la base de datos y hay si están secuencial menté agregados los valores, pero al pedirle un reporte con una sentencia SELECT me muestra el error antes mencionado, será posible que solo funcione 12 beses el motor de access?

Henry Zapata · #4 (**permalink**) 15/04/2003, 18:27

Hola:

No se que me sorprende más, si tu problema con access o con la ortografía.

Porque no pones tu codigo aqui para revisarlo.

saludos!!

lorenzorene · #5 (**permalink**) 15/04/2003, 18:39

Ok boy de a cuerdo con todo lo demás pero el detalle es en si cuando empiezo a trabajar con la base de datos en access, tengo mis instrucciones INSERT y demás, el detalle es que, por alguna razón extraña al agregarle datos (tuplas a mi base de datos) solo se registran vien las primeras 12 es decir que de la tupla numero 1 a la 12 esta todo en orden, después la tupla numero 13 me la inserta en lo que era la tupla numero 1, y desde ese punto comienza otra vez a meter datos, algo así como si el indice interno de la base de datos en access se descompusiera, en este mismo instante me encuentro trabajando en ello.

Vamos la operación que quiero que realice la hace bien 12 veces ya las demás por sin ningún lado, y por si fuera poco boy a revisar mi tabla en la base de datos y hay si están secuencial menté agregados los valores, pero al pedirle un reporte con una sentencia SELECT me muestra el error antes mencionado, será posible que solo funcione 12 beses el motor de access?

lorenzorene · #6 (**permalink**) 15/04/2003, 18:43

'hay esta el codigo
' a ver si le encuentran algo raro
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<META HTTP-EQUIV="pragma" content="no-cache">
<TITLE></TITLE>
</HEAD name="compras">
<BODY bgcolor="#9aaaaa">
<%
d1002 = Request.Form("text1")
d502 = Request.Form("text2")
d202=Request.Form("text3")
d102=Request.Form("text4")
d52=Request.Form("text5")
dm2=Request.Form("text6")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

conn.Open "casa2", "", ""

if IsNumeric (d1002)=True and IsNumeric (d502)=true and IsNumeric (d202)=true and IsNumeric (d102)=true and IsNumeric (d52)=true and IsNumeric (dm2)=true then

d100=ccur(d1002)
d50=ccur(d502)
d20=ccur(d202)
d10=ccur(d102)
d5=ccur(d52)
dm=ccur(dm2)

if (d100>=0)and (d50>=0)and (d20>=0)and (d10>=0)and (d5>=0)and (dm>=0) then

total=(d100*100)+(d50*50)+(d20*20)+(d10*10)+(d5*5) +(dm*1)

set rs=nothing
sql="SELECT * FROM caja1"
set rs=conn.Execute (sql)

do while not rs.EOF
id2=rs("id")
a1=rs("numdoc")
a2=rs("candoc")
a3=rs("cambill")
a4=rs("venta")
a5=rs("tipo")
a6=rs("dotdll")
a7=rs("dotmn")
a8=rs("saldodll")
a9=rs("saldomn")
a10=rs("dolar100")
a11=rs("dolar50")
a12=rs("dolar20")
a12b=rs("dolar10")
a13=rs("dolar5")
a142=rs("dolarmoraya")
a14b=rs("dolardoc")
a15=rs("pesos500")
a16=rs("pesos200")
a17=rs("pesos100")
a18=rs("pesos50")
a19=rs("pesos20")
a202=rs("pesosmoraya")
a212=rs("alacompra")
a22=rs("alaventa")

i = i + 1
rs.MoveNext
Loop
a21=ccur(a212)
canpagar=a21*total
resto=canpagar
can500=resto\500
resto=(resto)-(can500*500)
'resto=resto mod 500
flag="0"

do while flag="0"

if can500 <= a15 then
flag="1"
else
can500=can500-1
resto=resto+500
end if
loop

can200=resto\200
resto=(resto)-(can200*200)
'resto=resto mod 200
flag="0"

do while flag="0"

if can200 <= a16 then
flag="1"
else
can200=can200-1
resto=resto+200
end if
loop

can100=resto\100
resto=(resto)-(can100*100)
'resto=resto mod 100
flag="0"

do while flag="0"

if can100 <= a17 then
flag="1"
else
can100=can100-1
resto=resto+100
end if
loop

can50=resto\50
resto=(resto)-(can50*50)
'resto=resto mod 50
flag="0"

do while flag="0"

if can50 <= a18 then
flag="1"
else
can50=can50-1
resto=resto+50
end if
loop

can20=resto\20
resto=(resto)-(can20*20)
'resto=resto mod 20
flag="0"

do while flag="0"

if can20 <= a19 then
flag="1"
else
can20=can20-1
resto=resto+20
end if
loop
canm=resto

a14=ccur(a142)
a10=a10+d100
a11=a11+d50
a12=a12+d20
a12b=a12b+d10
a13=a13+d5
a14=a14+dm

a82=ccur(a8)
a82=a82+total

a20=ccur(a202)

if ( a15>=can500 )and ( a16>=can200 )and ( a17>=can100 )and ( a18>=can50 )and ( a19>=can20 )and ( a20>=canm )then

a15=a15-can500
a16=a16-can200
a17=a17-can100
a18=a18-can50
a19=a19-can20
a20=a20-canm

a92=ccur(a9)
a92=a92-canpagar

'requiere campo en ceros, numdoc
c=0
set rs=nothing
sql="SELECT * FROM caja1"
set rs=conn.Execute (sql)

sql ="INSERT INTO caja1 (numdoc,cambill,tipo,saldodll,saldomn,dolar100,dol ar50,dolar20,dolar10,dolar5,dolarmoraya,dolardoc,p esos500,pesos200,pesos100,pesos50,pesos20,pesosmor aya,alacompra,alaventa) VALUES ("&Rtrim(c)&","&Rtrim(total)&","&Rtrim(a21)&","&Rt rim(a82)&","&Rtrim(a92)&","&Rtrim(a10)&","&Rtrim(a 11)&","&Rtrim(a12)&","&Rtrim(a12b)&","&Rtrim(a13)& ","&Rtrim(a14)&","&Rtrim(a14b)&","&Rtrim(a15)&","& Rtrim(a16)&","&Rtrim(a17)&","&Rtrim(a18)&","&Rtrim (a19)&","&Rtrim(a20)&","&Rtrim(a21)&","&Rtrim(a22) &")"
Set rs = conn.Execute (sql)

Response.Write ""
Response.Write ""
Response.Write "CALIFORNIA "
Response.Write "Cambio De Dolares "
Response.Write ""
Response.Write total & " Dolares "
Response.Write "Su cambio "
Response.Write ""
Response.Write canpagar & " Pesos "
Response.Write ""
Response.Write can500 & " De 500 "
Response.Write can200 & " De 200 "
Response.Write can100 & " De 100 "
Response.Write can50 & " De 50 "
Response.Write can20 & " De 20 "
Response.Write canm & " En Fraccionaria "
Response.Write ""
'Response.Write "Califonia "
'Response.Write "Cambio de Dolares "
'Response.Write "Agradece su Preferencia "
Response.Write ""
Response.Write ""

'%%%%%%%%%%%%%%%%%%%%%%%%%%
Response.Write "<Form name=imprimir>"
Response.Write "<input type=button value=Imprimir onClick=print(); name=btnPrint class=display>"
Response.Write ""
Response.Write ""
Response.Write "CALIFORNIA "
Response.Write "Cambio De Dolares "
Response.Write total & " Dolares "
Response.Write "Su cambio "
Response.Write canpagar & " Pesos "
Response.Write can500 & " De 500 "
Response.Write can200 & " De 200 "
Response.Write can100 & " De 100 "
Response.Write can50 & " De 50 "
Response.Write can20 & " De 20 "
Response.Write canm & " En Fraccionaria "
Response.Write ""
Response.Write ""
Response.Write "</form>"

else
Response.Write ""
Response.Write " No hay suficiente dinero de alguna denominacion pruebe cambiando dinero o solicite una dotacion "
Response.Write ""
Response.Write can500 & " De 500 "
Response.Write can200 & " De 200 "
Response.Write can100 & " De 100 "
Response.Write can50 & " De 50 "
Response.Write can20 & " De 20 "
Response.Write canm & " En Fraccionaria "
end if
else
Response.Write ""
Response.Write " Usted introdujo valores negativos intente volver a realizar la operacion "
Response.Write ""
end if

else
Response.Write "<center>"
Response.Write ""
Response.Write "Error"
Response.Write " "
Response.Write "Faltan Datos en el Formulario o son Incorrectos"
Response.Write ""
Response.Write "</center>"
end if
conn.close
%>
 

</BODY>
</HTML>