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$

CompileMarkSeparation
'1 Individualkundenbetreuer

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

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

EndWhile


As I said, really should the first part (= 1 slot the scheduler) explicit longer as 255 Lines his. everything above becomes but cut.

in the File "SQL.DAT" standing neither the complete worth:
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 automatically any restlichen Berater==;


in the Sign in the Listboxliste standing only:
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


what can I do? someone a idea?

THANK YOU 

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>