(Resolvido)Inserção de um texto de arquivo .doc no BD SQL Server

[Victor_DF]

Olá pessoal...

Oproblema é:

Eu estou lendo o conteúdo de um arqivo do word para salvar em um banco SQL Server, quando eu vou acessar os dados de uma pessoa, esse conteúdo aparece em um OleContainer com o word. Mas quando eu vou gerar o relatório com esses mesmos dados vindos do BD não aparece nada...

o que pode ser???

alguém sabe como fazer essa operação???

Obrigado Victor

Editado Julho 21, 2009 por Victor_DF

[Jhonas]

Eu estou lendo o conteúdo de um arqivo do word para salvar em um banco SQL Server, quando eu vou acessar os dados de uma pessoa, esse conteúdo aparece em um OleContainer com o word. Mas quando eu vou gerar o relatório com esses mesmos dados vindos do BD não aparece nada...

Voce está querendo jogar o conteudo do banco em um documento word ? se for isso, pesquise no forum pela palavra word, find e replace

abraço

[Victor_DF]

Não não... eu estou querendo jogar no banco o conteúdo de um arqivo do word... do word pro banco já ta funcionando...

o problema é que o sistema não estágravando no banco, aí não vem nada no relatório...

Editado Julho 16, 2009 por Victor_DF

[Jhonas]

eu estou querendo jogar no banco o conteúdo de um arqivo do word... do word pro banco já ta funcionando...

o problema é que o sistema não está gravando no banco

Voce está dando o comando para Salvar ??? poste o seu código que fica mais facil te ajudar

abraço

[Victor_DF]

Sinto muito mais não posso divulgar este código. O sistema e privado da empresa onde trabalho...

Só estou querendo saber como voce faria.

Eu estou dando o insert mas ta dando um problema de compartilhamento em uma função que eu criei...

Vlw

Abraço

[Jhonas]

Nesta caso faça uma pesquisa no forum pela palavra word e veja o que encontra

abraço

[Victor_DF]

Jhonas...

O problema foi resolvido com a mudança do tipo de arquivo que eu estava trabalhando. Eu usei um arquivo no formato Rich Text (*.rtf) para salvar as alterações, usando o próprio word.

O código ficou assim:

Uses ComObj

// Para gerar um arquivo *.rtf, com o conteudo do que está no RichEdit
procedure TForm1.WordClick(Sender: TObject);
begin
  inherited;
  try

    // Instancia o word para dentro da variável MSWord
    MSWord:= CreateOleObject('word.basic');
  except
    ShowMessage('Word não encontrado!');
  end;

    // Abre o word
    MSWord.AppShow;

    // Verifica se o arquivo 'Texto.rtf' existe
    if FileExists('Texto.rtf') then
      begin
        DeleteFile('Texto.rtf');
      end;

    // Cria um novo documento no word
    MSWord.FileNew;

    // Salva o documento no formato tipo *.rtf
    MSWord.FileSaveAs('Texto',6);

    // Verifica se o RitchEdit contem algum conteudo para escrever no word
    if reLdo.Lines.Count > 0 then
      begin
        texto:= reLdo.Lines.Text;

        // Esqureve o conteudo do RichEdit no word
        MSWord.Insert(texto);

        // Salva as alterações no formato *.rtf
        MSWord.FileSaveAs('Texto',6);
      end
    else
      MSWord.FileSaveAs('Texto',6);
end;

// Carrega o arquivo modificado para o RichEdit

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  inherited;
    if FileExists('Texto.rtf') then
      begin

        // Carrega o arquivo 'Texto.rtf' dentro do RichEdit
        RichEdit.Lines.LoadFromFile('Texto.rtf');
      end
    else
      begin
        ShowMessage('Arquivo inexistente');
        exit;
      end;

Com isso eu gerei um relatório no TppReport na RBuilder. E o conteúdo do RichEdit eu gravei no banco com um comando 'Insert' em uma Query...

Vlw a atanção cara...

Abraço

Editado Julho 21, 2009 por Victor_DF