Mastigando...
----------------------------------------------------
var
grava_data : String;
begin
try
StrToDate(Edit1.Text); // Pode ser também StrToDateTime(Edit1.Text);
grava_data : = 'insert into lancamentos (data) values :wdata';
query_cadgrava.Close;
query_cadgrava.Sql.Text := grava_data;
query_cadgrava.ParamByName('wdata').asDate := Date;
query_cadgrava.ExecSQL;
except
on E : Exception do
MessageDlg('Ocorreu o erro: ' + E.Message, mtError, [mbOk], 0);
end;
end;
----- Original Message -----
From: Andrei Luís
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 21, 2006 1:40 PM
Subject: Re: [delphi-br] Preciso cadastrar uma data, numa tabela paradox, mas
esta dando erro.
Use parâmetros:
grava_data : = 'insert into lancamentos (data) values :wdata';
query_cadgrava.Close;
query_cadgrava.Sql.Clear;
query_cadgrava.Sql.Add(grava_data);
query_cadgrava.ParamByName('wdata').asDate := Date;
query_cadgrava.ExecSQL;
[]
Andrei
Em 21/07/06, Alexandre Simas Maciel<[EMAIL PROTECTED]> escreveu:
>
>
>
> Ok mas como faço isso em query com comando SQL
>
> La nas variaveis eu delacrei a variavel grava_data como string e no botao
> gravar digitei o codigo abaixo:
>
>
> grava_data : = 'insert into lancamentos (data) value
> ('''+edit.text+''')';
>
> query_cadgrava.Close;
> query_cadgrava.Sql.Clear;
> query_cadgrava.Sql.Add(grava_data);
> query_cadgrava.ExecSQL;
>
>
>
>
> Ta depois disso, da o erro: "type mismatch" que eu falei.
>
> Só me falta acerta isso, para o meu cadastro fica pronto.
>
> OBS: Detalhe na tabela do paradox o meu campo data esta do tipo date.
>
>
>
>
>
>
> ----- Original Message -----
> From: "Adenes I. Freire Junior" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Friday, July 21, 2006 7:55 AM
> Subject: Re: [delphi-br] Preciso cadastrar uma data, numa tabela paradox,
> mas esta dando erro.
>
>
> > Faça assim:
> > try
> > TabelaData.Value := StrToDate(EditData.Text);
> > except
> > ShowMessage('Verifique se você digitou uma data válida!', mtError,
> > [mbOk], 0);
> >
> > end;
> >
> > ----- Original Message -----
> > From: "Alexandre Simas Maciel" <[EMAIL PROTECTED]>
> > To: <delphi-br@yahoogrupos.com.br>
> > Sent: Thursday, July 20, 2006 1:06 PM
> > Subject: [delphi-br] Preciso cadastrar uma data, numa tabela paradox, mas
> > esta dando erro.
> >
> >
> >> Ola amigos..
> >>
> >> Resumindo a historia, tenho um Formulario, que nele tem um campo edit
> >> onde
> >> eu digito uma data qualquer e logo em seguida aperto no botao gravar para
> >> gravar essa data na tabela.
> >>
> >> Na tabela no paradox eu criei o campo Data do tipo date.
> >>
> >> Só que na hora que eu vou gravar da o erro: tipy mismatch. deve ser pq
> >> o
> >> campo onde eu digito a data é string e o campo da tabela é date, sei
> >> la...só
> >> sei que ja tentei de varias formas e nada. usei strtodate, mas nada
> >> adianta.... nao consigo gravar.
> >>
> >> Se alguem puder me ajudar. ficarei grato.
> >>
> >> Abraço..
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
