Builder.cz - Informacni server o programovani

Je to sice divny, ale odpovím si sám, třeba to někomu pomůže.....
Nakonec po dlouhém hloubání , ptaní a zkoušení, mě nakopli hnedle dva lidi. Já tu DB pouze načetl, avšak nesetřídil, takže se mi tím rozhodilo celé pořadí.. Za vaši ochotu dík Karel

Je to sice divny, ale odpovím si sám, třeba to někomu pomůže..... Nakonec po dlouhém hloubání , ptaní a zkoušení, mě nakopli hnedle dva lidi. Já tu DB pouze načetl, avšak nesetřídil, takže se mi tím rozhodilo celé pořadí.. Za vaši ochotu dík Karel

Citovat příspěvek

Promin ze se tak blbe ptam, ale na co je to?

Promin ze se tak blbe ptam, ale na co je to?

Citovat příspěvek

databaze2.RecordsetType=1

databaze2.RecordsetType=1

Citovat příspěvek

By Tony - Bohuzel nevím co tím máš na mysli....

By Tony - Bohuzel nevím co tím máš na mysli....

Citovat příspěvek

Zkontroluj RecordsetType. A zkus nastavit na 1 pokud tak nemáš.

Zkontroluj RecordsetType. A zkus nastavit na 1 pokud tak nemáš.

Citovat příspěvek

Vyzkoušeno.... pomohlo mi todle: databaze2.Recordset.AbsolutePosition , ale jenom trochu.. Nechapu, ze kdyz se prikazem: databaze2.Recordset.MoveLast posunu na nejaky zaznam, ktery NENI posledni, pak dalsim prikazem´: databaze2.Recordset.MoveNext presunu dal, az na konecny zaznam, zak pote to skoci ne na zacatek databaze, ale nekde 15 od konce.. Proste co me zajima je proc: databaze2.Recordset.MoveLast neskoci na posledni zaznam i kdyz: databaze2.Recordset.RecordCount ví jak je databaze dlouha....

Vyzkoušeno.... pomohlo mi todle: databaze2.Recordset.AbsolutePosition , ale jenom trochu.. Nechapu, ze kdyz se prikazem: databaze2.Recordset.MoveLast posunu na nejaky zaznam, ktery NENI posledni, pak dalsim prikazem´: databaze2.Recordset.MoveNext presunu dal, az na konecny zaznam, zak pote to skoci ne na zacatek databaze, ale nekde 15 od konce.. Proste co me zajima je proc: databaze2.Recordset.MoveLast neskoci na posledni zaznam i kdyz: databaze2.Recordset.RecordCount ví jak je databaze dlouha....

Citovat příspěvek

Vyzkoušej tohle:

Private Sub Form_Activate()
databaze2.RecordSource = "select * from Automat1sdaty "
databaze2.Refresh
zobrazPocet

With databaze2.Recordset 'Zjištění počtu záznamů
If .RecordCount <> 0 Then
.MoveLast
.MoveFirst
End If
End With
End Sub

Private Sub zobrazPocet()
'Zobrazení počtu záznamů a aktuálního záznamu
databaze2.Caption = "Záznam " & databaze2.Recordset.AbsolutePosition + 1 _
& " z " & databaze2.Recordset.RecordCount
End Sub


Vybral jsem to ze svého programu, snad jsem na nic nezapomněl, ale chodí mi to bez ohledu na filtry nebo řazení. Já si tam ještě zobrazuju čísla záznamu

Vyzkoušej tohle: Private Sub Form_Activate() databaze2.RecordSource = "select * from Automat1sdaty " databaze2.Refresh zobrazPocet With databaze2.Recordset 'Zjištění počtu záznamů If .RecordCount <> 0 Then .MoveLast .MoveFirst End If End With End Sub Private Sub zobrazPocet() 'Zobrazení počtu záznamů a aktuálního záznamu databaze2.Caption = "Záznam " & databaze2.Recordset.AbsolutePosition + 1 _ & " z " & databaze2.Recordset.RecordCount End Sub Vybral jsem to ze svého programu, snad jsem na nic nezapomněl, ale chodí mi to bez ohledu na filtry nebo řazení. Já si tam ještě zobrazuju čísla záznamu

Citovat příspěvek

Cauko


Hladam niekoho ochotneho co by mi pomohol s ucenim na Visual Basicu 6 po skype alebo icq.Dakujem

Cauko Hladam niekoho ochotneho co by mi pomohol s ucenim na Visual Basicu 6 po skype alebo icq.Dakujem

Citovat příspěvek

Měl jsem vložit asi kod cely :)
Takze tady je:

databaze2.RecordSource = "select * from Automat1sdaty "
databaze2.Refresh
databaze2.Recordset.MoveLast
MsgBox (databaze2.Recordset.RecordCount)

Msgbox ukaže celou délu databaze, ale posunuti v databazi je na miste o kterem jsem psal.

Měl jsem vložit asi kod cely :) Takze tady je: databaze2.RecordSource = "select * from Automat1sdaty " databaze2.Refresh databaze2.Recordset.MoveLast MsgBox (databaze2.Recordset.RecordCount) Msgbox ukaže celou délu databaze, ale posunuti v databazi je na miste o kterem jsem psal.

Citovat příspěvek

A nemáš to filtrovaný/seřazený podle něčeho? Potom se ti může zdát, že první/poslední záznam je jiný než očekáváš apod?

A nemáš to filtrovaný/seřazený podle něčeho? Potom se ti může zdát, že první/poslední záznam je jiný než očekáváš apod?

Citovat příspěvek

Zdarec,
děkuji všem za ochotu pomoci....
Píšu prográmek ve VB6 kde načítím accesovou databazi. Vše mi funguje jak má, jakmile se však přesunu tímto: databaze2.Recordset.MoveLast na poslední záznam, nejsem na posledním záznamu,ale asi 15 záznamů před ním.
Jakmile se přesunu tímto: databaze2.Recordset.MoveFirst , skočí mi to asi na 3tí od konce.
Do této databáze zapisuju z nekolika programů, nevím zda je to možné, zda VB neuložím jakousi info, která mi neoznačí konec databáze, nebo něco.
Za jakýkoli váš nápad dík.

Zdarec, děkuji všem za ochotu pomoci.... Píšu prográmek ve VB6 kde načítím accesovou databazi. Vše mi funguje jak má, jakmile se však přesunu tímto: databaze2.Recordset.MoveLast na poslední záznam, nejsem na posledním záznamu,ale asi 15 záznamů před ním. Jakmile se přesunu tímto: databaze2.Recordset.MoveFirst , skočí mi to asi na 3tí od konce. Do této databáze zapisuju z nekolika programů, nevím zda je to možné, zda VB neuložím jakousi info, která mi neoznačí konec databáze, nebo něco. Za jakýkoli váš nápad dík.

Citovat příspěvek