Fejl i SQL sætning ?

har sluset det ind til, at uanset hvilken sql-sætning jeg bruger, om det er en simpel:
SELECT * FROM Detail2 Where MomsYN=No
Kan jeg ikke få lov til at læse felterne.

Hvad mener du med at du ikke kan få lov til at læse felterne? Hvordan ser den ASP-kode ud som fejler for dog?

jeg har prøvet at koge den ned til noget så simpelt som:

momsSQL1 = "SELECT * From Detail2 WHERE ((FirmaID = '" & CompanyID & "') AND (BrugerID = '" & Session("MM_Username") & "') AND (MomsYN=No))"
        Set momsRS = Server.CreateObject("ADODB.Recordset")
        momsRS.ActiveConnection = MM_SW_STRING
        momsRS.Source = momsSQL1
        momsRS.CursorType = 0
        momsRS.CursorLocation = 2
        momsRS.LockType = 1
        momsRS.Open()
Response.Write momsRS("MomsKredit")

Og den returnerer 0 , selvom der står 55 i feltet i db'en

Når databasen driller, skyldes det i 9 ud af 10 tilfælde at SQL'en indeholder noget andet end det man tror. Derfor er det altid en god ide at starte sin fejlfindeing med at prøve at skrive den ud før at den udføres:

momsSQL1 = "SELECT * From Detail2 WHERE FirmaID = '" & CompanyID & "' AND BrugerID = '" & Session("MM_Username") & "' AND MomsYN=No"

Response.Write "DEBUG: " & momsSQL1 & "<br>"

Set momsRS = Server.CreateObject("ADODB.Recordset")
momsRS.ActiveConnection = MM_SW_STRING
momsRS.Source = momsSQL1
momsRS.CursorType = 0
momsRS.CursorLocation = 2
momsRS.LockType = 1
momsRS.Open()
Response.Write momsRS("MomsKredit")

SELECT * From Detail2 WHERE ((FirmaID = '1000') AND (BrugerID = 'hm') AND (MomsYN=No))

Det sjove er jo bare, at hvis jeg kopierer den førstnævnte sql, og indsætter den direkte i en forespørgsel i access, laver den præcis det den skal, med de rigtige data

Jeg kan ikke lige gennemskue denne linje:

momsRS.ActiveConnection = MM_SW_STRING

Normalt skal der stå en database-connection på højresiden.

den ligger i en anden fil, men den er ok

Det vælger jeg så at tage dit ord for - jeg har i hvert fald ingen mulighed for at tjekke efter. :^)

Hvad får du med:

Response.Write momsRS.Fields("MomsKredit")

- og hvad giver dette:

Response.Write momsRS.RecordCount

giver hhv. 0 og -1

-1 betyder at recordsettet slet ikke åbnes (og alt det andet vi har set understøtter dette). Du bliver nok nødt til at kigge kritisk på din MM_SW_STRING.

MM_SW_STRING = "dsn=database"

det er den samme connectionfil, jeg bruger igennem hele applikationen. Som efterhånden er blevet temmelig stor

Det bliver så ikke mindre kryptisk af, at hvis jeg skriver:
Response.Write momsRS("ID") får jeg 1008

Svare ID = 1008 til den post du skulle få ud?

ja, og i den første SQL jeg har skrevet i første post, virker også delvis... dvs. de 2 felter bliver ikke opdateret men alle de andre gør.

Meget mystisk.

Prøv lige at tjekke en ekstra gang efter at feltet virkeligt hedder "MomsKredit" i tabellen, og at der ikke f.eks. er kommet et blanktegn ind i starten (" MomsKredit") eller i slutningen ("MomsKredit ") af navnet. Den slags fejl kan godt drille rigtig meget.

problem løst... 
Det hjalp åbenbart at køre en repair på databasen.. (DOH) :/

Sådan kan det gå, når man sidder for længe med samme problem.
men smid lige et svar, så får du halvt point som tak for hjælpen :)

Et halvt point ;^)

Det kan jeg sagtens leve med :^)

der var jeg måske lige lidt for hurtig...
Det virkede 1 gang, men nu er jeg tilbage ved samme problem igen... 

Alle andre felter virkere, undtaget de 2 sidste  :(

Har du tjekket 18/05-2006 21:38:04?

ja, det har jeg checket... det skulle være ok...

hvis jeg laver en tom fil, med
Set momsRS = Server.CreateObject("ADODB.Recordset")
momsRS.ActiveConnection = MM_SW_STRING
momsRS.Source = momsSQL1
momsRS.CursorType = 0
momsRS.CursorLocation = 2
momsRS.LockType = 1
momsRS.Open()
Response.Write momsRS("MomsKredit")
så virker det tilsyneladende fint, men når den kommer ind i funkrionen, går det galt, og jeg kan kun trække de andre felter

Det lyder som om at din database er syg - hvordan ellers forklare at en repair skulle gøre nogen forskel. Det tyder ikke godt at problemet genopstår efter en søgning.

Prøv at skrive de kolonne du vil havde ud i stedet for * i select:

momsSQL1 = "SELECT MomsKredit, kol2. kol3 From blabla WHERE ..."



Bruger du:  momsRS("MomsKredit")  flere gange eller kun en gang?

Har prøvet med en helt frisk database.. intet resultat.

Har også prøvet at navngive de felter jeg skal bruge... hjalp heller ikke.

Her er koden til hele funktionen..

Jeg har mærket op der hvor det går galt med:
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


Function DanDetail2()

BogfOk = True
FaktBilOk = False
BilagFaktBil = 0
        Set Del = Server.CreateObject("ADODB.Command")
        Del.ActiveConnection = MM_SW_STRING
        Del.CommandText = "Delete From Detail2"
        Del.Execute
        Del.ActiveConnection.Close


V1 = RunQ_Bogf_DanDetail2Debet(Regnskabsaar(),CompanyID,Session("MM_Username"))

V2 = RunQ_Bogf_DanDetail2Kredit(Regnskabsaar(),CompanyID,Session("MM_Username"))

V3 = RunQ_Bogf_FindMomssats(Regnskabsaar(),CompanyID,Session("MM_Username"))

V4 = RunQ_Bogf_FindMomskonti(CompanyID)


V5 = RunQ_Bogf_DanDetail2Periode()

FrDato = DLookup("FraDato", "Regnskabsaar", "FirmaID = '" & CompanyID & "' AND RegnID = '" & Regnskabsaar() & "'")
TiDato = DLookup("TilDato", "Regnskabsaar", "FirmaID = '" & CompanyID & "' AND RegnID = '" & Regnskabsaar() & "'")
DanDetail2 = True

        SQL = "SELECT DISTINCTROW Detail2.Bilag, Detail2.Dato, Detail2.Debkr, Detail2.DebKrNr, Detail2.Konto, Detail2.Debet, Detail2.Kredit, Detail2.Vdebet, Detail2.Vkredit, Detail2.Faktura, Detail2.Udlign, Detail2.VedrFakt, Detail2.Valuta, Detail2.MomsYN, Detail2.Momssats, Detail2.MomsKonto, Detail2.MomsDebet, Detail2.MomsKredit, Detail2.MomsKonto, Detail2.TransID, Detail2.AccType, Detail2.BDato"
        SQL = SQL & " FROM Detail2 "

        Set Dy_Detail2 = Server.CreateObject("ADODB.Recordset")
        Dy_Detail2.ActiveConnection = MM_SW_STRING
        Dy_Detail2.Source = SQL
        Dy_Detail2.CursorType = 0
        Dy_Detail2.CursorLocation = 2
        Dy_Detail2.LockType = 2
        Dy_Detail2.Open()

        SQL2 = "Select * FROM MSatser Where FirmaID = '" & CompanyID & "' ORDER BY FraDato"
        Set Dy_Msats = Server.CreateObject("ADODB.Recordset")
        Dy_Msats.ActiveConnection = MM_SW_STRING
        Dy_Msats.Source = SQL2
        Dy_Msats.CursorType = 2
        Dy_Msats.CursorLocation = 2
        Dy_Msats.LockType = 1
        Dy_Msats.Open()

SumDebet = 0
SumKredit = 0
Do Until Dy_Detail2.EOF
    SumDebet = SumDebet + Dy_Detail2("Debet")
    SumKredit = SumKredit + Dy_Detail2("Kredit")
    If (IsNull(Dy_Detail2("VedrFakt")) Or Dy_Detail2("VedrFakt") <= 0) Then Dy_Detail2("VedrFakt") = Dy_Detail2("Faktura")
    If (IsNull(Dy_Detail2("VedrFakt")) Or Dy_Detail2("VedrFakt") <= 0) Then Dy_Detail2("VedrFakt") = 0
    Debkr = Left(Dy_Detail2("Konto"), 1)
    If (Debkr = "D" Or Debkr = "C") Then
        Dy_Detail2("Debkr") = Debkr
        Dy_Detail2("DebKrNr") = Right(Dy_Detail2("Konto"), Len(Dy_Detail2("Konto")) - 1)
        Dy_Detail2("MomsYN") = True
        If IsNull(Dy_Detail2("BDato")) Then Dy_Detail2("BDato") = Dy_Detail2("Dato")
        If (IsNull(Dy_Detail2("VedrFakt")) Or Dy_Detail2("VedrFakt") <= 0) Then Dy_Detail2("VedrFakt") = Dy_Detail2("Faktura")
        If (IsNull(Dy_Detail2("VedrFakt")) Or Dy_Detail2("VedrFakt") <= 0) Then Dy_Detail2("VedrFakt") = 0
        If Dy_Detail2("VedrFakt") = 0 Then
            Dy_Detail2("VedrFakt") = Dy_Detail2("Bilag")
            FaktBilOk = True
            If BilagFaktBil = 0 Then BilagFaktBil = Dy_Detail2("Bilag")
        End If
    End If
If Dy_Detail2("Valuta") <> "" then
    DkursVar =     DLookup("Dkurs", "Valuta", "Valuta = '" & Dy_Detail2("Valuta") & "'")
end if
    ' Valuta '
    If IsNull(Dy_Detail2("Valuta")) Or DkursVar = 100 Then
        Dy_Detail2("Debet") = Dy_Detail2("Vdebet")
        Dy_Detail2("Kredit") = Dy_Detail2("Vkredit")
    Else


        If DkursVar > 0 Then
            Kurs = DkursVar / 100
            If Dy_Detail2("Vdebet") = 0 Then Dy_Detail2("Vdebet") = Fix(0.5 + 100 * Dy_Detail2("Debet") / Kurs) / 100
            If Dy_Detail2("Vkredit") = 0 Then Dy_Detail2("Vkredit") = Fix(0.5 + 100 * Dy_Detail2("Kredit") / Kurs) / 100
            If Dy_Detail2("Vdebet") < 0 Then Dy_Detail2("Vdebet") = 0
            If Dy_Detail2("Vkredit") < 0 Then Dy_Detail2("Vkredit") = 0
        End If
    End If
    ' Moms '
    If IsNull(Dy_Detail2("Momssats")) Then Dy_Detail2("MomsYN") = True
    If Dy_Detail2("MomsYN") = False Then
        Criteria = "Momssats = '" & Dy_Detail2("Momssats") & "' "
                Dy_Msats.MoveFirst
        SatsPro = 0
        While NOT Dy_Msats.EOF
            If ((Dy_Msats("FraDato") <= Dy_Detail2("Dato")) AND (Dy_Msats("Momssats") = Dy_Detail2("Momssats"))) Then SatsPro = Dy_Msats("Sats")
            Dy_Msats.MoveNext
        Wend
        If SatsPro = 0 Then Dy_Detail2("MomsYN") = True
        If SatsPro > 0 Then
            Dy_Detail2("MomsDebet") = Fix(0.5 + 100 * SatsPro * Dy_Detail2("Debet") / (100 + SatsPro)) / 100
            Dy_Detail2("MomsKredit") = Fix(0.5 + 100 * SatsPro * Dy_Detail2("Kredit") / (100 + SatsPro)) / 100
            Dy_Detail2("Debet") = Dy_Detail2("Debet") - Dy_Detail2("MomsDebet")
            Dy_Detail2("Kredit") = Dy_Detail2("Kredit") - Dy_Detail2("MomsKredit")
        End If
    End If
    Dy_Detail2.Update

    If Dy_Detail2("Dato") < FrDato Or Dy_Detail2("Dato") > TiDato Then
        BogfOk = False
("Regn_014"), , GetMsg("Sys_101")
    End If
    If Not IsNull(Dy_Detail2("Momssats")) And IsNull(Dy_Detail2("MomsKonto")) Then
        BogfOk = False
("Regn_064"), , GetMsg("Sys_101")
    End If

    If (Dy_Detail2("Debkr") = "D" Or Dy_Detail2("Debkr") = "C") Then
        If Len(Dy_Detail2("Konto")) <= 1 Then
("Regn_015"), , GetMsg("Sys_101")
            BogfOk = False
        End If
        If (IsNull(Dy_Detail2("VedrFakt")) Or Dy_Detail2("VedrFakt") <= 0) Then
("Regn_016"), , GetMsg("Sys_101")
            BogfOk = False
        End If
    End If
    If BogfOk = False Then Exit Do
    Dy_Detail2.MoveNext
Loop
Dy_Detail2.Close


'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 

        SQL1 = "INSERT INTO Detail2 ( RegnID, FirmaID, BrugerID, Debet, Kredit, Tekst, Konto, Bilag, Dato, MomsYN, Perioder, PeriodeNr )"
        SQL1 = SQL1 & " SELECT DISTINCTROW Detail2.RegnID, Detail2.FirmaID, Detail2.BrugerID, Detail2.MomsDebet, Detail2.MomsKredit, 'Moms  ' & Detail2.Konto AS Expr3, Detail2.MomsKonto, Detail2.Bilag, Detail2.Dato, Detail2.MomsYN, Detail2.Perioder, Detail2.PeriodeNr"
        SQL1 = SQL1 & " FROM Detail2"
        SQL1 = SQL1 & " WHERE (((Detail2.MomsYN)=No))"

        Set Run1 = Server.CreateObject("ADODB.Command")
        Run1.ActiveConnection = MM_SW_STRING
        Run1.CommandText = SQL1
        Run1.Execute
        Run1.ActiveConnection.Close

        SQL = "SELECT DISTINCTROW Detail2.RegnID, Detail2.BrugerID, Detail2.FirmaID, Detail2.Bilag, Sum([DEBET]-[KREDIT]) AS BogfDif"
        SQL = SQL & " FROM Detail2"
        SQL = SQL & " GROUP BY Detail2.RegnID, Detail2.BrugerID, Detail2.FirmaID, Detail2.Bilag"
        SQL = SQL & " HAVING (((Detail2.RegnID)='" & Regnskabsaar() & "') AND ((Detail2.BrugerID)='" & Session("MM_Username") & "') AND ((Detail2.FirmaID)='" & CompanyID & "') AND ((Sum([DEBET]-[KREDIT]))<>0))"

        Set Dy_Detail2 = Server.CreateObject("ADODB.Recordset")
        Dy_Detail2.ActiveConnection = MM_SW_STRING
        Dy_Detail2.Source = SQL
        Dy_Detail2.CursorType = 0
        Dy_Detail2.CursorLocation = 2
        Dy_Detail2.LockType = 1
        Dy_Detail2.Open()





If Dy_Detail2.RecordCount > 0 Then
    BogfOk = False
End If


DanDetail2 = BogfOk
End Function

og hvis jeg stopper funktionen ved markeringen, og lægger de næste 1o linier i en tom fil, virker det perfekt.

Du siger at alle de andre kolonner kommer i en ny post undtagen Debet, Kredit som ikke får en værdi?

Hvis du stopper ved 'XXXXX og åber databasen igen med Access og kigger i MomsDebet, MomsKredit har de så en værdi forskellig fra 0?

//Du siger at alle de andre kolonner kommer i en ny post undtagen Debet, Kredit som ikke får en værdi?

Det er korrekt.

//Hvis du stopper ved 'XXXXX og åber databasen igen med Access og kigger i MomsDebet, MomsKredit har de så en værdi forskellig fra 0?

I den eksisterende post, ja. Der er der en værdi.
Men den bliver som sagt ikke trukket med over i den nye post.

kan det være ODBC Der bare kører for langsomt ?

Tja det lyder lidt underligt den ikke skulle kunne klare det men du kan da prøve en anden driver:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"


Retter du kun i de to kolonner: MomsDebet, MomsKredit ?

Ved godt det er imod alt programmeringsskik, men jeg prøvede at sætte den her ind, ved markeringen:

Do until CountVar = 4000000
CountVar = CountVar + 1
Loop

Den giver mig ca. 3 sekunder, og det var umiddelbart nok til at trække beløbet med i den næste post.

Jeg vil ikke sige for meget nu :)

Men jeg kan da lige prøve med den anden driver

har prøvet med den anden driver.
Det blev det kun værre af.

Nu kom der dobbelt af de sidste poster

Findes der en måde, hvor man (uden at smadre cpu'en på webserveren) kan lave en pause i et asp-script, så "bedstefar"-ODBC kan snøvle sig færdig ?

Nej der er ikke en pæn måde at lave en vente funktion i ASP. Så skal man nok i i at bruge html meta-tag relead option eller lave et javascript som reloader siden efter nogle sekunder.


Du kan prøve at køre din SQL på et connection obejcet og ikke command obeejct så dette:


        SQL1 = "INSERT INTO Detail2 ( RegnID, FirmaID, BrugerID, Debet, Kredit, Tekst, Konto, Bilag, Dato, MomsYN, Perioder, PeriodeNr )"
        SQL1 = SQL1 & " SELECT DISTINCTROW Detail2.RegnID, Detail2.FirmaID, Detail2.BrugerID, Detail2.MomsDebet, Detail2.MomsKredit, 'Moms  ' & Detail2.Konto AS Expr3, Detail2.MomsKonto, Detail2.Bilag, Detail2.Dato, Detail2.MomsYN, Detail2.Perioder, Detail2.PeriodeNr"
        SQL1 = SQL1 & " FROM Detail2"
        SQL1 = SQL1 & " WHERE (((Detail2.MomsYN)=No))"

        Set Run1 = Server.CreateObject("ADODB.Command")
        Run1.ActiveConnection = MM_SW_STRING
        Run1.CommandText = SQL1
        Run1.Execute
        Run1.ActiveConnection.Close




Bliver til dette:


        SQL1 = "INSERT INTO Detail2 ( RegnID, FirmaID, BrugerID, Debet, Kredit, Tekst, Konto, Bilag, Dato, MomsYN, Perioder, PeriodeNr )"
        SQL1 = SQL1 & " SELECT DISTINCTROW Detail2.RegnID, Detail2.FirmaID, Detail2.BrugerID, Detail2.MomsDebet, Detail2.MomsKredit, 'Moms  ' & Detail2.Konto AS Expr3, Detail2.MomsKonto, Detail2.Bilag, Detail2.Dato, Detail2.MomsYN, Detail2.Perioder, Detail2.PeriodeNr"
        SQL1 = SQL1 & " FROM Detail2"
        SQL1 = SQL1 & " WHERE (((Detail2.MomsYN)=No))"

        Set Run1 = Server.CreateObject("ADODB.ConnectionObject")
        Run1.Open MM_SW_STRING
        Run1.Execute (SQL1)
        Run1.Close

hov :
        Set Run1 = Server.CreateObject("ADODB.ConnectionObject")
skal være uden 'Object':

        Set Run1 = Server.CreateObject("ADODB.Connection")

samme resultat

Hvis du brugte OLE.DB driveren kom værdierne så rigtigt med eller var det samme problem?

Det lyder som noget timing hvis du han vente i 3 sekunder og så det virker... så jeg må erkende jeg har ikke flere forslag lige nu. Jeg skal også i seng.

Så vil jeg tillade mig at sige problemet endelig er løst... sådan da..

Det kræver åbenbart sin tid for serveren, at opdatere databasen, så med en smule omprogrammering, har jeg lagt sql-kaldet ned under det næste kald, så løber den tabellen igennem som alm. record først, og opdaterer bagefter.
Det ser ud til at virke. (Har i hvert fald testet det 20 gange nu) :)

eagleeye smider du også lige et svar, så deler i bare pointsne, da i har hjulpet min hjerne i gang med at tænke igen *LOL*  :)

Hvad sker der egentlig hvis du ikke går via et recordset? (så vidt jeg kan se så bruger du det alligevel ikke til noget:

Altså, neget med at ændre sådan noget som:

    Set Dy_Detail2 = Server.CreateObject("ADODB.Recordset")
    Dy_Detail2.ActiveConnection = MM_SW_STRING
    Dy_Detail2.Source = SQL
    Dy_Detail2.CursorType = 0
    Dy_Detail2.CursorLocation = 2
    Dy_Detail2.LockType = 1
    Dy_Detail2.Open()

- til:

    Set Dy_Detail2 = Server.CreateObject("ADODB.Command")
    Dy_Detail2.ActiveConnection = MM_SW_STRING
    Dy_Detail2.CommandText = SQL
    Dy_Detail2.Execute
    Dy_Detail2.ActiveConnection.Close

(det kan jo også tænkes at det er nok at kalde Close i dit allerede eksisterende kode).

Ok så kommer her et svar ;-)

Jeg kan godt følge dig, men det pågældende recordset er efter problemet var opstået,
under test, havde jeg response.end() lige før