Armando...
Search in ORACLE help, the sql string to create a DATABASE.. then
//---------------------------------------------------------------------------------------------------
Function SqlDo(cSelect)
Local Retorno
Local oCmd
Local oErrorCmd
oCmd:=TOleAuto():New("ADODB.Command")
oCmd:CommandText := cSelect
oCmd:CommandType := adCmdText
oCmd:ActiveConnection:= oCn
TRY
oRsCmd:=oCmd:Execute()
Retorno:=oRsCmd:Fields( 0 ):value
CATCH oErrorCmd
ShowError(oErrorCmd)
END
oRsCmd:=Nil
Return Nil
//---------------------------------------------------------------------------------------------------
Function ShowError(oError,cTitle)
Local cMensaje:=""
Local cArg,cArgs:=""
If ValType(oError:Args) =="A"
For Each cArg in oError:Args
cArgs+=cValToChar(cArg) + CRLF
NEXT
Endif
cMensaje:= "Descripción : " + oError:Description + CRLF + ;
"SubSistema : " + oError:SubSystem + CRLF + ;
"SubCodigo : " + ALLTRIM(Str(oError:SubCode)) + CRLF + ;
"Operacion : " + oError:Operation + CRLF + ;
"Argumentos : " + cArgs
Return Nil
With this funtion you can send any sql sentence to the server, change it to fullfill your needs..
From Chile
Adolfo
OCN is your active Oracle Connection
;-) Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
