HELP VBDATE
Salve vbmaniacos!
Esto precisando de um help. Recentemente eu terminei um curso de vb e estou com um projeto em andamento, mas estou com o seguinte problema. Estou tentando cadastrar um campo de data no banco do Access.
No Access o campo está no formato de data mas no vb está como Mask. Acontece que na hora de cadastrar, o vb está tentando cadastrar como texto.
Um cara me falou que eu tenho que usar o comando VBDATE para converter o campo, mas eu não tenho a mÃnima idéia de como colocar esse comando.
Alguém aà pode me dar um help???
Vlw
Esto precisando de um help. Recentemente eu terminei um curso de vb e estou com um projeto em andamento, mas estou com o seguinte problema. Estou tentando cadastrar um campo de data no banco do Access.
No Access o campo está no formato de data mas no vb está como Mask. Acontece que na hora de cadastrar, o vb está tentando cadastrar como texto.
Um cara me falou que eu tenho que usar o comando VBDATE para converter o campo, mas eu não tenho a mÃnima idéia de como colocar esse comando.
Alguém aà pode me dar um help???
Vlw
vbDate é uma constante no VB e não uma função. Tente as funções CVDate ou CDate.
Exemplo - Convertendo data em formato string para Date:
Dim dt As Date
dt = CDate(text1.text)
Exemplo - Convertendo data em formato string para Date:
Dim dt As Date
dt = CDate(text1.text)
Também pode formatar a data antes enviar para o access, assim,
Format (SuaData, "DD/MM/YYYY")
Format (SuaData, "DD/MM/YYYY")
ou, ainda, CDATE(SeuCampoMask)
Ainda não estou apanhando...
Não sei se faz diferença mas não estou tentando cadastrar no access, estou tentando fazer uma consulta.
Estou usando o comando:
"select * from despesas where data_desp between '" & CDate(mskini.Text) & "' and '" & CDate(mskfim.Text) & "' "
Também já usei:
"select * from despesas where data_desp between '" & CDate(mskini.Mask) & "' and '" & CDate(mskfim.Mask) & "' "
Mas continua dando o seguinte erro:
Tipo de dados incompatÃvel na expressão de critério....
Não sei se faz diferença mas não estou tentando cadastrar no access, estou tentando fazer uma consulta.
Estou usando o comando:
"select * from despesas where data_desp between '" & CDate(mskini.Text) & "' and '" & CDate(mskfim.Text) & "' "
Também já usei:
"select * from despesas where data_desp between '" & CDate(mskini.Mask) & "' and '" & CDate(mskfim.Mask) & "' "
Mas continua dando o seguinte erro:
Tipo de dados incompatÃvel na expressão de critério....
Tópico encerrado , respostas não são mais permitidas