DEFSQLCOMMAND

DesktopWeb

Definizione comando SQL

Parametri

Parametro	Definizione	I/O		Versione traduttore	SMP
IDCOMANDO	Long
COMANDO	Stringa
ERRORE	Intero

IDCOMANDO

LongOutputObbligatorioValore non necessarioDesktopWeb

Identificatore del comando definito

COMANDO

StringaInputObbligatorioValore non necessarioDesktopWeb

Indicazione del comando SQL

ERRORE

InteroInputValore non necessarioDesktopWeb

SottoParametri

Consente al programma di intercettare e gestire l'errore restituito dalla funzione.

suggerimento

Utilizzare uno dei metodi GetLastError*() della classe BCContextInfo per ottenere le informazioni dell'errore.

Esempi

Definizione per comando SELECT

 DIM DBGROUP[STRING] = "GG"
 DIM FAMCODE[STRING] = "01"

 DIM commandId[INT]
 DIM idQuery[INT]   
 
 DIM fam[CLASSE[BLD_FAMIGLIA]]
 fam.Clear()
 
 ' Le variabili all'interno di BCVIN[] e BCVOUT[] devono avere il nome maiuscolo
 DIM sqlCommand[STRING] = "SELECT BLDFamiglie.CodFamiglia BCVOUT[fam.CodFamiglia], " 
 sqlCommand += "BLDFamiglie.DesFamiglia BCVOUT[fam.DesFamiglia] "
 sqlCommand += "FROM BLDFamiglie "
 sqlCommand += "WHERE BLDFamiglie.DBGruppo = BCVIN[DBGROUP] AND BLDFamiglie.CodFamiglia > BCVIN[FAMCODE]"
                          
 '@DEFSQLCOMMAND IDCOMANDO[commandId] _
                 COMANDO[sqlCommand]
                 
 '@DEFQUERY IDQUERY[idQuery] IDCOMANDO[commandId] NOME["BCRIF_DEFSQLCOMMAND_19"]

Definizione per comando INSERT

 DIM commandId[INT]
 
 DIM CODFAM[STRING] = "10"
 DIM DESFAM[STRING] = "Famiglia 10"
 DIM CODMACROFAM[STRING] = "01"
 DIM DATAINIZVAL[DATE] = 13112024
 DIM DATAFINEVAL[DATE] = 13112024
 
 ' Le variabili all'interno di BCVIN[] e BCVOUT[] devono avere il nome maiuscolo
 DIM sqlCommand[STRING] = "INSERT INTO BLDFamiglie VALUES(BCVIN[CODFAM], " 
 sqlCommand += "BCVIN[DESFAM], "
 sqlCommand += "BCVIN[CODMACROFAM], "
 sqlCommand += "BCVIN[DATAINIZVAL], "
 sqlCommand += "BCVIN[DATAFINEVAL], ...) "
                          
 '@DEFSQLCOMMAND IDCOMANDO[commandId] _
                 COMANDO[sqlCommand]
                 
 DIM NumRecords[INT]
 
 '@EXECSQLCOMMAND IDCOMANDO[commandId] ERRORE[#SQLERR] RECORDS[NumRecords]