title image


Smiley Leider nicht...
Hi bitstream,



also ich krieg das einfach nicht gebacken - irgendwas mach ich total falsch.





Dim db As Database

Set db = OpenDatabase(Pfad, False, False, dbPW)

Dim recUebersicht As Recordset

Set recUebersicht = db.OpenRecordset("SELECT * FROM irgendwas... ;")

Dim sql As String

Dim feldlaenge As Long

If Not (recUebersicht.EOF And recUebersicht.BOF) Then

Dim lngOffset As Long

feldlaenge = recUebersicht.Fields("SelBefehl_Uebersicht").FieldSize

Do While lngOffset < feldlaenge

sql = sql & recUebersicht.Fields("SelBefehl_Uebersicht").GetChunk(lngOffset, 32768)

lngOffset = lngOffset + 32768

Loop

End If

db.Close

Set db = Nothing

End If





String sql enthält anschliessend trotzdem nur die ersten 255 Zeichen des Memo-Feldes.



entweder es scheitert daran, weil in recUebersicht.Fields("SelBefehl_Uebersicht") von Anfang an nur der abgeschnittene Inhalt zur Verfügung steht, und somit auch nicht mehr "drangehängt" werden kann,



oder: ich bin zu blöd dafür und verwende die falsche syntax !?



Gruß,

F@

F@Checker

-----------------------
Bonus vir semper tiro
-----------------------


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: