COMO: Armazenar e recuperar um arquivo de imagem com o SQL Server CE e eVB

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 318639
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo passo a passo descreve como armazenar um arquivo de imagem a um banco de dados do Microsoft SQL Server 2000 Windows CE Edition (SQL Server CE) e como recuperar a imagem armazenada do banco de dados e reconstruir o arquivo de imagem. Este artigo usa Microsoft eMbedded Visual Basic como a plataforma de desenvolvimento.

As seções a seguir descrevem como criar um aplicativo do eMbedded Visual Basic que usa dois botões de comando. Um botão de comando armazena um arquivo .jpg para um banco de dados do SQL Server CE. O botão de comando segundo é para reconstruir o arquivo .jpg os dados de imagem armazenados no banco de dados SQL Server CE.
back to the top

Como armazenar um arquivo JPG para um banco de dados do SQL Server CE

  1. Copie o arquivo MS.jpg da pasta Programas de Programas\Arquivos Comuns\Microsoft Shared\Grphflt no seu computador de mesa para o dispositivo CE. Se você não pode encontrar esse arquivo, use qualquer outro arquivo .jpg e verifique se substituir as referências no segmento de código do exemplo com o nome apropriado.
  2. O segmento de código seguinte descreve como armazenar um arquivo .jpg para um banco de dados do SQL Server CE.

    Observação : O segmento de código presume que você tenha um banco de dados chamado Image.sdf criado no dispositivo CE.
    1. Crie um novo aplicativo básico Visual Microsoft eMbedded.
    2. Adicionar um botão de comando ao formulário padrão e, em seguida, cole o código seguinte para o comando:
         Private Sub Command1_Click()      Dim cn      Dim rs      Dim pixfld      Const adcmdtabledirect = 512      Const adlockoptimistic = 3      Const adopenkeyset = 1      Dim sfiledata            Dim picfile As File      Set picfile = CreateObject("FileCtl.File")          picfile.Open "\MS.JPG", fsModeBinary    sfiledata = picfile.Input(picfile.LOF)        Set cn = CreateObject("ADOCE.Connection.3.1")    Set rs = CreateObject("ADOCE.Recordset.3.1")    cn.ConnectionString = "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\image.sdf"    cn.Open        ' Comment the following line the first time you run this sample.    cn.Execute "drop table JpegTest"           cn.Execute "create table JpegTest (ID int, Pix Image)"            rs.Open "jpegTest", cn, adopenkeyset, adlockoptimistic, adcmdtabledirect        Set pixfld = rs("pix")    rs.AddNew    rs.Fields("id") = 1        pixfld.AppendChunk sfiledata        picfile.Close    rs.Update        rs.Close    cn.Close    Set rs = Nothing    Set cn = Nothing        MsgBox "success storing image to database"End Sub 						
back to the top

Como recuperar um arquivo JPG de um banco de dados do SQL Server CE

O segmento de código seguinte descreve como reconstruir um arquivo .jpg dos dados de imagem armazenados no SQL Server CE.

Observação : O código pressupõe que a imagem armazenada no banco de dados CE é do tipo .jpg. Você deve saber o tipo da imagem (.jpg, .gif, .bmp e assim por diante) para reconstruir o arquivo com êxito usando o exemplo de código a seguir. O código também pressupõe que o nome e caminho do arquivo .jpg reconstructed é \MSRetrieved.jpg.

Adicionar outro botão de comando para o formulário padrão e, em seguida, cole o seguinte código:
Private Sub Command2_Click()      Dim cn      Dim rs            Const adcmdtabledirect = 512      Const adlockoptimistic = 3      Const adopenkeyset = 1            Dim picfile As File      Set picfile = CreateObject("FileCtl.File")            picfile.Open "\MSRetrieved.JPG", fsModeBinary, fsAccessWrite        Set cn = CreateObject("ADOCE.Connection.3.1")    Set rs = CreateObject("ADOCE.Recordset.3.1")        cn.ConnectionString = "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\image.sdf"    cn.Open        rs.Open "JpegTest", cn, adopenkeyset, adlockoptimistic, adcmdtabledirect        ' You may have to adjust the size passed to GetChunk.        picfile.LinePrint rs.Fields("Pix").GetChunk(10000)    picfile.Close        rs.Close    cn.Close    Set rs = Nothing    Set cn = Nothing        MsgBox "success loading image to file"End Sub				
back to the top

Como adicionar referências para o projeto

Para adicionar referências para o projeto, a partir do menu Project , clique em referências . Clique para selecionar referências para:

  • Microsoft CE ADO controle 3.1
  • Microsoft CE ADO ramal 3.1 para DDL
  • Controle de sistema de arquivos de CE Microsoft 3.0
  • Controle Microsoft CE SQL Server 1.0
back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 318639 - Última Revisão: 12/07/2015 09:05:02 - Revisão: 2.4

Microsoft SQL Server 2000 Windows CE Edition, Microsoft SQL Server 2000 Windows CE Edition 1.1, Microsoft SQL Server 2000 Windows CE Edition 1.1 Service Pack 1

  • kbnosurvey kbarchive kbmt kbgraphxlink kbhowto kbhowtomaster KB318639 KbMtpt
Comentários