PREENCHER TEXTBOX COM DADOS DO BANCO.
Cara,nunca usei dessa forma.
Vou na captura,se achar posto
de novo.
Vou na captura,se achar posto
de novo.
apenas teste
quando se utiliza o datapicker, não se usa text, e sim value
exemplo
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
Funciona, mais o mês ele traz [Ô]ago[Ô] tem que ser [Ô]agu[Ô] em inglês porque se não o select da erro.
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
para usar é simples
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
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.
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.
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.
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.
assim
format(nomedocampo,[Ô]Currency[Ô])
format(nomedocampo,[Ô]Currency[Ô])
Deu certo.
Vou encerrar o tópico!
Valeu VBmania.
Vou encerrar o tópico!
Valeu VBmania.
Tópico encerrado , respostas não são mais permitidas