Produit : 4D OCI 2004.3 · Plateforme : Mac & Win
Avec 4D for OCI 2004.3, vous pouvez envoyer du contenu dans une colonne LONG RAW d'une base Oracle.
Code exemple :
Sélectionnez
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
C_ENTIER LONG(envhp;errhp;svchp)
C_ENTIER LONG(Define;stmthp;stmtSelecthp)
C_ENTIER(RealLength)
C_BLOB(ZeBlob)
FIXER TAILLE BLOB(ZeBlob;0)
C_ENTIER LONG(vp_Null1)
C_POINTEUR(vp_Null3)
C_HEURE($DocRef)
C_TEXTE($Path)
$DocRef:=Ouvrir document("";"";Lire chemin accès )
Si (OK=1)
$Path:=document
FERMER DOCUMENT($DocRef)
Fin de si
DOCUMENT VERS BLOB($Path;ZeBlob)
WriteLength:=Taille BLOB(ZeBlob)
C_TEXTE($UserName;$Password;$DbService;$SQLStatement)
$UserName:="xxx"
$Password:="xxx"
$DbService:="xxx"
$Status:=OCIEnvCreate (envhp;OCI_OBJECT )
$Status:=OCIHandleAlloc (envhp;errhp;OCI_HTYPE_ERROR )
$Status:=OCILogon (envhp;errhp;svchp;$UserName;$Password;$DbService)
$Status:=OCIHandleAlloc (envhp;stmthp;OCI_HTYPE_STMT )
$SQLStatement:="INSERT INTO test_LGRAW (key, lgraw) "
$SQLStatement:=$SQLStatement+"VALUES (3, EMPTY_BLOB())"
$Status:=OCIStmtPrepare (stmthp;errhp;$SQLStatement;OCI_DEFAULT )
$Status:=OCIStmtExecute (svchp;stmthp;errhp;1;0;0;0;OCI_DEFAULT )
$SQLStatement:="UPDATE test_LGRAW SET lgraw=:1 WHERE key=3"
$Status:=OCIHandleAlloc (envhp;stmtSelecthp;OCI_HTYPE_STMT )
$Status:=OCIStmtPrepare (stmtSelecthp;errhp;$SQLStatement;OCI_DEFAULT )
vp_Null1:=1
WriteLength:=Taille BLOB(ZeBlob)
$Status:=OCIBindByPos (stmtSelecthp;Define;errhp;1;->ZeBlob;SQLT_LBI ;->vp_Null1;
->WriteLength;->vp_Null3;OCI_DATA_AT_EXEC )
$status:=OCIErrorGet (errhp;1;$errornum;$errorexplain)
Si ($errornum#0)
ALERTE(Chaine($errornum)+Caractere(13)+$errorexplain)
Fin de si
$Status:=OCIStmtExecute (svchp;stmtSelecthp;errhp;1;0;0;0;OCI_DEFAULT )
$Status:=OCIHandleFree (stmtSelecthp)
$status:=OCIErrorGet (errhp;1;$errornum;$errorexplain)
Si ($errornum#0)
ALERTE(Chaine($errornum)+Caractere(13)+$errorexplain)
Fin de si
$Status:=OCIHandleFree (stmthp)
$Status:=OCILogoff (svchp;errhp)
$Status:=OCIHandleFree (errhp)
$Status:=OCICleanUp (envhp)