Archief - [PROG][VB6-ADO] database fields in tekstvakken refreshen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
I

InFerNo

Legacy Member
Ik moet dus voor school een VB6 programma schrijven met gebruik van ADO, we mogen geen componenten op de form zetten (op deze manier ken ik 't wel maar helaas mag da ni gebruikt worden).

Ik haal info uit een database en heb die in textvakken gezet, zover lukt alles maar nu weet ik ni echt wat ik moet doen.

Ik heb 4 knoppe gemaakt, first, prev, next en last. De tekstvakken krijgen de info tijdens de form_activate()

Ik weet ni echt hoe ik het moet coden om bv 1 record vooruit te gaan.
Ik kan alles natuurlijk terug fetchen en terug in die tekstvakken steken, maar er is wel een .MoveNext voorzien bij de recordset.

De eigenlijke vraag is nu of ik gewoon die textvakken kan refreshen met .refresh of met iets anders, want ik heb er geen idee van, en van VB6 + ADO is er al zoveel te vinde :/

een link naar iets zou ook al goe zijn

thanks in advance
I

InFerNo

Legacy Member
ik heb 't opgelost door telkens de record variable terug in te vulle
dus bv
Code: 
dbRecords.MoveNext
txtbox.text = dbRecords.Fields.Item("RecordID").Value
...
S

Spacewide

Legacy Member
dbRecords.Movenext
Klik om te vergroten...
Als je hier voorbij de laatste record wil gaan krijg je een error (EOF;End Of File)

Wat ik zou doen (of ooit gedaan heb);
Dim bytDummy As Byte

On Error Resume Next

With adoDB.Recordset
If .EOF Or .AbsolutePosition = .RecordCount Then
.MoveLast
bytDummy = MsgBox("Laatste record", vbExclamation, "Navigatie")

Else
.MoveNext
End If
End With
Klik om te vergroten...

Om te refreshe
Private Sub cmdRefresh_Click()
adoDB.Recordset.Update
adoDB.Recordset.Requery
End Sub
Klik om te vergroten...

Edit: Misschien kun jij me helpen met dit !nFy? -> Klik hier <-

Vatosy
I

InFerNo

Legacy Member
Code: 
if not recordset.EOF or not recordset.BOF then
recordset.movenext
end if

:P

OF

als het een knop is die bladert in de records:
Code: 
recordset.movenext

If recordset.EOF then
recordset.moveprevious
end if

Code: 
recordset.moveprevious

if recordset.BOF then
recordset.movenext
end if



de eigenlijke code van de knoppe:
Code: 
Private Sub cmdFirst_Click()
klantRec.MoveFirst
    txtKlantID.Text = klantRec.Fields.Item("klantID").Value
    txtKlantNaam.Text = klantRec.Fields.Item("klantNaam").Value
    txtKlantStraat.Text = klantRec.Fields.Item("klantStraat").Value
    txtKlantVoornaam.Text = klantRec.Fields.Item("klantVoornaam").Value
    txtKlantGSM.Text = klantRec.Fields.Item("klantGSM").Value
    txtklantMail.Text = klantRec.Fields.Item("klantMail").Value
    txtKlantPostcode.Text = klantRec.Fields.Item("klantPostcode").Value
    txtKlantTel.Text = klantRec.Fields.Item("klantTel").Value
    txtAdresWoonplaats.Text = klantRec.Fields.Item("klantWoonplaats").Value
End Sub

Private Sub cmdLast_Click()
klantRec.MoveLast
    txtKlantID.Text = klantRec.Fields.Item("klantID").Value
    txtKlantNaam.Text = klantRec.Fields.Item("klantNaam").Value
    txtKlantStraat.Text = klantRec.Fields.Item("klantStraat").Value
    txtKlantVoornaam.Text = klantRec.Fields.Item("klantVoornaam").Value
    txtKlantGSM.Text = klantRec.Fields.Item("klantGSM").Value
    txtklantMail.Text = klantRec.Fields.Item("klantMail").Value
    txtKlantPostcode.Text = klantRec.Fields.Item("klantPostcode").Value
    txtKlantTel.Text = klantRec.Fields.Item("klantTel").Value
    txtAdresWoonplaats.Text = klantRec.Fields.Item("klantWoonplaats").Value

End Sub

Private Sub cmdNext_Click()
klantRec.MoveNext
If klantRec.EOF Then
    klantRec.MovePrevious
End If
    txtKlantID.Text = klantRec.Fields.Item("klantID").Value
    txtKlantNaam.Text = klantRec("klantNaam")
    txtKlantStraat.Text = klantRec.Fields.Item("klantStraat").Value
    txtKlantVoornaam.Text = klantRec.Fields.Item("klantVoornaam").Value
    txtKlantGSM.Text = klantRec.Fields.Item("klantGSM").Value
    txtklantMail.Text = klantRec.Fields.Item("klantMail").Value
    txtKlantPostcode.Text = klantRec.Fields.Item("klantPostcode").Value
    txtKlantTel.Text = klantRec.Fields.Item("klantTel").Value
    txtAdresWoonplaats.Text = klantRec.Fields.Item("klantWoonplaats").Value
End Sub

Private Sub cmdPrev_Click()
klantRec.MovePrevious
If klantRec.BOF Then
    klantRec.MoveNext
End If
    txtKlantID.Text = klantRec.Fields.Item("klantID").Value
    txtKlantNaam.Text = klantRec.Fields.Item("klantNaam").Value
    txtKlantStraat.Text = klantRec.Fields.Item("klantStraat").Value
    txtKlantVoornaam.Text = klantRec.Fields.Item("klantVoornaam").Value
    txtKlantGSM.Text = klantRec.Fields.Item("klantGSM").Value
    txtklantMail.Text = klantRec.Fields.Item("klantMail").Value
    txtKlantPostcode.Text = klantRec.Fields.Item("klantPostcode").Value
    txtKlantTel.Text = klantRec.Fields.Item("klantTel").Value
    txtAdresWoonplaats.Text = klantRec.Fields.Item("klantWoonplaats").Value
End Sub
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan