SQL-syntakst

Prøv http://www.sql.org/

Findes der noget på dansk

Ikke jeg ved af :(

det tror jeg ikke du skal regne med :(

... se på den lyse side, syntax\'en er den samme :)

http://www.devguru.com/
der der findes også en del om SQL (under Jet SQL)

Er der så en som kan hjælpe med:

Nedenstånede skulle tage alle personer i deltager-tabellen undtagen dem der er kontaktpersoner, men det fungerer ikke.

Set rs = db.OpenRecordset(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' And Kontaktperson = False)

Set rs = db.OpenRecordset(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' And Kontaktperson = False\")

og hvsi det ikke virker så kom lige med lidt mere kode, for det :)
set rs = db.execute(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' And Kontaktperson = False\")

måske??

for det = for så kan jeg lige lave koden fuldt ud :)

Her er hele functionen:

Public Function BeregnPris(Klub_Nr)

    Dim db As Database
    Dim rs As Recordset
    Dim pris As Long

    Set db = CurrentDb
    Set rs = db.OpenRecordset(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' & And \"Kontaktperson\" = False)
    pris = 0
    If Not (rs.BOF And rs.EOF) Then
      rs.MoveFirst
      While Not rs.EOF
        If (rs!Idraets_ID = 5) And (rs!Alder < 15) Then
          pris = pris + 250
        Else
          pris = pris + 450
        End If
          rs.MoveNext
      Wend
    End If
    rs.Close
    BeregnPris = pris
   
End Function

Public Function BeregnPris(Klub_Nr)

    Dim db As Database
    Dim rs As Recordset
    Dim pris As Long

    Set db = CurrentDb
    Set rs = db.execute(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' & And Kontaktperson = False)
    pris = 0
    If Not (rs.BOF And rs.EOF) Then
      rs.MoveFirst
      While Not rs.EOF
        If (rs(\"Idraets_ID\") = 5) And (rs(\"Alder\") < 15) Then
          pris = pris + 250
        Else
          pris = pris + 450
        End If
          rs.MoveNext
      Wend
    End If
    rs.Close
    BeregnPris = pris
   
End Function

Der er syntax error

Public Function BeregnPris(Klub_Nr)

    Dim db As Database
    Dim rs As Recordset
    Dim pris As Long

    Set db = CurrentDb
    Set rs = db.execute(\"SELECT * FROM Tabel_Deltager WHERE Klub_Nr = \'\" & Klub_Nr & \"\' & And Kontaktperson = False\")
    pris = 0
    If Not (rs.BOF And rs.EOF) Then
      rs.MoveFirst
      While Not rs.EOF
        If (rs(\"Idraets_ID\") = 5) And (rs(\"Alder\") < 15) Then
          pris = pris + 250
        Else
          pris = pris + 450
        End If
          rs.MoveNext
      Wend
    End If
    rs.Close
    BeregnPris = pris
   
End Function

Øhh, ok...

tjaa spørgsmålet røg over i asp i stedet for :)

Jeps....

Hej tpill

Hvad er forskellen på OpenRecordset og db.execute?

Jeg mener

Hvad er forskellen på DB.OpenRecordset og db.execute?   

 

tjaa ved jeg faktisk ikke helt men jeg har altid brugt execute :)