[sql] foutmelding

[Verwijderd]

Programma aan het schrijven ( proberen !!) van volgende flowchart:

Initialiseer

Neem ingezet getal

Neem een lotto getal

· Komt het lottogetal overeen met ingezet getal: Kleur ingezet getal (1)

· Komt het lottogetal niet overeen met het ingezet getal: Neem een nieuw lotto getal

Vervolg van (1)

· Zijn alle ingezette getallen gekleurd ? Ja dus er is een Winnaar

· Zijn alle ingezette getallen gekleurd ? Neen dus Ga naar “neem ingezet getal”

Gebaseerd op twee tabellen

Waar zit hier de fout ??

Visual Basic:

Option Compare Database
Public Sub OpdrachtmetQuotering()
Dim db As Database, rs1 As Recordset, rs2 As Recordset, vrij As Boolean, vlag As Boolean, quotering As Integer
Set db = CurrentDb
Set rs1 = db.OpenRecordset("inzet")
Set rs2=db.OpenRecordset("lotto")
rs1.MoveFirst
      Do While Not rs1.EOF 'lus opdrachten

vlag = False ' zet vlag om te zien of de opdracht wel kan geplaatst worden

        rs2.MoveFirst
        Do While Not rs2.EOF
              rs1.MoveNext
        Loop

MsgBox " Einde van de plaatsing "

End Sub

Bedankt !!

[ Voor 4% gewijzigd door .oisyn op 30-12-2003 16:11 ]

[Verwijderd]

Hoezo wat zit hier fout? Krijg je een foutmelding?

[.oisyn]

Hoi, welkom op GoT
Lees ook even de verplichte kost, namelijk De P&W FAQ en De "quickstart"
Daarin staan algemene richtlijnen over het posten in P&W. De Algemene GoT FAQ is natuurlijk ook belangrijk.

Welnu, ik zie dat je je topic ook in Software Algemeen hebt geopend. Dat heet crossposten, en dat is niet gewenst. Ik heb een collega op de hoogte gesteld, hij gaat daar dus dicht omdat hij hier het best past.

Gebruik ook code tags om je code wat duidelijker weer te geven. In dit geval gaat het over visual basic for applications, oftewel VBA, wat een afgeleide van VB is. Je gebruikt dan:
[rml][ code=vb]...je code hier...[ /code][/rml]

Verder, zoals je in de quickstart kunt lezen, geef je niet echt duidelijk aan wat er nou precies fout gaat. Je geeft een lap code en wat het behoort te doen, en wij moeten dan maar even uitzoeken waarom het niet werkt. Zo werkt het natuurlijk niet, je moet zelf even aangeven waar je zelf denkt dat de fout zit, en wat je al hebt geprobeerd om het op te lossen. Hiermee toon je aan dat je zelf ook inzet hebt, en dat je GoT niet alleen maar gebruikt om je snel even van je problemen af te helpen

[Verwijderd]

ik krijg volgende foutmelding:

Er is een ongeldige SQL instructie gevonden.

Maar waar ?

[.oisyn]

Staat er nergens een regelnummer of iets dergelijks bij?

Ik vermoed dat het komt omdat je 2x een Do gebruikt, maar 1x een Loop. De buitenste Do is dus onafgesloten

[Delphi32]

Verwijderd schreef op 30 december 2003 @ 15:51:

code:

Public Sub OpdrachtMetQuotering
  rs1.MoveFirst
  Do While Not rs1.EOF 'lus opdrachten

    vlag = False 

    rs2.MoveFirst
    Do While Not rs2.EOF
      rs1.MoveNext
    Loop

    MsgBox " Einde van de plaatsing "
End Sub

Ik mis een Loop (zie uitgelijnde code hierboven), en ik zie een Do While Not rs2.EOF zonder dat rs2 van z'n plek komt.

[ Voor 10% gewijzigd door Delphi32 op 30-12-2003 16:14 . Reden: Layout ]

[RedRose]

Het kan aan mij liggen, maar ik zie nergens een query?

Visual Basic:

rs1=db.OpenRecordset(" Stop je SQL-string hier")

[Verwijderd]

Ergens wil ik twee getallen vgl met elkaar

ik dacht aan: If rs2!a=rs!1 Then
vrij = False
End If
If vrij= Thrue Then
??? Kleur het overeenkomstig getal in tabel inzet rood ???

[Verwijderd]

rs2MoveFirst: is dat niet "van stal halen" ???