Moderador: Moderadores
set HB_WITH_FIREBIRD=C:\Firebird\include
set HB_INSTALL_PREFIX=c:\Harbour
yx_Data:=&o_TableDBF.->&o_Field.
xx_Data:=strzero(year(yx_Data) ,4)+"-"+ strzero(month(yx_Data),2)+"-"+strzero(day(yx_Data),2)
If xx_Data=="0000-00-00" //vazia
// xx_Data:="" //erro HY000 conversion error from string
// xx_Data:=" - - " //erro HY000 conversion error from string
// xx_Data:="NULL" //error HY000 conversion error from string
// xx_Data:="NUL" //error HY000 conversion error from string
// xx_Data:=" " //error HY000 conversion error from string
xx_Data:="0000-00-00" //error HY000 value exceeds the range for valid dates
EndIf
AADD(x1, {o_Field,"'" + xx_Data + "'"})
...abaixo monta a string sql
yx_Data:=&o_TableDBF.->&o_Field.
xx_Data:=strzero(year(yx_Data) ,4)+"-"+ strzero(month(yx_Data),2)+"-"+strzero(day(yx_Data),2)
If xx_Data=="0000-00-00" //vazia
xx_Data:="NULL" //error HY000 conversion error from string
AADD(x1, {o_Field,xx_Data}) //nao pode passar com a aspas ' '
Else
AADD(x1, {o_Field,"'" + xx_Data + "'"})
EndIf
FUNCTION DateSQL( dDate )
IF Empty( dDate )
RETURN "NULL"
ENDIF
RETURN ['] + Transform( Dtos( dDate ), "@R 9999-99-99" ) + [']
RamonXHB escreveu:Não há suporte total a campos blob, consequentemente, segundo o proprio readme.txt só funciona para texto neste tipo de campo, não possibilitando o uso de imagens, por exemplo
RamonXHB escreveu:Em minha opinião, exclusivamente, acho que não seria sensato confiar nossos sistemas a algo assim, tendo ODBC e ADODB a disposição, e como o José Quintas citou anteriormente neste tópico, ainda temos a opção do SQLMIX.
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes