SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2011 11:13 hs
Amigos bom dia.
Estou fazendo um programa que guarda o caminho de fotos no banco de dados. Até ai tudo bem, consigo salvar o caminho quando estas fotos estão no C:. Mas quando navego em outras pastas e escolho uma foto por exemplo as fotos do windows (mostra de imagens) (KOALA,JPG, tulipas.jpg, etc) o vb 6 me retorna a seguinte mesnagem de erro:
Run-Time-Error '-2147217887 (80040e21)':
Operação de váris etapas gerou erros. Verifique cada valor de status. Algúem poderia me ajudar a resolver esse problema???
Abaixo está o codigo do botão inserir fotos:
Public caminho as Integer
----------------------------------------
On Error GoTo erraf
dlgFOTO.DialogTitle = "Definir Caminho das Fotos"
dlgFOTO.InitDir = "C:"
dlgFOTO.FileName = "*.jpg;*.jpeg;*.gif;*.bmp"
dlgFOTO.Filter = "*.jpg;*.jpeg;*.gif;*.bmp"
dlgFOTO.ShowOpen
Image1.Picture = LoadPicture(dlgFOTO.FileName)
Text12.Text = dlgFOTO.FileName
caminho = Text12.Text
On Error GoTo 0
Exit Sub
erradofof:
MsgBox "Cancelado pelo Usuário"
End Sub
Aqui está o codigo do botão salvar:
Private Sub grava_rec()
'On Error GoTo grava
rst!CodMar = "" & Text1.Text
rst!Nome = "" & Text2.Text
rst!Apelido = "" & Text3.Text
rst!Data_Nascimento = "" & Text4.Text
rst!Mae = "" & Text5.Text
rst!Pai = "" & Text6.Text
rst!Natural = "" & Text7.Text
rst!Rua = "" & Text8.Text
rst!Bairro = "" & Text9.Text
rst!Cutis = "" & Combo1.Text
rst!Tipo_de_Tatuagem = "" & Combo2.Text
rst!Cor_dos_olhos = "" & Combo3.Text
rst!Cabelo = "" & Combo4.Text
rst!Cor_dos_Cabelos = "" & Combo5.Text
rst!Peculiaridades = "" & Combo6.Text
rst!Foto = "" & caminho '>>>>>>>>>> (O ERRO OCORRE NESTA LINHA)
rst!Observacoes = "" & Text13.Text
Exit Sub
'grava:
' MsgBox "Ocorreu um erro no processamento"
' Text2.SetFocus
End Sub
|
|
|
|
|
|
|
|
Postada em 30/03/2011 12:10 hs
Amigo da mesma forma que vc usou o LOADPICTURE, para carregar a imagem para dentro do IMAGE, vc deve utilizá-lo para inserir a foto no BD, só que observe também se no campo que irar receber a foto o TIPO DE DADOS está como OBJETO OLE!
Agora se não estiver sendo inconveniente, pq que ao invés de salvar a imagem no BD, vc não grava apenas o CAMINHO da pasta que ela esta armazenada, pois fazendo isso, não ira deixar o seu BD muito pesado! Ai quando vc fazer um SELECT para visualizar os registros, é só colocar para que seja aberto no IMAGE o caminho de onde está a foto! Ex:
PARA SALVAR O CAMINHO DA IMAGEM
dlgFOTO.ShowOpen
sua_variavel = LoadPicture(dlgFOTO.FileName) exe: 'sua_variavel = "C:Documents and SettingsAll UsersDocumentosMinhas imagensAmostras de imagens
infeias.jpg"
rst!Foto = sua_variavel
QUANDO VC FIZER UM SELECT
Do While not rs.eof
Text1.Text = rst!CodMar
Image1.Picture = LoadPicture( rst!Foto)
rs.MoveNext
Loop
Jesus vive e reina para SEMPRE!
|
|
TÓPICO EDITADO
|
|
|
|
André
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2011 14:32 hs
SRick,testei seu código e não deu nenhum erro. Win7 sp1. |
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2011 16:56 hs
Olá André tenta inserir uma imagem de uma outra pasta que não esteja no C:????
Henrique
|
|
|
|
|
|
Postada em 30/03/2011 17:13 hs
se o campo que grava a foto for tipo text e o tamanho de carateres não debe dar esse erro. veirifica no access o tamanho do campo texto da foto. aumentar se for necesario.
|
|
|
|
André
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2011 18:05 hs
Foi isto que fiz.No meu pc,o Hd é particionado em três.C,D,E.Meu win7 que uso está na partição E.Fui em C e D e abri fotos que tem nestas partições e todas abriram. |
|
|
|
