adriano_servitec

Acho que já resolvi o problema, é que no navegador tenho que envolver o campo entre aspas simples para pesquisa. Nem tinha me ligado nisso. Obrigado.

Bom dia pessoal, não sou programador PHO por isso estou me batendo aqui com este código que peguei na net, acho que o problema é simples, nesta parque do código aqui //Variavel que recebe ID via URL $idcodigo = $_GET['id']; Não entendi bem, mais creio que pega o valor la da tabela, só que funciona legal com campo tipo integer, já com campo tipo varchar não esta dando certo quando tento passar como parâmetro uma string. <?php //Utilizar as classes require_once('Xml.Class.php'); require_once('config.php'); $xml = new Xml(); $erro = 0; //Variavel que recebe ID via URL $idcodigo = $_GET['id']; $xml->openTag("response"); if ($idcodigo == '') { $erro = 1; $msgerro = 'Código inválido!'; } else { $rs = mysql_query("SELECT * FROM protecao_bloqueados WHERE CODIGO = $idcodigo"); if (mysql_num_rows($rs) > ''){ $reg = mysql_fetch_object($rs); $xml->addTag('codigo', $reg->codigo); //$xml->addTag('valor', $reg->valor); } else{ $erro = 2; $msgerro = 'Código não localizado'; } } $xml->addTag('erro', $erro); $xml->addTag('msgerro', $msgerro); $xml->closeTag("response"); echo $xml; ?> Minha tabela é um campo tipo VARCHAR 50, que está no servidor web em MySQL. Desculpe por ser uma duvida tão simples, mais para mim esta sendo difícil de fazer. Obrigado pela colaboração de todos.

Eu gosto de usar parametros além de deixar o código mais 'limpo', em muitos casos não será necessário preocupar-se com conversões de dados. falou amigo Abraços T+

Ola mais uma vez Wilton. Bom depois de tantas quebradas de cabeça sobre esse codigo cheguei ao resultado esperado, e deixo aqui para compartilhar com outras pessoas que talvez um dia precise desse codigo: Eis o codigo begin with Query2 do try close; sql.clear; sql.add('select * from tb8munic'); sql.add('WHERE (substring(COmunicipio from 1 for 2) between :vcini and :vcfim)'); sql.add('and (substring(COmunicipio from 7 for 3) < :numero)'); ParamByName('Vcini').Value:= Edit2.Text; ParamByName('Vcfim').Value:= Edit3.Text; ParamByName('numero').Value:= '0'; open; except beep; ShowMessage('Erro de SQL!'); end; end; Percebi que na tabela depois dos dois primeiros numeros tinha um 0 (zero) então foi so fazer um sbstring do 7 ao 3 sendo menor que 0 Pronto o resultado ficou satisfatorio Obrigado pela força e ajuda amigo Abraços T+

Obrigado mais uma vez amigo pela atençao Adriano

Ola amigo, tambem já tinha tentado dessa maneira que você postou, talvez por eu estar usando paradox me da erro de SQL, mais valeu pela ajuda. Grato Adriano

Poxa já tentei ate usando like e não funciona procedure TForm2.BitBtn2Click(Sender: TObject); begin QUERY2.ACTIVE:=TRUE; query2.refresh; with Query2 do begin try close; sql.clear; sql.add('select * from tb8munic'); //sql.add('WHERE (comunicipio >= ' + quotedstr(edit2.Text) + ' ) and (comunicipio <= ' + quotedstr(edit3.Text) + ' )'); //SQL.ADD('where substring(comunicipio from 1 for 2) between ' + quotedstr(Edit2.Text) +' and '+quotedstr(Edit3.Text)+ ''); //sql.add('where comunicipio = like :Vcini and comunicipio = like :Vcfim'); sql.add('WHERE (comunicipio like :vcini) and (comunicipio like :vcfim)'); Query2.ParamByName('Vcini').Value:=Edit2.Text+'%'; Query2.ParamByName('Vcfim').Value:='%'+Edit3.Text; //sql.add('WHERE (comunicipio >= ' + quotedstr(edit2.Text + '00') + ' ) and (comunicipio <= ' + quotedstr(edit3.Text + '99') + ' )'); open; except beep; ShowMessage('Erro de SQL!'); end; end; end; alguém tem uma dica como fazer isso? Grato pela ajuda T+

Boa tarde amigos, o problema agora é saber como faço para pegar somente os resultados dos dois primeiros numeros do campo dat tabela Bom tenho dois edits tipo edit1 e edit2 e um botbtn para fazer o comando dentro de um dbgrid. então na tabela esta assim 11-RONDONIA 1100015-ALTA FLOTESTA 12-ACRE 1200013-ACRELANDIA 13-AMAZONAS 1300029-ALVARES Bom então no edit1 digitar assim 11 e no edit2 assim 13, quero que no dbgrid me apareça da seguinte forma: 11-RONDONIA 12-ACRE 13-AMAZONAS Fiz de duas formas mais não aparece como quero e sim pega somente os primeiros numeros que digitei, mais aparece os nomes das cidades tambem. QUERY2.ACTIVE:=TRUE; query2.refresh; with Query2 do begin close; sql.clear; sql.add('select * from tb8munic'); //sql.add('WHERE (comunicipio >= ' + quotedstr(edit2.Text) + ' ) and (comunicipio <= ' + quotedstr(edit3.Text) + ' )'); SQL.ADD('where substring(comunicipio from 1 for 2) between ' + quotedstr(Edit2.Text) +' and '+quotedstr(Edit3.Text)+ ''); open; end; Da forma acima não da certo como eu quero. alguém pode me ajudar? Grato Adriano

Tambem não entendi qual foi a bronca, mais ta ai fazer o que! Tambem não tinha visto que você queria pasar arquivo TXT para DB, então por isso respondi errado solicitando chave primaria para não ter como duplicar codigos, achando de DB para DB. Mais tai seu protesto enfim acho que devemos é nos unir para quaisquer questao ou duvida aqui no Forum. Tambem me registrei nesse forum por acha-lo muito bom. falou T+

Ola sera que se usar uma chave primaria não daria certo? é so uma sujestao

Ola Cristine de uma olhada nesse link sobre DSPack http://www.progdigy.com/modules.php?name=D...wdownload&cid=1

Ola Carlos beleza. Como já disse não conheço o componente zeos, mais usando query do paradox para incluir, editar, excluir etc tem que estar na propriedade da query requestlive=true ai sim o dbnavigator fica disponivel, nos tables não há necessidade, agora no IBQuery do Interbase preciso usar o UpdateSQL para deixar disponivel para inclusao, alteracao, etc. não sei se o zeos tem algim componente chamada ZUpdateSQL, mais acho que é por ai. falou Amigo T+

E ai Eder beleza. Hum interessante isso, agora se um dia eu precisar de algo sobre thumbnails, já sei aonde e com quem recorer...hehehehe Um abraço amigo

Ufa ate que enfim tu conseguiu amigo Esqueci desse detalhe realmente se você não estiver usando query com o fields tem que usar o fieldbyname Qual seria a necessidade desse EOF? porque tem que percorer a tabela toda? Sobre o ZEOS infelizmente ainda não tive a oportunidade de conhece-lo, tabalho com IBExpert e Interbase.

Assim não funciona? procedure TForm1.ComboBoxNOMEChange(Sender: TObject); begin sqlQUERYCLIENTES.ACTIVE:=TRUE; sqlQUERYCLIENTES.REFRESH; WITH sqlQUERYCLIENTES DO BEGIN Close; SQL.Clear; SQL.Add('select * from CLIENTES'); OPEN; sqlQUERYCLIENTES.LOCATE('EMPRESA',COMBOBOXNOME.Text,[LoPartialKey]); COMBOBOXCPFCNPJ.TEXT:=sqlQUERYCLIENTESPRODUTO.VALUE; END; END;