Re: [sqlwin] Imagem no Banco de Dados

[Marcos Cesar Gomes Matos]

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) ==============================================