15 Ago 2017 11:07
15 Ago 2017 12:03
dNasceu := iif( empty(data),NULL,dData)
dNasceu := iif( empty(data),NULL,dData)
cSQL := 'INSERT INTO Clientes (IDCLI_cod,cli_nasceu) Values ( '
cSql += ' " ' + xcod + ' ", '
cSql += ' " ' + dNasceu + ' " '
cSql += ' ) '
15 Ago 2017 13:50
cSql := "INSERT INTO CLIENTES ( IDCLI_CODCLI, CLI_NOME, CLI_NASCEU ) VALUES ( [CODIGO], [NOME], [NASCEU] )"
cSql := Replace( cSql, "[CODIGO]", StringSql( xCod ) )
cSql := Replace( cSql, "[NOME]", StringSql( xcli_nome) )
cSql := Replace( cSql, "[NASCEU]", DateSql( dNasceu ) )
WITH OBJECT cnMySql
:QueryCreate()
:QueryAdd( "IDCLI_CODCLI", xCod )
:QueryAdd( "CLI_NOME", xCli_nome )
:QueryAdd( "CLI_NASCEU", dNasceu )
:QueryExecuteInsert( "CLIENTES" )
// :QueryExecuteUpdate( "CLIENTES", "IDCLI_CODCLI=" + xCod )
END WITH
IF ! Empty( dNasceu )
:QueryAdd( "CLI_NASCEU", dNasceu )
ENDIF
cSql := "INSERT INTO CLIENTES ( IDCLI_CODCLI, CLI_NOME"
IF ! Empty( dDate )
cSql += ", CLI_NASCEU"
ENDIF
cSql += " ) VALUES ("
cSql += xCodCli + ", '" + cli_nome + "'"
IF ! Empty( dDate )
cSql += ", '" + hb_Dtoc( xCli_Nasceu, "YYYY-MM-DD" ) + "'"
ENDIF
cSql += ")"
15 Ago 2017 14:01
15 Ago 2017 14:03
WITH OBJECT cnMySql
:QueryCreate()
:QueryAdd( "RECIBO", mRecibo10Recibo )
:QueryAdd( "NEXTRA", mNumExtrato )
:QueryAdd( "COD", mRecibo10Cod )
:QueryAdd( "LOCOD", mRecibo10LoCod )
:QueryAdd( "LOCNOME", mRecibo10LocNome )
:QueryAdd( "NOME", mRecibo10Nome )
:QueryAdd( "VALOR", mRecibo10Valor )
:QueryAdd( "DIA_VENC", mRecibo10Dia_Venc )
:QueryAdd( "DATA", mRecibo10Data )
:QueryAdd( "ALUGUELNP", mRecibo10AluguelNP )
:QueryAdd( "ALUGUELQP", mRecibo10AluguelQP )
:QueryAdd( "COM", mRecibo10Com )
:QueryAdd( "VALORCOMIS", mRecibo10ValorComis )
:QueryAdd( "TC", mRecibo10Tc )
:QueryAdd( "DB", mRecibo10Db )
:QueryAdd( "MES", mRecibo10Mes )
:QueryAdd( "MESTO", mRecibo10MesTo )
:QueryAdd( "EMITIDO", mRecibo10Emitido )
:QueryAdd( "ADIANTA", mRecibo10Adianta )
:QueryAdd( "TIPO", mRecibo10Tipo )
:QueryAdd( "PAGO", mRecibo10Pago )
:QueryAdd( "ANOBASE", StrZero( Year( mDataBaixa ), 4 ) )
:QueryAdd( "CRDATPAG", mDataBaixa )
:QueryExecuteInsert( "CORRENTE" )
END WITH
06 Nov 2017 14:05
porter escreveu:Se a variável nasceu = "", quero omitir esse campo no Insert, dessa forma automaticamente o campo CLI_NASCEU assumiria NULL
06 Abr 2023 14:48
06 Abr 2023 16:11
06 Abr 2023 16:55
06 Abr 2023 18:40
HASA escreveu:Boa tarde, estou migrando dados com o mysql 8 e...
LOCAL cSQL
cSQL := "INSERT INTO contador ( `id_contador`, `nome`, `dtcadastro` ) VALUES ( '1' , '"
cSQL += ALLTRIM( D_CONTAB->NOME ) + "' , '"
cSQL += IF( EMPTY( D_CONTAB->DTCADASTRO ), "NULL", Data_sql( D_CONTAB->DTCADASTRO ) ) + " ); "
HASA escreveu:data_ultima_compra date DEFAULT NULL
06 Abr 2023 19:39
cSQL := "INSERT INTO TABELA ( DATA ) VALUES ( " + Data_Sql( dData ) + " )"
FUNCTION Data_SQL( dData )
IF Empty( dData )
RETURN "NULL"
ENDIF
RETURN ['] + hb_Dtoc( dData, "YYYY-MM-DD" ) + [']
06 Abr 2023 19:45
INSERT INTO TABELA ( `codigo`, `nome` )
07 Abr 2023 14:42
10 Abr 2023 09:23
10 Abr 2023 13:16
HASA escreveu:-Bom dia, gostaria de agradecer aos amigos pelas dicas, e deixar uma também, no meu caso a confusão se deu em ASPAS simpes e ASPAS duplas, estava fazendo certo, mas não respeitando a regra das aspas.
Valeu mesmo pessoal.