Onde está escrito:
'insert into lancamentos (data) values :wdata'
O correto seria:
'insert into lancamentos (data) values (:wdata)'
Sds.
>From: "Andre Mesquita" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: Re: [delphi-br] Preciso cadastrar uma data, numa tabela paradox,
>mas esta dando erro.
>Date: Fri, 21 Jul 2006 14:15:24 -0300
>
>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]
>
_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
--
<<<<< 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
