Avatar billede bojohansen Nybegynder
15. marts 2009 - 22:49 Der er 5 kommentarer og
1 løsning

kontrollere om Rs er tomt.

Hvorfor er det lige at jeg ikke får udskrevet hverken
Response.Write("Hallo<br>")
Eller
Response.Write("bøøøøøøh")

Når tblTypeCode ikke indeholder nogen data. Hele Databasen er tom.

arrTypeCode = Split(SplitSingleLine, " ")
'Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
Do Until RsTypeCode.EOF
    If RsTypeCode("TypeCode") = arrTypeCode(2) Then
        TypeCodeId = RsTypeCode("Id")
        Response.Write(RsTypeCode("Id"))
    Else
        tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
        'Conn.Execute(tblTypeCodeSql)
       
        'Hent det nye ID nummer
        'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
        'Set RsNewId = Conn.Execute(tblTypeCodeSql)
        'TypeCodeNewId = RsNewId("NewID")
       
    End If
RsTypeCode.movenext
Loop
Avatar billede bojohansen Nybegynder
15. marts 2009 - 22:50 #1
ahh damm. skulle ha været :

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
Do Until RsTypeCode.EOF
    If RsTypeCode("TypeCode") = arrTypeCode(2) Then
        TypeCodeId = RsTypeCode("Id")
        Response.Write(RsTypeCode("Id"))
        Response.Write("Hallo<br>")
    Else
        tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
        'Conn.Execute(tblTypeCodeSql)
       
        'Hent det nye ID nummer
        'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
        'Set RsNewId = Conn.Execute(tblTypeCodeSql)
        'TypeCodeNewId = RsNewId.Fields("NewID").value
       
    End If
RsTypeCode.movenext
Loop
Avatar billede Slettet bruger
15. marts 2009 - 22:57 #2
Det er vel netop fordi at din database er tom... Den finder ikke nogle records den kan bladre igennem... prøv med følgende:

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
if RsTypeCode.EOF=True then
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
else
Do Until RsTypeCode.EOF
    If RsTypeCode("TypeCode") = arrTypeCode(2) Then
        TypeCodeId = RsTypeCode("Id")
        Response.Write(RsTypeCode("Id"))
        Response.Write("Hallo<br>")
    Else
        tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
        'Conn.Execute(tblTypeCodeSql)
       
        'Hent det nye ID nummer
        'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
        'Set RsNewId = Conn.Execute(tblTypeCodeSql)
        'TypeCodeNewId = RsNewId.Fields("NewID").value
       
    End If
RsTypeCode.movenext
Loop
end if

Du skal tjekke om der er noget i databasen inden du laver dit loop... Og her gør den så dette og udskriver noget hvis databasen er tom...

\Dan
Avatar billede bojohansen Nybegynder
15. marts 2009 - 23:10 #3
Ja self. :-)

Men da burde dette jo være nok :

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
if RsTypeCode.EOF=True then
    tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
    Response.Write(tblTypeCodeSql)
    Response.Write("bøøøøøøh")
    'Conn.Execute(tblTypeCodeSql)

    'Hent det nye ID nummer
    'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
    'Set RsNewId = Conn.Execute(tblTypeCodeSql)
    'TypeCodeNewId = RsNewId.Fields("NewID").value
                               
else
Do Until RsTypeCode.EOF
                If RsTypeCode("TypeCode") = arrTypeCode(2) Then
                                TypeCodeId = RsTypeCode("Id")
                                Response.Write(RsTypeCode("Id"))
                                Response.Write("Hallo<br>")                                       
                End If
RsTypeCode.movenext
Loop
end if
Avatar billede Slettet bruger
15. marts 2009 - 23:15 #4
Ja... det burde være nok - alt afhængig af hvad det egentlig er du vil... men det ved du vel bedst selv...

- hermed et svar...

\Dan
Avatar billede bojohansen Nybegynder
15. marts 2009 - 23:20 #5
Tak for det.

Ja den ser jo om EOF=True. Er den det så oprettes den record og tar ud ny Id.

Ellers finder den Record og tar ud ny Id

Så det burde holde, skal bare bruge Ny Id eller eksisterende Id til en relation
Avatar billede Slettet bruger
15. marts 2009 - 23:25 #6
ok... jamen held og lykke med dit hjemmeside-projekt!

- og tak for point...

\Dan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester