SQL spørgsmål

En simpel udgave af min tabel

id - primary key og autonummer
Kundenavn - tekst
kundekøb - tekst
status - tekst

kan du i status ikke bare skrive: WHERE NOT status = 'mangler' AND status = 'betalt'

laver en update....hvis han er i databasen updatere du feltet hvor betalt er angivet med den nye data.

Ehm... er det ikke fordi dit databasedesign har et problem med multiplicitet mellem ordrer og kunder... den nuværende lyder til at give noget (læs: en del!) redundans, hvilket jo ikke er særlig hensigtsmæssigt.

Reelt set burde du have en tabel til ordrer og en til kunder. Hvordan den oversigt skal fungere kan jeg ikke helt gennemskue. Det lyder som om du gerne vil have at kunden ikke figurerer på liste, hvis bare der er en linie med kundens id som har status <> "betalt"... er det korrekt?

Jeg ved godt der kommer meget redundans, men det er sådan vi skal lave det af en eller anden årsag.

og ja det er præcis det jeg ønsker! men istedet for id skal det være kundenavn:)

Det gør ikke noget hvis der først skal køres en seperat sql/løkke for, at undersøge det

Prøv evt. med denne her:

strSQL = "" & _
"SELECT * " & _
"FROM kunde " & _
"WHERE kundenavn='"&strKundenavn&"' AND " & _
"  (SELECT COUNT(*) " & _
"  FROM kunde " & _
"  WHERE kundenavn='"&strKundenavn&"' " & _
"    AND status <> 'Betalt') = 0"

kræver den ikke, at jeg indtaster et kundenavn?

Jo, prøv lige dette i stedet:

strSQL = "" & _
"SELECT k.* " & _
"FROM kunde AS k " & _
"WHERE " & _
"  (SELECT COUNT(k1.*) " & _
"  FROM kunde AS k1 " & _
"  WHERE k1.kundenavn=k.kundenavn " & _
"    AND k1.status <> 'Betalt') = 0"

Det er altså helt utestet!

det helt i orden:) spredhagl er velkommen her!

jeg får dog denne fejl

ODBC driver does not support the requested properties.

Jeg går i seng nu, men håber du vil forsøge dig igen i morgen:)

Jeg vil ikke love at jeg rent faktisk kan finde et simpel løsning på det, men så kan man jo altid vælge den komplicerede udgave ;-)

Det gør, som sagt ikke noget hvis man først skal køre en seperat løkke eller lignende eller om det skal løses på en besværlig måde:)

kan man ikke køre denne løkke først ud fra denne SQL

strSQL = "SELECT * FROM kunde WHERE status = 'Betalt'"

og bagefter køre en ny løkke hvor man fjerner alle kundenavn'e som har hvis de også er indskrevet igen med en status = 'Mangler'

måske ?

SELECT * FROM kunde WHERE kundenavn = rs("kundenavn") AND status <> 'Mangler'

Jeg ved bare ikke hvordan det skal laves, men håber du kan se ideen med det

hvis man køre bruger denne

strSQL = "SELECT * FROM kunde WHERE status = 'Betalt'"

og gemmer alt der bliver udskrevet i en array hvordan gør jeg så det?

for så kan jeg efterfølgende køre denne

SELECT * FROM kunde WHERE kundenavn = array[x] AND status <> 'Mangler'

Det er jeg sikker på vil virke, men har lavet array[] i ASP

Hmmm... det iriterer mig at jeg ikke kan finde ud af hvordan den forspørgsel skal skrues sammen, så man ikke behøver at kalde databasen for hver kunde! :|

Nå, men så lad os prøv dit forslag:

' åben din connection her og læg den i variablen conn
SQL = "SELECT * FROM kunde WHERE status = 'Betalt'"
set rs = conn.execute(SQL)
do while not rs.eof
  SQL = "SELECT COUNT(*) AS AntalMangler FROM kunde WHERE kundenavn = '" & rs("kundenavn") & "' AND status <> 'Betalt'"
  set rs2 = conn.execute(SQL)
  if rs2("AntalMangler") = 0 then
    ' vis denne kundes informationer
    ' data hentes fra variablen rs...
  end if
  rs2.Close

  rs.movenext
loop
rs.close

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'execute'

ved

Microsoft VBScript runtime error '800a01b6'

set rs = conn.execute(SQL)

koden er identisk med din, men med denne øverst som du skriver

Set conn = Server.CreateObject("ADODB.RecordSet")

set conn = server.createobject("ADODB.Connection")
conn.open <din connectionstring som jeg af gode grunde ikke kender!!>

Jeg prøver virkelig:) men samme fejl

<%

Set conn = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
SQL = "SELECT * FROM kunde WHERE status = 'Betalt'"
conn.open SQL,strDSN, 1
set rs = conn.execute(SQL)
do while not rs.eof
SQL = "SELECT COUNT(*) AS AntalMangler FROM kunde WHERE kundenavn = '" & rs("kundenavn") & "' AND status <> 'Betalt'"
  set rs2 = conn.execute(SQL)
  if rs2("AntalMangler") = 0 then
  rs("firmanavn")
  end if
  rs2.Close

  rs.movenext
loop
rs.close
%>

Ja, men du ændrer også i essentielle dele af det jeg skriver (og det er ikke meningen ;-)):

<%

Set conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
conn.open strDSN
SQL = "SELECT * FROM kunde WHERE status = 'Betalt'"
set rs = conn.execute(SQL)
do while not rs.eof

  SQL = "SELECT COUNT(*) AS AntalMangler " & _
    "FROM kunde " & _
    "WHERE kundenavn = '" & rs("kundenavn") & "' " & _
    "AND status <> 'Betalt'"

  set rs2 = conn.execute(SQL)
  if rs2("AntalMangler") = 0 then
    rs("firmanavn")
  end if
  rs2.Close

  rs.movenext
loop
rs.close
%>

Jeg tror næsten den er der

Wrong number of arguments or invalid property assignment: 'rs'

det er her

rs("firmanavn")

har ændret den tilbage til

rs("kundenavn")

men samme fejl

Ja, du skal vel også gøre noget med den værdi, f.eks. skrive den ud til browseren med response.write rs("kundenavn")...?

Det er den del jeg overlader til dig, for det har noget med layout af din side at gøre, så det ved jeg slet ikke noget om... :)

sorry:) opdagede det først lidt efter, men afprøver lige:)

Det virker desværre ikke.
Jeg har smidt en test kunde ind syv gange. 6 hvor status mangler og en hvor status er betalt, men han kommer stadig frem på listen:(

Jeg kan sagtens forstå din kode og den ser ellers fornuftig ud!

Jeg har udskrevet AntalMangler og den står godt nok til 0 på den, men der er ellers 6 i databasen med status 'mangler'

virker måske med

  SQL = "SELECT COUNT(*) AS AntalMangler " & _
    "FROM kunde " & _
    "WHERE firmanavn = '" & rs("firmanavn") & "' " & _
    "AND status = 'Mangler'"

tester lige!

Kan du ikke prøve at vise dine data?

hmm nej det virkede ikke.
Der kom bare ikke noget ud overhovedet på den måde.

Jeg vil ikke være uhøflig, men bliver lige nød til at gå i en time:(

Vil du se indholdet af databasen? Det paster jeg her ind så snart jeg er tilbage:)

Super! :)

id - primary key og autonummer
Kundenavn - tekst
kundekøb - tekst
status - tekst
ordrenr - nr


ID    kundenavn    kundekøb    status        ordrenr
1    Hans            Hotel          Mangler      10
2    Hans            Hotel          Betalt      11   
3    Hans            Hotel          Betalt      12   
4    Hans            Hotel          Betalt      13   
5    Hans            Hotel          Betalt      14   
6    Hans            Hotel          Betalt      15
7    Hans            Hotel          Betalt      16

Jeg har lige prøvet at lægge noget strengbehandling ind i SQL-sætningerne, for med det datagrundlag burde det altså at fungere med de modeller vi efterhånden er kommet frem til. Dog skal vi kun have valgt de forskellige kunder en gang - jeg er ikke helt sikker på at min SELECT DISTINCT fungerer, men prøv det lige:

<%
Set conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
conn.open strDSN
SQL = "SELECT DISTINCT kundenavn, id, [kundekøb], status, ordrenr " & _
  "FROM kunde WHERE lcase(trim(status)) = 'betalt'"
set rs = conn.execute(SQL)
do while not rs.eof

  SQL = "SELECT COUNT(*) AS AntalMangler " & _
    "FROM kunde " & _
    "WHERE lcase(trim(kundenavn)) = '" & lcase(trim(rs("kundenavn"))) & "' " & _
    "AND lcase(trim(status)) <> 'betalt'"

  set rs2 = conn.execute(SQL)
  if cint(rs2("AntalMangler")) = 0 then
    Response.Write rs("kundenavn") & "<br>"
  end if
  rs2.Close

  rs.movenext
loop
rs.close
%>

softspot du er for syg:[--------]

Det virker næsten som det skal!! Den udskriver bare Hans 7 gange hvilket ikke er nødvendigt:) en gang er fint..
kan det klares med group by eller lignende?

Du kan bare ligge et svar:)

løste det med en ekstra variabel.. hvis det er grim kode så sig lige til

if cint(rs2("AntalMangler")) = 0 then
  if tmp = rs("kundenavn") then
  response.write("")
  else
    Response.Write rs("kundenavn") & "<br>"
  end if

tmp =  rs("kundenavn")
  rs.movenext

Hmmm... idéen med at bruge DISTINCT var egentlig at fjerne alle de "overflødige" rækker med samme kundenavn, så det spiller åbenbart ikke helt så godt som jeg gerne ville have... :'(

Det lader til at jeg lige skal have kigget på DISTINCT igen...

Du ligger bare et svar:)
Det kører fint nu, men kan altid vende tilbage hvis der skulle være problemer med det

OK, men jeg ville gerne have afleveret en ordentlig SQL-sætning til dig... :)

Jeg er helt tilfreds:)
Skal heller ikke give dig hovedpine:)

Tak for point (og din omsorg for mit hoveds velbefindende) :)