| |
VB & DatenbankenBefehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 22.07.15 15:46 |
| Hallo!!!
Ich hab zum weiterverarbeiten von einer Liste eine Methode geschrieben, jetzt schon alles darauf ausgelegt, dass die liste so aussieht "Ausdr,Ausdr2,Ausdr3,....,", also ein String (weil ich das jetzt immer so gemacht hab und daher schon praktische Funktionen dazu hab).
Leider weiß ich den Befehl nicht um die Daten aus einer Abfrage (aus einer Spalte) auszulesen und in so einen String zu speichern, mir ist klar, dass es wohl mit einer For-Schleife geht, aber weiß nicht genau wie...
n = 0
For Each n In Abfrage1.Spalte1.ItemsSelected
strProjekt = strProjekt & CStr(Abfrage1!Spalte1.Column(1, n)) & ","
Next n geht ja leider nicht.... | |
Re: Befehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 23.07.15 10:29 |
| Bei mir kommt immer "... Objekt erforderlich!..."
Ich glaub ich hab den falschen Befehl, was wäre denn der richtige oder wie mach ich das, dass die Abfrage als Objekt akzeptiert wird bzw. bin ich jetzt ganz falsch an???
For n = 0 To Abfrage.Rows.Count - 1
str = str & CStr(Abfrage.Column(1, n)) & ","
Next n
Beitrag wurde zuletzt am 23.07.15 um 10:30:40 editiert. | |
Re: Befehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 23.07.15 11:39 |
| mit DLookup("Spalte","Abfrage")kann ich zumindest schon mal daten auslesen aber er liest mir nur das erste aus, ich müsste wohl was beim kriterium reinschreiben aber ich weiß nicht was... er soll zeile für zeile durch die spalte gehen und das was da drinnen steht zum string dazuschreiben.... da muss es doch einen einfachen weg geben oder? | |
Re: Befehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 24.07.15 08:08 |
| So jetzt bin ich einen schritt weiter hab den befehl gefunden Listbox.AddItem
Problem nur, jetzt macht es mir zwar Zellen in die Listbox, aber die sind leer, da steht nix drinnen????
Kann mir jemand sagen was da los ist?
Me!Liste.RowSourceType = "Value List"
k = 1
While k <= Anzahl
Liste.AddItem Item:="Test"
'bzw. so hab ich es auch schon probiert. Liste.AddItem("Test") und auch
' ohne die Klammern
k = k + 1
Wend | |
Re: Befehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 24.07.15 09:48 |
| Ach ja hab ich vergessen, ich hab die daten aus der Abfrage in eine Listbox gegeben und diese dann ausgelesen und in einen string gespeichert, diesen hab ich geordnet und zusammengefasst und den will ich jetzt in eine andere Listbox übergeben, aber das funktioniert aus nicht, ich weiß aber nicht warum.... ich sollte eigentlich ein neues thema dafür starten aber ich spam das forum eh schon so zu... aber vielleicht weiß ja jemand was zu tun ist? | |
Re: Befehl zum Auslesen von Abfrage in einen String | | | Autor: Git-Git | Datum: 27.07.15 09:44 |
| Also ich hab leider keine bessere Möglichkeit gefunden, als zu der Abfrage eine Listbox zu erstellen und die Daten dann aus der Listbox auszulesen, das funktioniert soweit ganz gut.
For n = 0 To f
g = Me!Liste.Column(1, n + 1)
If IsNull(g) Then
Else
str = str & CStr(g) & ","
End If
Next n | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|