Progr'amador

beleza Jhonas, deu certo irmão! Valeu!!!!

Boa Tarde Pessoal, Seguinte, utilizo o Delphi 2010 e por acidente instalei um tal de IDE Fix Pack 5.96, e agora não tá mais compilando nenhum projeto... e não estou conseguinte "desinstalar" esse cara ai. Segue as imagens ai... o Delphi abre apos clicar no OK.. os projetos abrem.. só não ta compilando Se alguém puder me ajudar ai... ficaria grato..

resolvido

boa Tarde pessoal, quero fazer uns cálculos aqui usando VB com excel, por exemplo: tenho os valores nas colunas A, B e C, e quero um resultado na coluna D = A+B-C, sendo que vai da linha 2 ate 20. mas preciso que na hora que eu alterar qualquer valor dessas Campos, (A. B, C) já faça o calculo automaticamente na D, sem uso de botão tentei fazer assim mas fica dando loop infinito. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Double For i = 2 To 20 Cells(i, "D").Value = Cells(i, "A").Value + Cells(i, "B").Value - Cells(i, "C").Value Next i End Sub

Olá pessoal, fazia tempo que não aparecia por aqui, mas aqui estou com probleminha que ta enchendo o saco e não estou conseguindo resolver, já fiz várias buscas pela solução mas não encontrei nenhuma que resolvesse meu problema, é o seguinte: To usando o Delphi2010 com banco SQLite e Zeus pra conectar o banco, o quando eu gravo um registro por exempro: "Ação" ele grava "Ação" já utilisei diversas opções de CHARSET no ZConnection, mas nada resolveu. Help! Valeu galera! Abs Progr'amador

Olá, você pode usar um QRBand na propriedade BandType = rbDetail e num esquece de setar no DataSet do seu QuickReport a Query utilizada. Abs. Progr'amador

Olá, nunca trabalhei com o InterBase, mas tem o IBUpdateSQL, que você liga direto num IBQuery e acho que tambem da pra usar no IBDataSet (é que to sem o delphi agora e não lembro) , e permite você fazer manipular isso. Abs. Progr'amador

Ola Jhonas, só fazer umas correções ae no seu código, na verdade são 4 aspas e não 3: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' +''''+DBEdit1.Text+''''+''); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; aqui faltou um parentese no final na primeira linha do SQL.Add, ficando assim: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' + QuotedStr(DBEdit1.Text)); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; outra forma é essa: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' +#39+DBEdit1.Text+#39+''); SQL.Add('AND subcodigo = ' +#39+DBEdit33.Text+#39+''); Open; Abs. Progr'amador

Olá, seria algo +ou- assim: use uma query com a seguinte string no SQL: insert into confiabilidade values (:campo) e depois: var i: integer; begin for i:=0 to ComboBox1.Items.Count-1 do begin query1.Params.ParamValues['campo'] := ComboBox1.Items.Strings[i]; query1.ExecSQL; end; end; Abs. Progr'amador

Olá, veja se isso te ajuda: ShellListView1.SelectedFolder.DisplayName Abs. Progr'amador

Olá, tenta assim: quando tiver que trazer todos os itens , utilize: sdsVendaItem.Open; sdsVendaItem.Params.ParamByName('PRODUTOID').Value := null; sdsVendaItem.Open; e quando escolher o item: sdsVendaItem.Open; sdsVendaItem.Params.ParamByName('PRODUTOID').Value := 10; sdsVendaItem.Open; Abs. Progr'amador

Olá, veja: Qry.Parameters.ParamByName('Soma').Value:=Qry.FieldByName('qrySoma').AsFloat; Primeiro você tentando alimentao o parametro Soma de um campo pra própria query que você ta tentando execultar. qrySoma é realmene um campo da tabela? ae depois você fez isso: Qry.FieldByName('qrySoma').value := Qry.FieldByName('Soma').ASfloat; - algo completamente errado. confesso ainda não entendi nada do que realmente você ta querendo. pra abrir a query deveria ser algo assim: procedure TfrmPesquisa.SpedSomaClick(Sender: TObject); Var TOTAL, vSoma:Double; qrySoma:String; begin vSoma := blablabla; //aqui você vai usar como parametro TOTAL:=0; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('select * from Receita where Soma =:Soma'); Qry.Parameters.ParamByName('Soma').Value:= vSoma; Qry.Open; end; Abs. Progr'amador

Olá, você quer fazer um Update mesmo, ou quer fazer funcionar esse Insert que você postou? Abs. Progr'amador

Olá Lauro Pogozelski, referente ao erro, é porque você ta usando um parametro (pSoma) que não existe em sua query (SELECT). outra coisa, você nunca deve inserir valor num DBTExt, DBEdit, etc... e sim no campo do seu DataSet a qual esta ligado esse DBText, exemplo: Query1.FieldByName('nomeDoCampo').value := Qry.FieldByName('TOTAL').ASfloat); o restante num entendi bem o que você quer direito. Abs. Progr'amador

Olá brunoxyz, Não me leve a mal, mas a intenção do fórum não é essa, você ta pedindo pra alguém fazer o trabalho pra você. Vale a pena você fazer uma pesquisa na NET por apostilas, em busca da resposta, até mesmo pra fins de conhecimento. Mas em todo caso, se alguém se sentir no desejo de responder....o tópico continua. Abs. Progr'amador