ASP, sql spørgsmål

du kunne jo loope alle dine ordre igennem, hvilket du jo gør efterhånden som de udskrives

og så baer lige inden hver ny linje

strSQL = "SELECT DebitorID from tabelnavn WHERE DebitorNR = '"&rs("OrderBuyerPhone")&"'"
Set rsDebitor = Conn.Execute(strSQL)

Tak for svaret.

Ville det så ikke blive lidt som dette, når det er fra 2 databaser?

Den laver en: fejl '80020009'


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/shop.mdb")
Conn.Open DSN

Set Con = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/sigma.dk.mdb")
Con.Open DSN


strSQL = "SELECT OrderID,OrderNumber,OrderCreatedDateTime,OrderCompletedDateTime,OrderBuyerName,OrderBuyerPhone,SUM(OrderProductPriceSum) AS sum FROM viewOrderProduct  WHERE OrderNumber > 100000 GROUP BY OrderID,OrderNumber,OrderCreatedDateTime,OrderCompletedDateTime,OrderBuyerName,OrderBuyerPhone"
Set rs = Conn.Execute(strSQL)


Do while not. rs.eoF

strSQL = "SELECT * from Debitor WHERE DebitorNR = '"&rs("OrderBuyerPhone")&"'"
Set rsDebitor = Con.Execute(strSQL)

Response.write ....

loop

Hmm. Prøvede at ændre lidt. Nu får jeg en:

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "DebitorNr = 00 11 22 33".

(nummeret eksisterer i db).

--------

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/shop.mdb")
Conn.Open DSN

Set Con = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/Sigma.dk.mdb")
Con.Open DSN


strSQL = "SELECT OrderID,OrderNumber,OrderCreatedDateTime,OrderCompletedDateTime,OrderBuyerName,OrderBuyerPhone,SUM(OrderProductPriceSum) AS sum FROM viewOrderProduct  WHERE OrderNumber > 100000 GROUP BY OrderID,OrderNumber,OrderCreatedDateTime,OrderCompletedDateTime,OrderBuyerName,OrderBuyerPhone"
Set rs = Conn.Execute(strSQL)

DO

Set str = Con.Execute("Select * From Debitor Where DebitorNr = " & rs("OrderBuyerPhone") & "")
Set rsDebitor = Con.Execute(str)

loop

altså .. selve koden ser jo rigtigt nok ud ..

jeg gætter fejlen den kommer med i første eksempel er i linjen med :
strSQL = "SELECT * from Debitor WHERE DebitorNR = '"&rs("OrderBuyerPhone")&"'"

i så fald ku det tyde på at den ikke har selected feltet OrderBuyerPhone

Så virker det!

Du hjalp mig godt på vej. Jeg prøvede at smide en On Error Resume Next, og så kørte forslag 1. Jeg havde tilrettet nummeret, men efterfølgende nr. fejlede.

Smid et svar :-)

sådan der .. :)