IMAGENS FORMULARIOS

MARCELOFAZAN 30/05/2010 21:25:20
#343278
acho que nao estou conseguindo validar o mostra_dados nas setas , esta com um codigo poco #

e pra conseguir validar a imagem pelas setas

Private Sub CmdMov_Click(Index As Integer)
Dim rs As New ADODB.Recordset

Select Case Index
Case 0 [ô] primeiro
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MIN(id) FROM buscar)[Ô]

Case 1 [ô] anterior
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id < [Ô] & Val(txtid.Text) & [Ô] ORDER BY id DESC[Ô]

Case 2 [ô] proximo
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id > [Ô] & Val(txtid.Text) & [Ô] ORDER BY id[Ô]

Case 3 [ô] ultimo
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MAX(id) FROM buscar)[Ô]

End Select
rs.Open Sql, conexao
[ô]--------------------
If rs.EOF Then [ô] se nao encontrou

Else
MostraDados rs
End If

rs.Close: Set rs = Nothing

End Sub




e tambem na alteracao esta com erro tb



If operacao = [Ô]Alterar[Ô] Then [ô]ALTERACAO
Sql = [Ô]UPDATE buscar SET[Ô]
Sql = Sql & [Ô] nome=[ô][Ô] & txtnome.Text & [Ô][ô],[Ô]
[ô] Sql = Sql & [Ô] Data=[ô][Ô] & IIf(IsDate(Txtdata.Text), [Ô][ô][Ô] & Txtdata.Text & [Ô][ô][Ô], [Ô]null[Ô]) & [Ô], [Ô]
Sql = Sql & [Ô] DATA= [ô][Ô] & Txtdata.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô] pagam=[ô][Ô] & TxtPagam.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô] cod_fox=[ô][Ô] & Txtcod_fox.Text & [Ô][ô][Ô]
Sql = Sql & [Ô] cam_foto=[ô][Ô] & Text1.Text & [Ô][ô][Ô]
Sql = Sql & [Ô] WHERE id= [Ô] & txtid.Text

Erro de sintax operador faltando [Ô]00005[Ô] na expressao de consulta cam_foto = [Ô][Ô]

Abs
Xara
Marcelo Fazan
WILLVIDAL 30/05/2010 22:10:38
#343280
Private Sub MostraDados(rs As ADODB.Recordset)

txtid.Text = rs([Ô]id[Ô])
txtnome.Text = [Ô][Ô] & rs([Ô]nome[Ô])
Txtdata.Text = [Ô][Ô] & rs([Ô]data[Ô])
TxtPagam.Text = [Ô][Ô] & rs([Ô]pagam[Ô])

if dir(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô]) <>[Ô][Ô] then [ô]ja verifica se a foto esta mesmo no local
Picture1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô]) [ô]se esta, carrega
else
picture1.picture=nothing [ô]se não esta limpa a picture
end if
End Sub


para esvaziar a imagem se o usuario cancela use: picture1.picture=nothing
MARCELOFAZAN 30/05/2010 22:57:15
#343281
ok .... amigo obrigado

agora o problema é , estou tentando remover , e quando vo excluir um campo .... ele da a seguinte mensagem

campo buscar.cam_foto nao pode ser uma sequencia de caracteres de comprimento nulo

o que fazer abraço
XYKOVIEIRA 31/05/2010 10:38:29
#343330

Marcelo, tenho um project de filmes DVD onde, num form de pesquisa, ao clicar num botão <Imagens do filme>, um 2º form exibe as fotos gravadas daquele filme.
Se não houver imagens, então uma msgbox informa. A rotina é bem simples. O único problema é que não uso o project para salvar as imagens. Simplesmente,
eu as gravo em disco, colocando uma letra (a,b ou c) ao lado de cada número do filme (que serve de index para a pesquisa). Ex.: filme 1150 com imagens:
a1150.jpg, b1150.jpg e c1150.jpg. No form que exibe as fotos, há três Images com strech = True para receberem as fotos. O código é este:

Private Sub lblFotos_Click()
Dim Pesquisa1 As String, Pesquisa2 As String, Pesquisa3 As String, Procura As String
If Label9.Caption = [Ô][Ô] Then
MsgBox [Ô]Não foi selecionado[Ô] & Chr(13) & _
[Ô]nenhum filme!...[Ô], vbQuestion + vbOKOnly, [Ô] Oops... [Ô]
Exit Sub
Else
Procura = Label22.Caption & [Ô].jpg[Ô] (número do filme)
Pesquisa1 = [Ô]a[Ô] & Procura (foto [ô]a[ô] concatenada ao número do filme)
Pesquisa2 = [Ô]b[Ô] & Procura [Ô] (b)
Pesquisa3 = [Ô]c[Ô] & Procura [Ô] (c)
If Dir([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa1) <> [Ô][Ô] And _
Dir([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa2) <> [Ô][Ô] And _
Dir([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa3) <> [Ô][Ô] Then
frmExibeFoto.Show
[ô]frmExibeFoto.Image1.Visible = True
Set frmExibeFoto.Image1.Picture = LoadPicture([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa1)
Set frmExibeFoto.Image2.Picture = LoadPicture([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa2)
Set frmExibeFoto.Image3.Picture = LoadPicture([Ô]C:\Documents and Settings\Temp\Diversos\Filmes\Images\[Ô] & Pesquisa3)
Else
MsgBox [Ô]Não há imagens para o filme[Ô] & Chr(13) & _
frmListadeFilmes.Label9 & [Ô]...[Ô], vbOKOnly + vbInformation, [Ô]Imagem não disponível.[Ô]
End If
End If
End Sub

Se servir, tá de bom tamanho...
CASSIOJFF 31/05/2010 10:48:11
#343331
Porque vc nao grava a imagem dentro do banco de dados, assim nao teria problema de perder o caminho ou o mesmo ser alterado e vc nao conseguir ver a imagem
MARCELOFAZAN 31/05/2010 11:04:35
#343343
Pessoal a questao da foto fico meio resolvida , agora nao tem como voltar atras

mais to com dificuldades em adaptar essa alteracao na setas do sistema como vo conseguir visualizar as imagens

Private Sub CmdMov_Click(Index As Integer)
Dim rs As New ADODB.Recordset

Select Case Index
Case 0 [ô] primeiro
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MIN(id) FROM buscar)[Ô]

Case 1 [ô] anterior
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id < [Ô] & Val(txtid.Text) & [Ô] ORDER BY id DESC[Ô]

Case 2 [ô] proximo
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id > [Ô] & Val(txtid.Text) & [Ô] ORDER BY id[Ô]

Case 3 [ô] ultimo
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MAX(id) FROM buscar)[Ô]

End Select
rs.Open Sql, conexao
[ô]--------------------
If rs.EOF Then [ô] se nao encontrou

Else
MostraDados rs
End If

rs.Close: Set rs = Nothing

End Sub



e esse o mostra dados , como chamar as figuras nas setas

Private Sub MostraDados(rs As ADODB.Recordset)

txtid.Text = rs([Ô]id[Ô])
txtnome.Text = [Ô][Ô] & rs([Ô]nome[Ô])
Txtdata.Text = [Ô][Ô] & rs([Ô]data[Ô])
TxtPagam.Text = [Ô][Ô] & rs([Ô]pagam[Ô])
Text1.Text = [Ô][Ô] & rs([Ô]cam_foto[Ô])


If Dir(App.Path & [Ô]\FOTOS\[Ô] & txtid.Text & [Ô].bmp[Ô]) <> [Ô][Ô] Then
Picture1.Picture = LoadPicture(App.Path & [Ô]\FOTOS\[Ô] & txtid.Text & [Ô].bmp[Ô])
Else
Picture1.Picture = LoadPicture([Ô][Ô])

End If
MARCELOFAZAN 31/05/2010 14:22:03
#343398
Pessoal eu limpo os campos


Text1.Text = [Ô][Ô]
Text2.Text = [Ô][Ô]
Text3.Text = [Ô][Ô]
Text5.Text = [Ô][Ô]
Text6.Text = [Ô][Ô]
Text7.Text = [Ô][Ô]
Text4.Text = [Ô][Ô]
Label6.Caption = [Ô][Ô]
Label8.Caption = [Ô][Ô]


como vo limpar a imagem ?

picture1.picture = ????
MARCELOFAZAN 31/05/2010 14:44:37
#343408

Picture1.Picture = LoadPicture([Ô][Ô])

deve ser isso mesmo neh
obrigado

Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar