Corposemalma

hummmm.. Cara não sei o porque do erro... Deve ser por causa dos varios OR.. Muda uma coisinha... vai saber né! Estou só chutando ^^ var i:Integer; sWhe:String; begin Query1.Close; sWhe := 'Select * From dbCadAt.db '; for i := 0 to Lista2.Items.Count-1 do begin if i = 0 then sWhe := sWhe + 'Where CodPart = :P' + IntToStr(i) else sWhe := sWhe + ' or CodPart = :P' + IntToStr(i); end; Query1.SQL.Text := sWhe; ShowMessage(sWhe); <- vamu ver agora... for i := 0 to Lista2.Items.Count-1 do begin Query1.ParamByName('P'+IntToStr(i)).asString := Lista2.Items[i]; end; end;

não tentei não.... Acho melhor usar o copy e move file

entendendo uma função: Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean; Function NomeFuncao(dados de entrada): Resultado; então para utilizar: if ProcessArquivo('c:\origem\', 'd:\destino', 1, 2) = true then ShowMessage('Copia concluida com Sucesso') Voce pode ver os valores de modo e operacao na funcao nos dois CASE

Bom.. não pude verificar ainda... Mas acho que na nossa sessao de links tem um link para um compilador de Pascal Free (ou use a ferramenta de busca do foum, tem um tópico sobre isso). não é o Delphi, mas como utiliza a mesma liguagem, acho que seria interessante para aprendizagem básica não quero incentivar nada, e como disse o Alessandro: Nada de camelô, não é correto com quem faz o programa... Mas bem... se é pra aprender, sem fins comerciais e se você pretende um dia trabalhar com isso e comprar o software.. Por que não? Existe alguma outra maneira de aprender sem usar? então: Use free, procure um bom curso ou......

Coloca um DbGrid e ve o conteudo dele... Pelo menos nois sabe qual o erro agora ^^

mais um teste: adiciona só um item na lista2

REALMENTE! A placa não deixa de ser boa... mas dentre as opcoes é melhor a ABIT ^^

da uma olhada na nossa sessao de dicas! lá botei um texto interessante sobre SQL...

Eu sei que o preço do software é meio salgado somente para se aprender... Mas isso não justifica a compra de produtos piratas. Existem algumas lojas que vendem ver sões educacionais.. Procure por elas. Existe acho também uma versão gratuita (chamada Personal, para uso não comercial) Mas não sei onde encontra-lá Vou dar uma procurada sobre o assunto...

Caro Woryon, não conheço nada sobre MySQL (o pouco que sei, vem do que descobri com os post aqui do fórum). Por isso me corrija se estiver errado. Acredito que todas as tabelas em MySQL são acessados por setença SQL (não existem tabela fixas como paradox). Então acho que antes de apontar o campo do listbox para query voce tem que criar a sentença e executa-la...

Ninja jogando poker deve ser engraçado ^^

Bem... Dual Boot tem duas utilidades basicas: * Quando sai um novo sistema operacional, que não é 100% compativel com os programas existentes que voce necessita, mas por ser melhor em certos aspectos voce quer utilizar o sistema operacional novo... * Para estudos, (um windows e um linux) para aprender a usar, ou até mesmo um Windows extra para fazer a parte suja do negocio (ver paginas com trojans, virus, Kazaa esse tipo de coisa ^^)

O programa generico eu tenho aqui ^^ te passo quando voce pegar os drivers

Eu pegaria uma Abit NF7-s <- S é importante... Eu já vi bastante dessas Asus e não gostei (o X significa modelo barato)

na verdade o deslize foi meu.. eu que passei o where pra cima e não pensei na possibilidade da lista2 estar vazia ^^ var i:Integer; sWhe:String; begin Query1.Close; Query1.SQL.Text := 'Select * From dbCadAt.db '; for i := 0 to Lista2.Items.Count-1 do begin if i = 0 then sWhe := 'Where CodPart = :P' + IntToStr(i) else sWhe := sWhe + ' or CodPart = :P' + IntToStr(i); end; Query1.SQL.Add(sWhe); //um teste a mais: ShowMessage(sWhe); //deve mostrar a senteça Where do Sql (não estou certo de que o showmessage funciona, use qualquer sistema de mensagem ou um label.text mesmo;) ) for i := 0 to Lista2.Items.Count-1 do begin Query1.ParamByName('P'+IntToStr(i)).asString := Lista2.Items[i]; end; Query1.Open; {fmRelAt := tfmRelAt.create(application); fmRelAt.QuickRep1.Preview; fmRelAt.Release;} end;

É sempre melhor fazer um format completo... Você pode pegar alguns tipos de erro com ele

Não cara... Chato é aquele que vem e pede o código pronto e não quer aprender, nem tentar e nem que dê errado Vamu lá acho que agora da!

erro meu o clear o erro dá ao gerar o relatório? Vamos fazer um teste.... utilize esse codigo: procedure TfmGerarRelAt.btnGerarClick(Sender: TObject); var i:Integer; sWhe:String; begin Query1.Close; Query1.SQL.Text := 'Select * From dbCadAt.db Where '; for i := 0 to Lista2.Items.Count-1 do begin if i = 0 then sWhe := 'CodPart = :P' + IntToStr(i) else sWhe := sWhe + ' or CodPart = :P' + IntToStr(i); end; Query1.SQL.Add(sWhe); for i := 0 to Lista2.Items.Count-1 do begin Query1.ParamByName('P'+IntToStr(i)).asString := Lista2.Items[i]; end; Query1.Open; end; e coloque um DBgrid nesse mesmo form apontando para essa query.... e veja qual o resultado ele vai mostrar não chame o relatorio ainda

ela é uma otima condutora de calor.. muito melhor do que se ficasse um espaço com ar (que é um pessimo condutor hehe) Ela tampa os espaços que sobram só isso...

Olha o manual, quase certeza que é aquele jumper (já vi outras placas do mesmo fabricante que são exatamente ali) Ve tambem se a placa suporta essa frequencia de memoria... Outra: a memoria não entra não!, mas fica mal encaixada e queima hehehe já gente fazer issoo, assim como já vi ligarem invertido um cabo de de energia de HD

tenta acesar em modo passivo (nas opcoes voce pode escolher isso)

Paulo, voce ta tentando minimizar um modal e ele não vai para barra isso? Procure por um componente chamado MinModal ^^ Freeware

No onclink do botao que chama o relatorio Acho que o código do s3c ta ok... é só colocar no botao que chama o relatorio, mas lembra de apontar o relatorio para a QUERY funciona mais ou menos assim: Ele adiciona o Select e tal.... e para cada linha da lista2 adiciona as selecao, pra primeira linha (item 0 ele adiciona junto o where, e para as outras ele adiciona o comando OR de SQL) var i:Integer; sWhe:String; begin Query1.Close; Query1.clear; Query1.SQL.Text := 'Select * From Tabela '; for i := 0 to Lista2.Items.Count-1 do if i = 0 then sWhe := 'Where CodPart = :P' + IntToStr(i) else sWhe := sWhe + ' or CodPart = :P' + IntToStr(i); Query1.SQL.Add(sWhe); for i := 0 to Lista2.Items.Count-1 do Query1.ParamByName('P'+IntToStr(i)).asString := Lista2.Items[i]; Query1.Open; //chama o relatorio aqui end;

Pera lá! ela tem os dois soquetes? ou tu encaixou a DDR no soquete da DIMM? Quanto ao jumper depende do modelo da tua placa mae

Nada que um CTRL-C, CTRL-V não resolva HEHEHE