IMAGEM - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: IMAGEM

Fafá

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 22/10/2010 17:14 hs

Gente olha só, meu programa esta cadastrando imagem desta forma:
    If FrmCLi.Dlg.FileName <> "" Then
        MdlConnect.Abrir_banco
        Set MdlConnect.dbRecord = MdlConnect.dbConnect.Execute("SELECT * FROM NextValor WHERE CodValor = 1")
        NumImag = MdlConnect.dbRecord.Fields("Valor").Value
        path = App.path & "ImagensCapa" + NumImag + ".jpg"
        FileCopy FrmCLi.Dlg.FileName, path
        NumImag = NumImag + 1
        Set MdlConnect.dbRecord = MdlConnect.dbConnect.Execute("UPDATE NextValor set Valor ='" & NumImag & "' WHERE CodValor = 1")
        GLivro.Imagem = path
    End If
Tem o formulário modicar, como vou puxar a imagem do BD pra esse formulário e depois na hora de salvar como faço pra substituir a imagem? Esse NumImag fiz pra conforme foi salvando as imagens o nome ir alterando tipo, 'capa1' dai se já tiver 'capa1' ele salva 'capa2' e assim por diante! E esta salvando a imagem no BD assim >> Imagem (Campo) = Caminho dela.

Obrigada se alguém puder me ajudar. :)

TÓPICO EDITADO

Juan Carlos R.A

MACEIO
AL - BRASIL

Postada em 22/10/2010 17:48 hs

Acho que seria assim
If Len(MdlConnect.dbRecord.Fields("Valor").Value) <> "" Then
Image1.Picture = LoadPicture(App.path & "ImagensCapa" +MdlConnect.dbRecord.Fields("Valor").Value)+ ".jpg")
EndIf

na atualização vc atualiza o novo valor na condicão do codvalor.

Fafá

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 22/10/2010 18:43 hs

Juan está aparecendo aqui, "O ítem não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado"
Não entendi isso.

TÓPICO EDITADO

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 25/10/2010 12:10 hs

Esse erro é quando o nome do campo esta errado. verifica se ta tomando corretamente o nome do campo ao carregar a imagem
loadpicture(caminho do arquivo)
exemplo:

loadpicture("c:\caminhodopath\imagenscapa2.jpg")
faltou uma aspa simples:

If Len(MdlConnect.dbRecord.Fields("Valor").Value) <> "" Then
Image1.Picture = LoadPicture(App.path & "\ImagensCapa" +MdlConnect.dbRecord.Fields("Valor").Value)+ ".jpg")
EndIf

TÓPICO EDITADO

Fafá

RIO DE JANEIRO
RJ - BRASIL

Postada em 25/10/2010 13:58 hs

Realmente, a lesada não presta atenção! Rsrs.. Ajeitei deu certo! :) Tô usando um formulário pra duas coisas, pra detalhar e modificar! Caso vou detalhar ele bloqueia todos os txt's e se vou Modificar ele não bloqueia. Como faço pra bloquear o Image? Sabe?

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 25/10/2010 14:08 hs

Fafá se vc esta carregando a foto ao clicar no command. é so bloquear o botão command=False que chama para localizar uma imagem. se vc fazer diretamente no image ou picture é so colocar enabled=False.

TÓPICO EDITADO

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR