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
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
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 (
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 (
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