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$

KompilierenMarqueSéparation
'1 Individualkundenbetreuer

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

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

Endwhile


Comme je le disais, eigentlich devrait qui erste partie (= 1 Spalte qui Tabelle) deutlich länger comme 255 Zeilen son. Alles par-dessus wird mais abgeschnitten.

dans qui Dossier "SQL.DAT" steht aussi pas qui 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 dans qui Listboxliste steht seulement:
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


quoi peux je 1faire? quelqu'un une concept?

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>