VB probleem

[michelc85]

Ik heb het volgende probleem

ik heb een spelletje en wil dat deze de scores in een acces-database zet.
Heb al veel dingen geprobeerd.

Ik heb een adodc control aangemaakt en deze gekopeld aan de database

Waar zit de fout?

Het probleem zit erin dat ik niet weet wanneer ik die code voor de ado control moet plaatsen

code:

Dim z As Integer
Dim zz As Integer
Dim counter As Integer



Private Sub check_Timer()
For i = 0 To 4
If Shape1(i).Top >= z And Shape1(i).Top <= z + 400 And Shape1(i).Left >= zz And Shape1(i).Left <= zz + 400 Then
MsgBox "got it!!!"

Form_Load
score.Caption = Val(score.Caption) + 1
Exit Sub
End If
Next i

End Sub

HIER ZIT DE ADODC1 CODE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Private Sub cmdexit_Click()
MsgBox (score.Caption)
Adodc1.Recordset.AddNew
Adodc1.Recordset.MoveNext
Unload Me
End


End Sub

Private Sub cmdexit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdexit.BackColor = vbBlack
cmdexit.ForeColor = vbWhite
End Sub



Private Sub cmdexit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdexit.BackColor = vbWhite
cmdexit.ForeColor = vbBlack

End Sub

Private Sub cmdexit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdexit.BackColor = vbWhite
cmdexit.ForeColor = vbBlack
End Sub

Private Sub Command1_Click()


End Sub

Private Sub Form_Load()

Randomize z
Randomize zz

For i = 0 To 1000
Randomize X
Randomize Y


X = Int(Rnd() * 4250)
Y = Int(Rnd() * 4250)


Picture1.ForeColor = vbRed
Picture1.PSet (X, Y)

Next i
z = Int(Rnd(4) * 3000)
zz = Int(Rnd(1) * 3000)

fireball.Left = zz
fireball.Top = z

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdexit.BackColor = vbBlack
cmdexit.ForeColor = vbWhite

End Sub

Private Sub left1_Timer()
'Shape1(1).left = Shape1(0).left
'Shape1(1).Top = Shape1(0).Top
If Shape1(0).Left <= 0 Then
Picture1_KeyPress (59)

Exit Sub
End If
xxx = Shape1(2).Top
yyy = Shape1(2).Left
xxxx = Shape1(3).Top
yyyy = Shape1(3).Left
xxxxx = Shape1(4).Top
yyyyy = Shape1(4).Left
xxxxxx = Shape1(5).Top
yyyyy = Shape1(5).Left

xx = Shape1(1).Top
yy = Shape1(1).Left
X = Shape1(0).Top
Y = Shape1(0).Left
Shape1(1).Top = X
Shape1(1).Left = Y
Shape1(2).Top = xx
Shape1(2).Left = yy
Shape1(3).Top = xxx
Shape1(3).Left = yyy
Shape1(4).Top = xxxx
Shape1(4).Left = yyyy
Shape1(5).Top = xxxxx
Shape1(5).Left = yyyyy
Shape1(0).Left = Shape1(0).Left - 100


End Sub

Private Sub Picture1_KeyPress(KeyAscii As Integer)
If KeyAscii = 108 Then
'Shape1(0).Left = Shape1(0).Left + 10
'Shape1(0).Top = Shape1(0).Top + 10
Timer1.Enabled = True
up.Enabled = False
right.Enabled = False
left1.Enabled = False
End If

If KeyAscii = 111 Then
up.Enabled = True
Timer1.Enabled = False
right.Enabled = False
left1.Enabled = False
End If

If KeyAscii = 59 Then
right.Enabled = True
up.Enabled = False
Timer1.Enabled = False
left1.Enabled = False
End If

If KeyAscii = 107 Then
left1.Enabled = True
right.Enabled = False
up.Enabled = False
Timer1.Enabled = False
End If
End Sub

Private Sub right_Timer()
If Shape1(0).Left >= 4225 Then
Picture1_KeyPress (107)

Exit Sub
End If
xxx = Shape1(2).Top
yyy = Shape1(2).Left
xxxx = Shape1(3).Top
yyyy = Shape1(3).Left
xxxxx = Shape1(4).Top
yyyyy = Shape1(4).Left
xxxxxx = Shape1(5).Top
yyyyy = Shape1(5).Left
xx = Shape1(1).Top
yy = Shape1(1).Left
X = Shape1(0).Top
Y = Shape1(0).Left
Shape1(1).Top = X
Shape1(1).Left = Y

Shape1(2).Top = xx
Shape1(2).Left = yy
Shape1(3).Top = xxx
Shape1(3).Left = yyy
Shape1(4).Top = xxxx
Shape1(4).Left = yyyy
Shape1(5).Top = xxxxx
Shape1(5).Left = yyyyy
Shape1(0).Left = Shape1(0).Left + 100

End Sub

Private Sub seconds_Timer()
times.Caption = Val(times.Caption) + 1

End Sub

Private Sub Timer1_Timer()
If Shape1(0).Top >= 4000 Then
Picture1_KeyPress (111)

Exit Sub
End If
xxx = Shape1(2).Top
yyy = Shape1(2).Left
xxxx = Shape1(3).Top
yyyy = Shape1(3).Left
xxxxx = Shape1(4).Top
yyyyy = Shape1(4).Left
xxxxxx = Shape1(5).Top
yyyyy = Shape1(5).Left

xx = Shape1(1).Top
yy = Shape1(1).Left

X = Shape1(0).Top
Y = Shape1(0).Left
Shape1(1).Top = X
Shape1(1).Left = Y
Shape1(2).Top = xx
Shape1(2).Left = yy
Shape1(3).Top = xxx
Shape1(3).Left = yyy
Shape1(4).Top = xxxx
Shape1(4).Left = yyyy
Shape1(5).Top = xxxxx
Shape1(5).Left = yyyyy
Shape1(0).Top = Shape1(0).Top + 100
End Sub

Private Sub up_Timer()
If Shape1(0).Top <= 0 Then
Picture1_KeyPress (108)

Exit Sub
End If
xxx = Shape1(2).Top
yyy = Shape1(2).Left
xxxx = Shape1(3).Top
yyyy = Shape1(3).Left
xxxxx = Shape1(4).Top
yyyyy = Shape1(4).Left
xxxxxx = Shape1(5).Top
yyyyy = Shape1(5).Left

xx = Shape1(1).Top
yy = Shape1(1).Left
X = Shape1(0).Top
Y = Shape1(0).Left
Shape1(1).Top = X
Shape1(1).Left = Y
Shape1(2).Top = xx
Shape1(2).Left = yy
Shape1(3).Top = xxx
Shape1(3).Left = yyy
Shape1(4).Top = xxxx
Shape1(4).Left = yyyy
Shape1(5).Top = xxxxx
Shape1(5).Left = yyyyy
Shape1(0).Top = Shape1(0).Top - 100

End Sub

[ Voor 192% gewijzigd door michelc85 op 01-06-2003 22:42 ]

[DUX]

Probeer je code tussen [ code ]-tags te zetten next time. Kun je het probleem niet zelf vinden? Hij geeft toch een regel aan waar hij blijft steken met eventueel een foutmelding erbij? Desnoods kun je nog breaks zetten...

Wat gaat er precies mis?

[edit]
En welke onderdelen heb je allemaal op de form gezet?

[ Voor 12% gewijzigd door DUX op 01-06-2003 22:41 ]

[brokenp]

michelc85, misschien is het slim om eens de faq door te lezen, dit bericht mist nl een hele hoop belangrijke dingen
- Plaats je code tussen [code] tags
- Plaats alleen relevante code
- Geef aan waar je probleem zit
- Geef aan wat je al geprobeerd hebt.

[michelc85]

DUX schreef op 01 June 2003 @ 22:40:
Probeer je code tussen [ code ]-tags te zetten next time. Kun je het probleem niet zelf vinden? Hij geeft toch een regel aan waar hij blijft steken met eventueel een foutmelding erbij? Desnoods kun je nog breaks zetten...

Wat gaat er precies mis?

[edit]
En welke onderdelen heb je allemaal op de form gezet?

Er staan een aantal timers in en een frame waarin de slang zich beweegt (het is een soort snake).

Het gaat erom waar ik die die code moet plaatsen voor de adodc1

[mboy]

Hier kunnen we toch geen drol mee. Als je nou eerst eens begint met wat comments plaatsen in je code en de relevante stukken tussen de juiste code tags plaatst, dan wordt alweer een stuk duidelijker wat je precies wilt.

[ Voor 1% gewijzigd door mboy op 01-06-2003 23:44 . Reden: typo ]

[Noel]

Met alleen een .addnew & .movenext statement ga je niets wegschrijven naar je database. Je moet de velden in je DB opvullen. Ken de syntax niet exact meer, heb ook geen zin om te zoeken, dus google eventjes naar een oplossing. Of raadpleeg MSDN.

VB zal de fout trouwens wel geven, kan je ook op zoeken..

Een duidelijkere openingspost zou ook al helpen overigens.

Succes.

[ Voor 10% gewijzigd door Noel op 01-06-2003 23:53 . Reden: aanvulling ]

[mboy]

Hij vraagt toch waar hij z'n code moet plaatsen?

Maar het klopt wel wat -Noel- zegt. Om weg te schrijven doe je eerst een .addnew, dan hang je waardes aan de velden van je tabel, en dan doe je nog een keer een .addnew om de zut er daadwerkelijk in te zetten. dus:

Visual Basic:

adodc1.recordset.addnew
adodc1.recordset.fields["[veldnaam]".value = [waarde]
adodc1.recordset.addnew

Maar da was eigenlijk je vraag niet. toch

[farlane]

Om veranderingen weg te schrijven gebruikt je ADODB.Recordset.Update / ADODB.Recordset.Updatebatch

[robjanssen]

Je moet het Label Score koppelen aan je ADODC1-component door bij de Label Score de DataSource en ListField in te stellen.
Daarna kun je met onderstaande code de score updaten

code:

Adodc1.Recordset.Update