|
|
Postada em 05/04/2006 08:27 hs
If Len(Text1.Text) = 6 Then
If Pesq_Func_bar(Text1.Text) = True Then
Text2.Text = (rst!nome)
If Not IsNull(rst!foto) = True Then
Dim f As String
f = (rst!foto)
f = Replace(f, ",", "")
Image1.Picture = LoadPicture(f)
End If
cod = Text1.Text
nome = Text2.Text
Timer1.Interval = 2000 Else cod = Text1.Text
MsgBox "Funcionario não cadastrado", vbCritical, "atenção"
Text1.Text = ""
Text1.SetFocus
a = a + 1
Label5.Caption = "Tentativa " & a & " de 3"
If a = 3 Then
MsgBox "Você excedeu o Limite", vbCritical, "Atenção"
Unload Me
Exit Sub
End If
End If
End If nessa liha quando coloco o mouse em cima do (rst!foto) ele mostra o caminho certo, só que depois some, naum joga o valor no F , o que pode ser, ai ele naum carrega a foto... |
|
|
|
|
|
|
|
Postada em 05/04/2006 08:53 hs
Olá Armando. Tente colocar um Trim$ antes do seu comando (rst!foto). Este comando retira todos os espaços da linha e transforma o conteúdo da coluna do banco de dados em string, graças ao sifrão ($) no final do trim. Espero ter ajudado!!!
Abraços!!! 
by
Gustavo Bittencourt Costa
|
|
|
|
|
|
Postada em 05/04/2006 09:10 hs
"transforma o conteúdo da coluna do banco de dados em string, graças ao sifrão ($) no final do trim" não é pra isso q serve o $ naum... mas nao vou perder tempo pra descrever aki naum... Armando, nao sei o q pode ta acontecendo, mas tenta o seguinte: If Not IsNull(rst("foto")) Then Image1.Picture = LoadPicture(Replace(rst("foto"), ",", "")) É mais simples que o seu codigo... pode ser q funcione...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 05/04/2006 09:34 hs
mudei, e continuou na mesma.... muito estranhu isso.... |
|
|
|
|
|
Postada em 05/04/2006 10:04 hs
Então Elieser para que serve o $ se não para retornar o conteúdo do trim como string. Explica aí que agora fiquei curioso!!!
Abraços!!!
by
Gustavo Bittencourt Costa
|
|
|
|
|
|
Postada em 05/04/2006 10:18 hs
O $ eh heranca dos tempos de Basic e Q-Basic...
foi mantido no Visual Basic por motivo de compatibilidade da linguagem...
nessas linguagens mais antigas, eram usados caracteres especiais para referenciar o tipo em variaveis nao-tipadas... o $ era usado para tipar uma variavel como STRING...
logo, uma funcao terminada por $ iria retornar sempre uma String...
no VB nao faz diferenca usar ou naum o $...
eu particularmente nao uso. Prefiro usar Trim() no lugar de Trim$(), replace() no lugar de Replace$(), etc...
Mais uma coisa. O Nome desse simbolo nao eh CIFRAO, mas sim DOLAR.
O cifrao tem DUAS barras verticais... o dolar soh UMA...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
