Erro ao Abrir Form (SQL)

Delphi

23/02/2004

Caros Amigos,

Tenho o seguinte erro ao abrir o meu form
:shock: ´Invalid Variante Type Conversion´.
Qdo pressiono F8 ele da
´Invalid Value for Field Codigo´.
Esse problema (creio) estah na nova SQL que inseri com o codigo:
with SQL do begin
Clear;
Add(´SELECT CODIGO, VALOR_TOTAL, RELACIONAMENTOCLIENTE, DATS, PAGO´);
Add(´FROM ´TABELA_LOCACAO.DB´ Tabela_locacao´);
Add(´WHERE (RELACIONAMENTOCLIENTE = ´ + ´´´´ + Dtmo.TBCLIENTESNOME.Value + ´´´´ +´)´);
Add(´AND CODIGO = ´);
Add(InttoStr(dtmo.TBALUGACODIGO.Value));
Add(´ AND (PAGO = ´+ ´´´´+´NAO´+´´´´+´)´);
Outra coisa: como faco para mudar a data do Windows atraves do meu programa.
Desde ja agradeco pela leitura e por eventuais respostas
Obrigado :wink: [color=green][/color]


Dbergkamps

Dbergkamps

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

23/02/2004

colegas,
vale ressaltar que o meu executavel esta menor do que o de costume.
Ele tinha cerca de 2.01mb agora esta com 964kb. alguem ja passou por isso? por favor ajudem-me.


GOSTEI 0
Marco Salles

Marco Salles

23/02/2004

Posso Arriscar Dar Um Palpite Sem Maiores Pretenções Diga-se De Passagem: 

Troque:
  Add(InttoStr(dtmo.TBALUGACODIGO.Value)); 
Por :
  Add(StrToInt(dtmo.TBALUGACODIGO.Value));


Quanto a Mudar Data Do Windows Pelo Sistema, Se Ninguem Lhe Responder, Eu Acho Que Este Tópico Já Foi Levantado Aqui No Forum...Então Utilize a Opção ´Pesquisar´... Caso Nõa Obtenha Prontamente Uma Resposta..


GOSTEI 0
Dbergkamps

Dbergkamps

23/02/2004

ele deu erro de tipos incompativeis
´incompatible types: string and integer´
creio que erro nao seja ai por favor me ajudem so falta isso


GOSTEI 0
Dbergkamps

Dbergkamps

23/02/2004

galera,
descobri que o erro da na seguinte linha de comando, + precisamente ao abrir a seguinte tabela.
Dtmo.tbAluga.open


GOSTEI 0
POSTAR