Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
[Gelöst] Memofeld-Abfrage in VB
zurück: Application.OnKey funktioniert nicht weiter: Problem mit InputBox Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
chaosgenie
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Jun 2007, 16:18
Rufname:

[Gelöst] Memofeld-Abfrage in VB - [Gelöst] Memofeld-Abfrage in VB

Nach oben
       Version: Office 2k (2000)

Hallo,

ich hab schon viel gesucht, etliches gefunden und jede Menge ausprobiert, aber noch keine Lösung gefunden. Dabei geht es um folgenden Code:
Code:
    Dim content As String
   
    mySourceRecordset.Open "SELECT [p_desc~de] FROM qraartikelbasis3", cn, _
                           adOpenKeyset, adLockReadOnly
    Open textfile For Output As #1
    Count = mySourceRecordset.Fields.Count
    i = 0
    Do While i < Count
        ueberschriften = ueberschriften & Chr(34) & _
                         Replace(mySourceRecordset.Fields(i).Name, _
                                 "~", ".") & Chr(34) & sep
        i = i + 1
    Loop
    Print #1, ueberschriften
    Do While Not mySourceRecordset.EOF
        i = 0
        felder = ""
        Do While i < Count
            content = mySourceRecordset.Fields(i)
            felder = felder & Chr(34) & content & Chr(34) & sep
            i = i + 1
        Loop
        Print #1, felder
        Debug.Print felder
        mySourceRecordset.MoveNext
    Loop
    Close #1
Das Feld setzt sich aus mehreren Feldern einer darunterliegenden Abfrage zusammen. Dazu zählt auch ein Feld Bemerkung, das als Memo-Feld deklariert ist. Führe ich die hier zu Grunde liegende Abfrage - qrartikelbasis3 - aus, wird der Feldinhalt korrekt ausgegeben.
Führe ich nun den Code oben aus und schaue mir die produzierte Textdatei an, dann kommt folgendes dabei heraus:
Zitat:
erleben Sie (und jede menge kryptischer Zeichen)
. Der Inhalt wird abgeschnitten nach 255 Zeichen.

Hat jemand eine Idee, wie ich dieses problem lösen kann? Wenn doch schon der Inhalt in der Abfrage richtig ist, warum dann nicht in VB? Auch die Feldlänge wird mir korrekt angezeigt (mit len(feld)).

Schönen Gruß - CG


Zuletzt bearbeitet von chaosgenie am 03. Jul 2007, 11:08, insgesamt einmal bearbeitet
steffen0815
VBA-Programmierer


Verfasst am:
28. Jun 2007, 20:03
Rufname:

AW: Memofeld-Abfrage in VB - AW: Memofeld-Abfrage in VB

Nach oben
       Version: Office 2k (2000)

Hallo,
schau mal bei Export von Abfragen mit (neuen) Memofeldern vorbei.

_________________
Gruß Steffen
chaosgenie
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Jul 2007, 11:07
Rufname:


AW: Memofeld-Abfrage in VB - AW: Memofeld-Abfrage in VB

Nach oben
       Version: Office 2k (2000)

Hallo,

hab's folgendermaßen gelöst:

- Alle Memofelder mit Schlüsselfeld abgefragt und in ein (Hilfs-)RecordSet gepackt
- Zugehöriges Memofeld wird bei jedem Durchlauf durch das Haupt-Recordset mit der Find-Methode durchsucht.
- Der entsprechende Wert wird in einer Variablen gespeichert und später verarbeitet.

So funktionierts! Razz

Hoffe, ich konnte irgendjemanden damit helfen.

Gruß - CG
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Hilfe: In VB ID festlegen 0 alphatierchen 91 15. Nov 2012, 11:32
alphatierchen In VB ID festlegen
Keine neuen Beiträge Access Formulare: Access Ereigniss verknpüfung gelöst 1 Urteil 180 20. Aug 2012, 15:31
JMalberg Access Ereigniss verknpüfung gelöst
Keine neuen Beiträge Access Berichte: Berichtsansicht in VB ändern 0 Rasenkantenstein 292 09. Jul 2012, 12:26
Rasenkantenstein Berichtsansicht in VB ändern
Keine neuen Beiträge Access Programmierung / VBA: reporttopdf [gelöst] 5 payne80 895 29. Sep 2009, 08:03
payne80 reporttopdf [gelöst]
Keine neuen Beiträge Access Programmierung / VBA: Variable an Funktion übergeben [gelöst] 2 payne80 685 25. Sep 2009, 13:51
payne80 Variable an Funktion übergeben [gelöst]
Keine neuen Beiträge Access Programmierung / VBA: Fehler in VB Skript 4 Arnd 506 25. Jul 2009, 11:34
Arnd Fehler in VB Skript
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus mehreren Zeilen vergleichen (gelöst) 13 KevinS 2210 08. Jul 2009, 08:42
KevinS Kriterien aus mehreren Zeilen vergleichen (gelöst)
Keine neuen Beiträge Access Programmierung / VBA: Pause im VB Code 1 EB-Stefan 2108 28. Apr 2009, 11:13
Gast Pause im VB Code
Keine neuen Beiträge Access Hilfe: [gelöst] Entity-Relationship-Modell-Programm 2 plusminus_pi 2615 21. Apr 2009, 04:13
plusminus_pi [gelöst] Entity-Relationship-Modell-Programm
Keine neuen Beiträge Access Formulare: [gelöst ?!] Raster im Registersteuerelement 2 Blek 503 19. Apr 2009, 09:40
Blek [gelöst ?!] Raster im Registersteuerelement
Keine neuen Beiträge Access Programmierung / VBA: dynamische sql abfrage in vb 3 petrel100 1207 29. Okt 2008, 03:23
Willi Wipp dynamische sql abfrage in vb
Keine neuen Beiträge Access Berichte: Textbox positioniert sich woanders, als se soll...? Gelöst! 2 Tom_Nbg 480 15. Apr 2007, 12:59
Tom_Nbg Textbox positioniert sich woanders, als se soll...? Gelöst!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA