Datenbanken sortieren

Hi,

kann mir mal bitte jemand veraten wie ich unter VB 5.0 Enterprice edition eine Datenbank sortiere?
Für eure Hilfe bedanke ich mich schon im voraus

Cu Alex

Hi,

kann mir mal bitte jemand veraten wie ich unter VB 5.0
Enterprice edition eine Datenbank sortiere?
Für eure Hilfe bedanke ich mich schon im voraus

Gar nicht :smile:
Aber du kannst sortierte Abfragen machen. Entweder als feste Abfrage in Access oder im Code.

aber wie kann ich da bitte eine datenbank in einer liste eintragen wenn mehrerer einträge den selben namen haben und wie kann ich sie da unterscheiden?

aber wie kann ich da bitte eine datenbank in einer liste
eintragen wenn mehrerer einträge den selben namen haben und
wie kann ich sie da unterscheiden?

anhand des primären Schlüssels, den jede Tabelle haben muß.

aha, aber wie meinst das? Wie kann ich das realisieren?
Ich habe es folgendermassen probiert, was aber nicht ging :frowning:(

ich habe für jeden Eintrag folgendes Vorgenommen

pos=dy.AbsolutePosition + 1
list1.additem("irgendwas)
List1.ItemData(List1.ListIndex)=pos

solange ich eigenschaft von sorted bei dem List object auf false eingestellt habe, kann ich den makierten eintrag wie folgt abfragen:

dim a$,i%0

do while not dy.eof
i=i+1
if i=pos then exit do
loop
a= dy!Name

soweit functioniert das. Nur wenn ich die eigenschaft sorted auf True setze dann geht das nicht mehr :frowning:(
wie kann ich realisieren? Ein kleines Demo waere sehr hilfreich

Hallo,

ich glaube dein Script hat einen kleinen Fehler.

pos=dy.AbsolutePosition + 1 'richtig
list1.additem("irgendwas) 'richtig

List1.ItemData(List1.NewIndex)=pos 'müßte lauten

demzufolge die Rückgabe

dim id&,tx$,pos&
with List1
id=.ListIndex 'ausgewählter Eintrag
tx=.List(id)
pos=.ItemData(id)
end with

ich hoffe ich habe keinen Fehler gamacht.

Volker

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo,

probier mal folgendes

SELECT DISTINCROW * FROM Tabelle ORDER BY Tabellenfeld

Plaziere diesen SQL-Anweisung in einer neuen Abfrage

Oder Code

dim R as new RECORDSET
dim C AS new CONNECTION

C.Open „FILE NAME=“ & APP.path & „\DB.UDL“

R.open hie die SQL-Anweisung einfügen,c,adopenStatic

do loop until r.eof
Hier den code für die Listbox einfügen
r.movenext
loop

die UDL datei legst du mit NEU/DatenLink aus dem Kontextmenü im Explorer an als Provider Access,dann die Datenbank auswählen.

Hoffe geholfen zu haben

MfG CB