Ir para conteúdo
Fórum Script Brasil

mariolopes

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    14

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por mariolopes

  2. (Resolvido) Mostrar dentro do ciclo for

    em Delphi, Kylix

    Postado · Editado por mariolopes

    Viva

    Tenho um ciclo e precisava de mostrar o progresso mas este só é mostrado no fim: 

    for i := 0 to total - 1 do
begin
haStock:=1;

   lblsku.Caption:=zquery2.FieldByName('sku').AsString;
   lblatual.Caption:=inttostr(i);
   lHTTP := TIdHTTP.Create(nil);

    Ou seja na lblsku.caption gostaria de ir mostrando os valores para cada i.

    Cumprimentos

    Mário Lopes

  3. (Resolvido) AdoQuery - Consulta parameterizada

    em Delphi, Kylix

    Postado

    Caro Jhonas

    Pelo que me parece este componente (Adoquery) é um pouco louco. O erro ocorre logo na primeira linha no Add. Se eu retirar Paramcheck no componente (design) não acusa erro mas continua louco. Repare no código seguinte: 

    ADOQuery1.SQL.Add( 'select * from perfumes where id= :a ' );
ADOQuery1.Prepared := True;
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('a').Value := strtoint(edit1.Text);
ADOQuery1.Open;

    Obtenho  erro que o parâmetro a não existe. Vou mudar a abordagem, julgo que seguir por aqui é perda de tempo. Tenho uma tabela mysql que posso exportar como XML e ler o XML a partir do Delphi.  O meu XML é algo como: 

     <table name="perfumes">
            <column name="id">759</column>
            <column name="sku">1679</column>
            <column name="descricao">FLOWER BY KENZO EDP 50 ML </column>
            <column name="imagem">imagens\1679.jpg</column>
            <column name="texto">Perfume criado por Alberto Morillas. </column>
            <column name="pvp">66.00</column>
            <column name="preco">36.99</column>
            <column name="fornecedor"></column>
            <column name="firstpage">1</column>
            <column name="marca">Kenzo</column>
            <column name="genero">Feminino</column>
            <column name="stock">1</column>
            <column name="percent_desconto">0</column>
            <column name="ano_lancamento">0</column>
            <column name="criadores"></column>
            <column name="sku1"></column>
            <column name="preco1">0.00</column>
            <column name="link1"></column>
            <column name="descricao1">0</column>
            <column name="link"></column>
        </table>

    Na sua opinião devo usar algum componente específico para esta abordagem? Que me aconselha?

  4. (Resolvido) AdoQuery - Consulta parameterizada

    em Delphi, Kylix

    Postado

    Viva

    Liguei com o meu sistema Delphi 2010 uma base de dados Mysql. Necessito de fazer várias consultas e para isso uso o componente Adoquery. Não estou a conseguir. Por favor olhem o meu código: 

    begin
ADOQuery1.SQL.Add( 'select * from perfumes where id = :meuParam' );
ADOQuery1.Prepared := True;
ADOQuery1.Parameters[0].DataType := ftInteger;
ADOQuery1.Close;
ADOQuery1.Parameters[0].Value := 24;
ADOQuery1.Open;
end;

    Obtenho erro Argments of wrong type, are out of acceptable range or are in conflit with one another.

    Alguém sabe porquê? Claro que o campo id é inteiro.

  9. Como Eu Faço Ligação Do Flash Com Asp?

    em Flash & ActionScript

    Postado

    É fácil

    Basta ter o ficheiro ASP e a partir do Flash usar o SendAndLoad. Exemplo

    var pergunta=new LoadVars();

    pergunta.sendAndLoad("http://localhost/sesta/francisco/portugues/pergunta.asp",pergunta,"GET");

    pergunta.onLoad=function(){

    questao=pergunta.pergunta;

    som=pergunta.som;

    }

    Veja o ficheiro ASP

    set conn = Server.CreateObject("ADODB.Connection")

    set rs = Server.CreateObject("ADODB.Recordset")

    conn.Open xDb_Conn_Str

    strsql = "SELECT * FROM [escrever] where numero="&sorteio

    rs.Open strsql, conn, 1, 2

    perguntas=rs.fields("frase")

    response.Write "&pergunta="&perguntas

    sons=rs.fields("som")

    response.Write "&som="&sons

×
×
  • Criar Novo...