Meu Primeiro problema no Delphi
Caro pessoal da lista, chamo-me Dayvson, e sou totalmente novo em Delphi, portanto gostaria de poder contar com a colaboracao de todos voces no que for preciso, pois encontro-me num dilema sem igual..ehehh... Eu nunca realmente quis codar em delphi, porem estou numa empresa onde todos os sistemas sao em delphi , alguns com paradoxx e outros com interbase, porem nao vou fazer corpo mole. ja to com o bicho (versao 6) instalado na minha makina.. apesar que todos os sistemas daki sao na versao 5, e tbm com o interbase, q por sinal ate o aprecio legal.. Ja to com 2 livroes aki tbm, um do bruno sonino e outro q eh a biblia do delphi 6, sendo assim, ja pintou uma missao aki pra mim resolver, vejamos :
Ha 1 programa de geracao de etiquetas aqui feito pelo programador que trabalhava aqui, que no caso ele se baseia em um outro servidor,mas isso nao vem muito ao caso. Bem, em cima dos dados que ele buscar no server e tal.. ele gera umas etiquetas, so que esse programa eh akele velho ´select *´ da vida. O usuario nao tem opcao nenhuima de impressao.. onde o q ocorre eh o seguinte, na verdade o programador q trampava aki n tem culpa nenhuma.. sempre a galera keria solucao d imediata para missoes criticas muitas vezes...o velho bacalhau de fato.
Entao , agora o usuario ta querendo ter a opcao, ou pelo menos que eu o faca na mao mesmo, atraves do proprio codigo.
Tentei alterar a string de SQL , mas nao obtive exito, pois quando compilo o programa, tudo bem, mas na hora de execucao, ,ele me retorna o seguinte erro:
Project etiq.exe raised exception class EVariantError with message ´Invalid variant type conversion´. Process stopped. Use Step or Run to continue.
Pronto , eh essa mensagem acima que esta me retornando quando eu pressiono o botao para imprimir as etiquetas.
Abaixo aqui , descrevo-lhes a string de SQL anterior(atual) e logo mais abaixo a ja alterada por mim, onde de repente voces poderiam me dar uma luz ou mesmo alterar a string e me enviar, se e que se trata apenas de string de SQL , se houver algo mais, por favor me digam ai..
Segue entao a String de SQL original:
select codigointernacional, codigooriginalmat, descricaomat, localizacaoitem from est_cadmaterial a, est_itensdeestoque b
where ( (exibeemrelatorios = ´S´) and ( a.codigomatint = b.codigomatint) )
order by codigointernomaterial
Sobre essa SQL acima, eu fiz a seguinte alteracao :
select codigointernacional, codigooriginalmat, descricaomat, localizacaoitem from est_cadmaterial a, est_itensdeestoque b
where ( (exibeemrelatorios = ´S´) and ( a.codigomatint = b.codigomatint) and (b.localizacaoitem = ´PISO´))
order by codigointernomaterial
Bem, pessoal aguardo isso um quanto antes possivel na medida de suas possibilidades, e por falar nisso, se porventura alguem quiser me enviar por email , mande para dayvson_f4@iteci.com.br e/ou dclauber@yahoo.com.br
Um grande abraco a todos e espero poder me tornar um desenvolvedor em Delphi tambem... :D
Ha 1 programa de geracao de etiquetas aqui feito pelo programador que trabalhava aqui, que no caso ele se baseia em um outro servidor,mas isso nao vem muito ao caso. Bem, em cima dos dados que ele buscar no server e tal.. ele gera umas etiquetas, so que esse programa eh akele velho ´select *´ da vida. O usuario nao tem opcao nenhuima de impressao.. onde o q ocorre eh o seguinte, na verdade o programador q trampava aki n tem culpa nenhuma.. sempre a galera keria solucao d imediata para missoes criticas muitas vezes...o velho bacalhau de fato.
Entao , agora o usuario ta querendo ter a opcao, ou pelo menos que eu o faca na mao mesmo, atraves do proprio codigo.
Tentei alterar a string de SQL , mas nao obtive exito, pois quando compilo o programa, tudo bem, mas na hora de execucao, ,ele me retorna o seguinte erro:
Project etiq.exe raised exception class EVariantError with message ´Invalid variant type conversion´. Process stopped. Use Step or Run to continue.
Pronto , eh essa mensagem acima que esta me retornando quando eu pressiono o botao para imprimir as etiquetas.
Abaixo aqui , descrevo-lhes a string de SQL anterior(atual) e logo mais abaixo a ja alterada por mim, onde de repente voces poderiam me dar uma luz ou mesmo alterar a string e me enviar, se e que se trata apenas de string de SQL , se houver algo mais, por favor me digam ai..
Segue entao a String de SQL original:
select codigointernacional, codigooriginalmat, descricaomat, localizacaoitem from est_cadmaterial a, est_itensdeestoque b
where ( (exibeemrelatorios = ´S´) and ( a.codigomatint = b.codigomatint) )
order by codigointernomaterial
Sobre essa SQL acima, eu fiz a seguinte alteracao :
select codigointernacional, codigooriginalmat, descricaomat, localizacaoitem from est_cadmaterial a, est_itensdeestoque b
where ( (exibeemrelatorios = ´S´) and ( a.codigomatint = b.codigomatint) and (b.localizacaoitem = ´PISO´))
order by codigointernomaterial
Bem, pessoal aguardo isso um quanto antes possivel na medida de suas possibilidades, e por falar nisso, se porventura alguem quiser me enviar por email , mande para dayvson_f4@iteci.com.br e/ou dclauber@yahoo.com.br
Um grande abraco a todos e espero poder me tornar um desenvolvedor em Delphi tambem... :D
Dayvson Clauber
Curtidas 0
Respostas
Valdir.santos
23/10/2003
[b:accf04d0c6]where ( (exibeemrelatorios = ´S´) and ( a.codigomatint = b.codigomatint) and (b.localizacaoitem = ´PISO´))
order by codigointernomaterial[/b:accf04d0c6]
Qual o tipo do campo localizacaoitem no banco de dados?
order by codigointernomaterial[/b:accf04d0c6]
Qual o tipo do campo localizacaoitem no banco de dados?
GOSTEI 0
Dayvson Clauber
23/10/2003
oi caro valdir, o campo eh do tipo String. Tem alguma ideia entao como posso resolver tal problema?? :oops:
GOSTEI 0
Ricardo.vano
23/10/2003
Tive um problema parecido com a mesma mensagem de erro. No caso, descobri que estava tentando gravar dados com um tipo diferente das variáveis criadas pelo Delphi.
Verifique se o tipo que está no banco de dados é o mesmo que você está tentando gravar...
Verifique se o tipo que está no banco de dados é o mesmo que você está tentando gravar...
GOSTEI 0