XProfan

Ergebnis2$=DoSQL_E("Select Trim(Bank_Kennungen_Berater_1),\
Trim(Bank_Kennungen_Berater_2),\
Trim(Bank_Kennungen_Berater_3),\
Trim(Bank_Kennungen_Berater_4),\
Trim(Bank_Kennungen_Berater_5) FROM T_Bank")/pre>

'Führt einen SQL-Befehl aus und gibt das Ergebnis zurück

Proc DoSQL_E

    Parameters SBefehl$
    Var Rueckgabe$=""
    ClearList
    SqlExec SBefehl$,1

    if %getcount>1

        Rueckgabe$=Trim$(Left$(ListBoxItem$(2),Len(ListBoxItem$(2))-1))

    EndIf

    Return Rueckgabe$

KompilierenMarkierenSeparieren
'1 Individualkundenbetreuer

WhileLoop Len(Substr$(Ergebnis2$,1,Get("SQLDel")),",")

    Print #1,Trim$(Substr$(Substr$(Ergebnis2$,1,Get("SQLDel")),&LOOP,","))+";"+Trim$(Substr$(Ergebnis1$,1,Get("SQLDel")))

EndWhile


Wie gesagt, eigentlich müsste der erste Teil (= 1 Spalte der Tabelle) deutlich länger als 255 Zeilen sein. Alles darüber wird aber abgeschnitten.

In der File "SQL.DAT" steht auch nicht der vollständige Wert:
Expr1000;Expr1001;Expr1002;Expr1003;Expr1004;
00001,00002,00003,00004,00005,00006,00007,00008,00009,00010,00011,00012,00013,00014,00015,00016,00017,00018,00019,00020,00021,00022,00023,00024,00025,00026,00027,00028,00029,00030,00031,00032,00033,00034,00035,00036,00037,00038,00039,00040,00041,00042,000;VMM08,VMM09,VMM10,01230,01210,02220;FKB01,FKB02,03230;FKB03,FKB04,03320,04140;==Enthält automatisch alle restlichen Berater==;


Im Eintrag in der Listboxliste steht nur:
00001,00002,00003,00004,00005,00006,00007,00008,00009,00010,00011,00012,00013,00014,00015,00016,00017,00018,00019,00020,00021,00022,00023,00024,00025,00026,00027,00028,00029,00030,00031,00032,00033,00034,00035,00036,00037,00038,00039,00040,00041,00042,000


Was kann ich tun? Jemand eine Idee?

DANKE 

Ergebnis2$=DoSQL_E("Select Bank_Kennungen_Berater_1,\
Bank_Kennungen_Berater_2,\
Bank_Kennungen_Berater_3,\
Bank_Kennungen_Berater_4,\
Bank_Kennungen_Berater_5 FROM T_Bank")/pre>