PREENCHER TEXTBOX COM DADOS DO BANCO.

OMAR2011 20/09/2012 09:51:40
#410058
Cara,nunca usei dessa forma.
Vou na captura,se achar posto
de novo.
MARCELO.TREZE 20/09/2012 11:12:15
#410070
apenas teste

Private Sub Command1_Click()
MsgBox Format([Ô]25/07/1972[Ô], [Ô]dd-mmm-yyyy[Ô])
End Sub


quando se utiliza o datapicker, não se usa text, e sim value

exemplo

Private Sub Command1_Click()
MsgBox Format(DTPicker1.Value, [Ô]dd-mmm-yyyy[Ô])
End Sub



CAIOHSZA 20/09/2012 12:18:39
#410077
Funciona, mais o mês ele traz [Ô]ago[Ô] tem que ser [Ô]agu[Ô] em inglês porque se não o select da erro.
MARCELO.TREZE 20/09/2012 13:14:55
#410081
sei que existem outras maneiras de se converter a data para o tipo ingles, porém preferi criar uma funçaõ que irá te ajudar

veja


Function FormatarDataOracle(data As String) As String
Dim Meses(), dt() As String
Meses = Array([Ô][Ô], [Ô]jan[Ô], [Ô]feb[Ô], [Ô]mar[Ô], [Ô]apr[Ô], [Ô]may[Ô], [Ô]jun[Ô], [Ô]jul[Ô], [Ô]aug[Ô], [Ô]sep[Ô], [Ô]oct[Ô], [Ô]nov[Ô], [Ô]dec[Ô])
dt = Split(data, [Ô]/[Ô])
FormatarDataOracle = Format(dt(0), [Ô]00[Ô]) & [Ô]-[Ô] & Meses(CInt(dt(1))) & [Ô]-[Ô] & Format(dt(2), [Ô]0000[Ô])
End Function



para usar é simples

Private Sub Command1_Click()
MsgBox FormatarDataOracle(DTPicker1.Value)
End Sub
OMAR2011 20/09/2012 13:44:29
#410083
Cara,faça um teste com este e depois com o outro.

rs.Open [Ô]Select Cod,FN06VRTITU,FN06DTVENC From FN06T Where FN06DTVENC=[ô]2012-ago-01[ô][Ô], oconn, adOpenDynamic, adLockOptimistic
Este deu certo.

Agora,
rs.Open [Ô]Select Cod,FN06VRTITU,FN06DTVENC From FN06T Where FN06DTVENC=[ô]2012-agu-01[ô][Ô], oconn, adOpenDynamic, adLockOptimistic
Deu erro.

Acredito que seu Oracle é mesma versão do meu,aceitando o formato do Brasil e não do Tio Sam.
CAIOHSZA 20/09/2012 15:53:38
#410089
Galera muito obrigado. Vocês me ajudaram muito!!!
Está quase pronto. Só tenho mais uma dúvida.
Como eu faço pra por ponto nas casas decimais?
Tipo no campo JBA e JPA = 5433855,5 ficar assim: 5.433.855,5

Mais uma vez, muito obrigado.
MARCELO.TREZE 20/09/2012 17:51:19
#410105
assim

format(nomedocampo,[Ô]Currency[Ô])

CAIOHSZA 21/09/2012 08:15:57
#410129
Deu certo.
Vou encerrar o tópico!
Valeu VBmania.


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