USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  SALVAR CAMPO DATA NO FIREBIRD
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 27/10/2010 10:25 hs         
Bom dia Amigos
alguem pode me ajudar., com essa duvida
estou usando BD Firebird Conexao ADO
ma minha tabela tenho um campo DATA, pois bem estou usando assim para os demais
mas no campo data, não deu certo, acho que tenho que colocar como deve ser,
dd/mm/yyyy = mais ou menos isso, e tem algums que grava em branco. ,
 
 
CnSql.Execute "INSERT INTO CadClientes (ClienteID, Cadastro) VALUES ('" & txtClienteID.Text & "', '" & txtCadastro.Text & "')"
 
CnSql.Execute "UPDATE CadClientes SET OBS = '" & txtObs.Text & "' WHERE ClienteID = " & txtClienteID.Text
 
Grato
 
 
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 27/10/2010 10:40 hs            
tenta assim:

CnSql.Execute "INSERT INTO CadClientes (ClienteID, Cadastro) VALUES ('" & txtClienteID.Text & "', '" & format(txtCadastro.Text,"dd/mm/yyyy") & "')"

ou assim

CnSql.Execute "INSERT INTO CadClientes (ClienteID, Cadastro) VALUES ('" & txtClienteID.Text & "', '" & format(txtCadastro.Text &,"yyyy/mm/dd") & "')"

   
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 27/10/2010 10:48 hs         
R.A
NO UPDATE TB,
 
   
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 27/10/2010 17:48 hs         
Resolvido
    If txtCadastro.Text > "" Then
    txtCadastro.Text = Format(txtCadastro.Text, "yyyy/mm/dd")
    End If
Bem simples Henn
 
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página