Skip to content

Instantly share code, notes, and snippets.

@GiuseppeChillemi
GiuseppeChillemi / gist:db00dced4d6cd547619efebce6369c89
Created April 10, 2022 21:28
all does not allow logic! for its conds argument
info: 130 create-domain
info: 131 create-schema
info: 132 create-table
info: 133 create-translation
info: 134 create-view
info: 136 drop-assertion
info: 137 drop-character-set
info: 138 drop-collation
info: 139 drop-domain
info: 140 drop-schema
SQLGetInfo(144) 0
]
info: 145 dynamic-cursor-attributes2
PICK-METADATA [
SQLGetInfo(145) 0
]
info: 146 forward-only-cursor-attributes1
PICK-METADATA [
SQLGetInfo(146) 0
]
//////////////////////////////////
SQLGetInfo(142) 0
]
info: 143 drop-view
PICK-METADATA [
SQLGetInfo(143) 0
]
info: 144 dynamic-cursor-attributes1
PICK-METADATA [
@GiuseppeChillemi
GiuseppeChillemi / gist:b945ca418dff41a77812a0c8c47d4461
Created April 7, 2022 22:20
Single column Attributi retrieve
//////////////////// Without debug ///////////////////
>> do %odbc-test.red
[attributi]
--------------------------------------------------------------------------------
---------------------------------------------------
0375A1E8:
///////// CODE:
cn: switch 'b-ok con
st: open cn
st/state/window: 1
st/state/cursor: 'static
columns: insert st "select top 1 * from cf where attributi is not null "
@GiuseppeChillemi
GiuseppeChillemi / ALL-COLUMNS
Last active April 4, 2022 22:37
All columns
[
id-do-tes "Id_DoTes" 4 10 0 0 handle! 4 handle!
cd-do "Cd_Do" 1 3 0 0 handle! 8 handle!
tipo-documento "TipoDocumento" 1 1 0 0 handle! 4 handle!
do-bit-mask "DoBitMask" 4 10 0 0 handle! 4 handle!
cd-cf "Cd_CF" 1 7 0 0 handle! 16 handle!
cd-cf-fatt "Cd_CF_Fatt" 1 7 0 1 handle! 16 handle!
cd-cf-fatt-r "Cd_CF_Fatt_R" 1 7 0 0 handle! 16 handle!
cli-for "CliFor" 1 1 0 0 handle! 4 handle!
cd-aliquota-e "Cd_Aliquota_E" 1 3 0 1 handle! 8 handle!
@GiuseppeChillemi
GiuseppeChillemi / gist:81a15c08f9bc9b575742ee6dbe05ab30
Created April 1, 2022 20:43
insert st rejoin ["select top 2 descrizione from cf"] copy st
]
info: 129 create-collation
PICK-METADATA [
SQLGetInfo(129) 0
]
info: 130 create-domain
PICK-METADATA [
SQLGetInfo(130) 0
]
info: 131 create-schema
@GiuseppeChillemi
GiuseppeChillemi / gist:67e337ff745c96b7975c733df7079abf
Created April 1, 2022 19:12
ODBC: "select cast(notexml as varchar(8000)) as n from dotes where notexml is not null" test
]
info: 120 batch-row-count
PICK-METADATA [
SQLGetInfo(120) 0
]
info: 121 batch-support
PICK-METADATA [
SQLGetInfo(121) 0
]
info: 127 create-assertion
@GiuseppeChillemi
GiuseppeChillemi / red-odbc-test_b-ok.txt
Created March 31, 2022 22:40
Partial output of a connection attempt
PICK-METADATA [
SQLGetInfo(41) 0
--------------------------------------------------------------------------------
---------------------------------------------------
00359CB0: 2e
.
--------------------------------------------------------------------------------
---------------------------------------------------
]
@GiuseppeChillemi
GiuseppeChillemi / Relative-Paths-test.red
Last active January 17, 2021 06:17
Show how relative paths works on containers
Red [
Name: "Power Selector"
Purpose: "Demostrate the working scenario of relative paths"
Notes: {
Idea: Giuseppe Chillemi
Path operator: Toomas Vooglaid
}
]
;---- Create the new "///" operator