יצוא דו"ח ל-CSV

תודה רבה ,
האם אפשר שגם הכותרות יהיו בשורה הראשונה של הקובץ ?

תודה , משה

ראשית ממש תודה רבה ,
אך לצערי לא הסכים לתחביר של השאילת שליפה
SELECT CELL FROM TABLE
ORDER BY FAMILYNAME
TABS ADDTO :FNAME;

זורק שגיאה על ה
addto

יש לכם אולי רעיון אחר ?

בברכה משה

תודה רבה ,

האם יש אפשרות לעשות union בשאילתה
כלומר בסגנון הזה :

SELECT firstName, lastName, company FROM businessContacts
UNION
SELECT firstName, lastName, NULL FROM nonBusinessContacts

בתודה מראש על כל העזרה!
משה

ראשית שוב תודה רבה על כל ההשקעה
לצערי לא הצלחתי כמו שאמרת זה נתן כותרת אחת ולא תחת השדה של הנתון

אבל ב"ה מצאתי פתרון לכל מי שרוצה הקמנו curor וכך זה באמת סיפק את הסחורה

:FNAME = 'C:\TEMP\OUTPUT.TMP';
:CNAME = 'C:\TEMP\OUTPUT.CSV';
EXECUTE DELWINDOW 'f', :CNAME ;
SELECT 'כותרת1' , ',' , 'כותרת2' FROM DUMMY ASCII ADDTO :CNAME ;
DECLARE C CURSOR FOR
SELECT CUSTNAME , CUSTDES
FROM CUSTOMERS;
OPEN C;
GOTO 9 WHERE :RETVAL = 0;
LABEL 1;
FETCH C INTO :CUR1 , :CUR2;
GOTO 8 WHERE :RETVAL = 0; /* No more fetched records */
SELECT :CUR1 , ',' , :CUR2 FROM DUMMY ASCII ADDTO :CNAME ;
LOOP 1;
LABEL 8;
CLOSE C;
LABEL 9;
END;

יש הסבר ב sdk
שוב תודה רבה ושבת שלום .

השימוש ב-ASCII – כפי שגילית – גורם לרצף, ללא הפרדה בין ההשדות ולבין הרשומות. ארשום למטה פרוצדורה שיודעת להוציא את המלל של כל שלבי SQLI בפרוצדורה לקובץ טקסט. התכנית שימושית בעצמה אך היא גם מראה איך ניתן להתגבר על הבעייה שציינת – שכבר לא שייכת לנושא קבצי CSV!


/* GLOB_PROGTEXTFILE - No'am, 26/07/15
This procedure reads the SQLI/INPUT/INPUTF stages of a procedure and
outputs the lines to a text file
*/
:SPECIAL_CHARACTER = '\0';
:SPECIAL_CHARACTER = '^';
:SC = ITOA (0 + :SPECIAL_CHARACTER);
:FNAME = 'OUTPUT.TXT';
:EXEC = 0;
:ENAME = '';
LINK EXEC TO :$.EXE;
ERRMSG 1 WHERE :RETVAL 0
AND TYPE = 'P';
ERRMSG 2 WHERE :EXEC 1;
SELECT EXEC, ENAME INTO :EXEC, :ENAME
FROM EXEC
WHERE EXEC > 0
AND TYPE = 'P';
UNLINK EXEC
;
DECLARE CUR CURSOR FOR
SELECT PROGRAMS.POS, PROGRAMS.PROG, EXEC.ENAME
FROM PROGRAMS, EXEC
WHERE PROGRAMS.EXEC = :EXEC
AND PROGRAMS.EXECRUN = EXEC.EXEC
AND EXEC.ENAME IN ('SQLI', 'INPUT', 'INPUTF')
AND PROGRAMS.PROG > 0;
OPEN CUR;
GOTO 500 WHERE :RETVAL <= 0;
SELECT 'Program Name: ', :ENAME, :SPECIAL_CHARACTER FROM DUMMY
ASCII ADDTO :FNAME;
SELECT '=============================================',
:SPECIAL_CHARACTER FROM DUMMY ASCII ADDTO :FNAME;
LABEL 100;
FETCH CUR INTO :POS, :PROG, :NAME;
GOTO 400 WHERE :RETVAL <= 0;
SELECT STRCAT ('Stage ', ITOA (:POS), ' - ', :NAME),
:SPECIAL_CHARACTER FROM DUMMY ASCII ADDTO :FNAME;
/* The following record style code is because I couldn't get the
lines in the correct order and format. This code works but it's not
elegant */
SELECT MAX (TEXTORD) INTO :MAX
FROM PROGRAMSTEXT
WHERE PROG = :PROG;
:I = 0;
LABEL 200;
:I = :I + 1;
SELECT TEXT, :SPECIAL_CHARACTER
FROM PROGRAMSTEXT
WHERE PROG = :PROG
AND TEXTORD = :I
ASCII ADDTO :FNAME;
LOOP 200 WHERE :I < :MAX;
SELECT '=============================================',
:SPECIAL_CHARACTER FROM DUMMY ASCII ADDTO :FNAME;
LOOP 100
;
LABEL 400;
CLOSE CUR;
EXECUTE FILTER :SC, :SC, '13', :FNAME, :$.NAM;
EXECUTE DELWINDOW 'f', :FNAME;
LABEL 500;