Udregning i asp!

Kom med det du har så ser vi om vi ikke kan rette det til så det virker.

//akj

Det jeg prøvede før var java script, og det skal det ikke være her. Så jeg har ikke så meget at kigge på andet en ren html :o(

Håber stadig i kan hjælpe

/Bruhn

kan vi, kom med din kode

OK, du har en form med de angivne felter den submitter du mod getdata.asp som ser sådan ud:

<%
dim conn, strConn

' opret databaseforbindelse
strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("din_db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn

' hent mængder
quantity1 = request.form ("quantity1")
quantity2 = request.form ("quantity2")
quantity3 = request.form ("quantity3")
quantity4 = request.form ("quantity4")
quantity5 = request.form ("quantity5")

'hent priser
price1 = request.form ("price1")
price2 = request.form ("price2")
price3 = request.form ("price3")
price4 = request.form ("price4")
price5 = request.form ("price5")


sql = "insert into tabelnavn set (qty_1, qty_2, qty_3 ,.........) values (" & quantity1 &"," & quantity2 & "," & quantity3 &"," ....... & ")"
conn.execute (sql)

%>

HVordan din sqlstreng skal opbygges afhænger selvfølgeligt af hvordan din database ser ud.

//akj

Database:
quantity1, quantity2......... + price1, price2........ + subtotal1, subtotal2..... + total

Har du så mulighed for at give mig en præcis SQL nu?

HUSK, den skal gerne kunne udregne det inden den opdaterer databasen, så man lige ser totalen inden man submitter!! c",)

hvad skal subtotal være ??

Visning af subtotal laves lettes i javascript clientside.

//akj

quantity1 + price1 = subtotal1
quantity2 + price2 = subtotal2
quantity3 + price3 = subtotal3
quantity4 + price4 = subtotal4
quantity5 + price5 = subtotal5

Subtotal1 + Subtotal2 + Subtotal3 + Subtotal4 + Subtotal5 = Total

Ok men der er vel quantity1 * price1 = subtotal1 ??

//akj

Doohhhh - Ja selvfølgelig.. :o)

quantity1 = request.form ("quantity1")
quantity2 = request.form ("quantity2")
quantity3 = request.form ("quantity3")
quantity4 = request.form ("quantity4")
quantity5 = request.form ("quantity5")

'hent priser
price1 = request.form ("price1")
price2 = request.form ("price2")
price3 = request.form ("price3")
price4 = request.form ("price4")
price5 = request.form ("price5")

' subtotaler
sub1 = quantity1 * price1
sub2 = quantity2 * price2
sub3 = quantity3 * price3
sub4 = quantity4 * price4
sub5 = quantity5 * price5

'total
sub1 + sub2 + sub3 + sub4 + sub5


sql = "insert into tabelnavn"
sql = sql & " set"
sql = sql & "(quantity1, quantity2,quantity3,quantity4,quantity5,price1,price2,price3,price4,price5,subtotal1,subtotal2,subtotal3,subtotal4,subtotal5,total ) "
sql = sql & " values "
sql = sql & "(" quantity1 &"," & quantity2 &"," & quantity3 &"," & quantity4 &"," & quantity5 & ","
sql = sql &  price1 &"," & price2 &"," & price3 &"," & price4 &"," & price5 & ","
sql = sql &  sub1 &"," & sub2 &"," & sub3 &"," & sub4 &"," & sub5 & ","
sql = sql &  total & ")"

conn.execute (sql)


'//akj

Hmm.. får en fejl:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/logistik/web/test_udregning.asp, line 36, column 16

Linjen er:
sql = sql & "(" quantity1 &"," & quantity2 &"," & quantity3 &"," & quantity4 &"," & quantity5 & ","


< - hele skidtet - >
sql = "insert into tabelnavn"
sql = sql & " set"
sql = sql & "(quantity1, quantity2,quantity3,quantity4,quantity5,price1,price2,price3,price4,price5,subtotal1,subtotal2,subtotal3,subtotal4,subtotal5,total ) "
sql = sql & " values "
sql = sql & "(" quantity1 &"," & quantity2 &"," & quantity3 &"," & quantity4 &"," & quantity5 & ","
sql = sql &  price1 &"," & price2 &"," & price3 &"," & price4 &"," & price5 & ","
sql = sql &  subtotal1 &"," & subtotal2 &"," & subtotal3 &"," & subtotal4 &"," & subtotal5 & ","
sql = sql &  total & ")"

sql = sql & "(" quantity1 &"," & quantity2 &"," & quantity3 &"," & quantity4 &"," & quantity5 & ","

rettes til:
sql = sql & "(" &  quantity1 & "," & quantity2 & "," & quantity3 & "," & quantity4 & "," & quantity5 & ","

//akj

Ok - Har lige lidt problemer med mit opkald til db:

Set RS1=Server.CreateObject("ADODB.Recordset")
Set oSQL1=Server.CreateObject("ADODB.connection")

oSQL1.connectionstring="DSN=AGI"
oSQL1.Open

----------

Kan du skrive det om så det passer til dit smukke kodning ? c",)

Har du oprettet en DSN under odbc forbindelser ?? Det skal/kan du gøre hvis det er din egen webserver.

Har du webhotel skal du lave den DSN-less:


Set oSQL1=Server.CreateObject("ADODB.connection")
Set RS1=Server.CreateObject("ADODB.Recordset")

strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("din_db.mdb")
Set oSQL1 = Server.CreateObject("ADODB.Connection")
oSQL1.open strConn

dette forudsætter at din db ligger i samme folder som dette script

//akj

Jeg har en DSN / Egen webserver, bruger ovenstående opkald, når jeg laver asp.. Vil bare have det tilrettet så det passer til dit script.. Begyndte at få fejl på det nemlig..

Hvad får du af fejl ??

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/logistik/web/test_udregning.asp, line 4

Dim strConn, conn

linje 4: strConn.connectionstring="DSN=AGI"
    Set Conn=Server.CreateObject("ADODB.connection")
    Conn.Open strConn

og linie 4 er ???

prøv : strConn = "DSN=AGI" eller lav den om dit dsnless.

//akj

Virker nu, ny fejl:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'set'.
/logistik/web/test_udregning.asp, line 41

ups
ret :
sql = "insert into tabelnavn"
sql = sql & " set"
sql = sql & "(quantity1,

til:
sql = "insert into tabelnavn"
sql = sql & " (quantity1,

set bruges kun ved update.

//akj

Yeeeeehaaaaaa!!!!!!

Uhh - Når jeg nu skal rette i det, hvad så?? Jeg kan ikke skrive :
where Id = " & Request("Id") & "

Hvad så???

/Bruhn

Hvad mener du med at rette i det ??

//akj

filen er en slags rapport, som hele tiden skal kunne ændres.. Derfor vil jeg gerne kunne rette i filen. Man opretter først del 1, uden udregninger, kun tekst. Der får filen et ID! Når man så skal lave udregningerne, åbner man det id, man skal lave, og taster talene ind.. Men lige nu kan den kun oprette en ny række.. Forstår du?

Så skal du bruge update komandoen.

conn.execute ("Update tabelnavn set quantity1 = " & quantity1 & "," & quantity2 = " & quantity2 ..... osv ")

//akj

Men der er jo stadig ikke angovet hvilken række den skal gå ind i.. Skal der ikke angives et id?
Eks.: where Id = " & Request("Id") & "

/Bruhn

sorry, jo selvfølgeligt skal der det

conn.execute ("Update tabelnavn set quantity1 = " & quantity1 & "," & quantity2 = " & quantity2 ..... osv where id = etellerandet")

ok Tak - Det prøver jeg lige..

Hvad er det lige der er galt?


sql = "Update [logistikrma_test]"
sql = sql & "(quantity1, quantity2,quantity3,quantity4,quantity5,quantity6, quantity7,quantity8,quantity9,quantity10,price1,price2,price3,price4,price5,price6,price7,price8,price9,price10,subtotal1,subtotal2,subtotal3,subtotal4,subtotal5,subtotal6,subtotal7,subtotal8,subtotal9,subtotal10,total ) "
sql = sql & " values "
sql = sql & "(" &  quantity1 & "," & quantity2 & "," & quantity3 & "," & quantity4 & "," & quantity5 & "," &  quantity6 & "," & quantity7 & "," & quantity8 & "," & quantity9 & "," & quantity10 & ","
sql = sql &  price1 &"," & price2 &"," & price3 &"," & price4 &"," & price5 & "," & price6 &"," & price7 &"," & price8 &"," & price9 &"," & price10 & ","
sql = sql &  subtotal1 &"," & subtotal2 &"," & subtotal3 &"," & subtotal4 &"," & subtotal5 & "," & subtotal6 &"," & subtotal7 &"," & subtotal8 &"," & subtotal9 &"," & subtotal10 & ","

sql = sql &  total & ") Where Id = " & Request("Id") & ""

conn.execute (sql)

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '('.

/logistik/web/rma_status_show_ny.asp, line 977