Valeu Marcos.
Muito obrigado
Frank
>From: "Marcos Cesar Gomes Matos" <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: <[EMAIL PROTECTED]>
>Subject: Re: [sqlwin] Imagem no Banco de Dados
>Date: Fri, 14 Mar 2003 19:19:21 -0300
>
>D� uma olhada no c�digo abaixo.
>
>GRAVANDO
>
>! picLOGO_UFMA = objeto picture, lsUFMA = long string
>Set nLength= SalPicGetString( picLOGO_UFMA, PIC_FormatBitmap, lsUFMA )
>Set nLength= SalPicGetString( picLOGO_CONCURSO, PIC_FormatBitmap, lsCONCURSO )
>Set nLength= SalPicGetString( picASSINATURA, PIC_FormatBitmap, lsASSINATURA )
>!
>Set gsQuery = ' UPDATE CONCURSO SET
> LOGO_UFMA = :frmCONCURSO.lsUFMA,
> LOGO_CONCURSO = :frmCONCURSO.lsCONCURSO,
> ASSINATURA = :frmCONCURSO.lsASSINATURA
> WHERE CONC_ID = :frmCONCURSO.sdfPrimaryKey '
>If NOT SqlPrepare( frmCONCURSO.hSqlSave, gsQuery)
> Return FALSE
>Call SqlSetLongBindDatatype( 1, 23 )
>Call SqlSetLongBindDatatype( 2, 23 )
>Call SqlSetLongBindDatatype( 3, 23 )
>If NOT SqlExecute( frmCONCURSO.hSqlSave )
> Return FALSE
>
>Return TRUE
>
>
>
>BUSCANDO IMG DO BD
>
>Set gsQuery = 'select LOGO_UFMA, LOGO_CONCURSO, ASSINATURA
> from CONCURSO
> into :lsUFMA, :lsCONCURSO, :lsASSINATURA
> where CONC_ID = :frmCONCURSO.sdfPrimaryKey '
>If NOT SqlPrepare(ghSqlGlobal, gsQuery)
> Return FALSE
>
>Call SqlSetLongBindDatatype( 1, 23 )
>Call SqlSetLongBindDatatype( 2, 23 )
>Call SqlSetLongBindDatatype( 3, 23 )
>
>If NOT SqlExecute(ghSqlGlobal)
> Return FALSE
>
>Call SqlFetchNext(ghSqlGlobal, gnFetchOk)
>!
>Call SalPicSetString(picLOGO_UFMA, PIC_FormatBitmap, lsUFMA )
>Call SalPicSetString(picLOGO_CONCURSO, PIC_FormatBitmap, lsCONCURSO )
>Call SalPicSetString(picASSINATURA, PIC_FormatBitmap, lsASSINATURA )
>!
>!
>
>
>
>
>__________________________
>Marcos Cesar Gomes Matos
>NPD/UFMA
>[EMAIL PROTECTED], [EMAIL PROTECTED]
>55-98-2178129
> ----- Original Message -----
> From: Francisco Frank
> To: [EMAIL PROTECTED]
> Sent: Tuesday, March 11, 2003 8:21 AM
> Subject: [sqlwin] Imagem no Banco de Dados
>
>
> Al� [EMAIL PROTECTED]
> Algu�m pode me dizer como gravar uma imagem no Banco de Dados SQLBase?
> Agrade�o qualquer dica
>
> Francisco Frank
>
>
>
>------------------------------------------------------------------------------
> MSN Messenger: converse com os seus amigos online. Instale gr�tis. Clique aqui. ============================================== Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) ==============================================
MSN Hotmail, o maior webmail do Brasil. Fa�a o seu agora. ============================================== Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) ==============================================
