Mysql StringGrid

Question

Ol� Turma,Delphi 7 + ZeosLib + Mysql 4.1 - Possuo um StringGrid e estou inserindo nele v�rios dados (produtos com qtd, desconto e vlr) atrav�s de edits. Como fa�o pra inserir depois todo esse conte�do...

Marcio.theis · Answer

N�o entendi muito bem o seu problema, mas tente assim:

For I:= 1 to sgProduto.Rowcount do
    begin
    DM.zqItem.Close;
    DM.zqItem.SQL.Clar;
    DM.zqItem.SQL.Add(�Insert Into movitens (nolocacao, cdproduto, qtproduto, vldesc, flcortesia, vltotal)�);
    DM.zqItem.SQL.Add(�Values (:znolocacao, :zcdproduto, :zqtproduto, :zvldesc, :zflcortesia, :zvltotal)�);
    DM.zqItem.ParamByName(�znolocacao�).AsInteger := StrToInt(edcdlocacao.Text);
    DM.zqItem.ParamByName(�zcdproduto�).AsInteger := StrtoInt(sgProduto.Cells[0,I]);
    DM.zqItem.ParamByName(�zqtproduto�).AsInteger := StrToInt(sgProduto.Cells[2,I]);
    DM.zqItem.ParamByName(�zvldesc�).AsFloat := StrToFloat(sgProduto.Cells[4,I]);
    DM.zqItem.ParamByName(�zflcortesia�).AsString := sgProduto.Cells[5,I];
    DM.zqItem.ParamByName(�zvltotal�).AsFloat := StrToFloat(sgProduto.Cells[6,I]);
    DM.zqItem.ExecSQL;
    end;

Monteirog12 · Answer

/]/]@tBrigad�o pela ajuda - Foi a Falta do Begin e o End, T� gravando direitinho. Agora t� com o seguinte problema, meu stringgrid tem v�rias linhas porque quando pe�o para inserir, se j� n�o houver uma linha dispon�vel ele n�o insere s� insere da segunda vez em que eu clicar no inserir. Por isso, quando a rotina grava os dados do stringgrid, ela pega tamb�m as linhas em branco, ai d� ( �� n�o � um valor inteiro v�lido), vc tem alguma id�ia de como resolver isso??  Te agrade�o desde j�!!!...

Marcio.theis · Answer

Coloque um valida��o antes de efetuar a inser��o do registro, como por exemplo:

For I:= 1 to sgProduto.Rowcount do 
    begin 
    if sgProduto.Cells[0,I] <> �� then
        begin
        DM.zqItem.Close; 
        DM.zqItem.SQL.Clar; 
        DM.zqItem.SQL.Add(�Insert Into movitens (nolocacao, cdproduto, qtproduto, vldesc, flcortesia, vltotal)�); 
        DM.zqItem.SQL.Add(�Values (:znolocacao, :zcdproduto, :zqtproduto, :zvldesc, :zflcortesia, :zvltotal)�); 
        DM.zqItem.ParamByName(�znolocacao�).AsInteger := StrToInt(edcdlocacao.Text); 
        DM.zqItem.ParamByName(�zcdproduto�).AsInteger := StrtoInt(sgProduto.Cells[0,I]); 
        DM.zqItem.ParamByName(�zqtproduto�).AsInteger := StrToInt(sgProduto.Cells[2,I]); 
        DM.zqItem.ParamByName(�zvldesc�).AsFloat := StrToFloat(sgProduto.Cells[4,I]); 
        DM.zqItem.ParamByName(�zflcortesia�).AsString := sgProduto.Cells[5,I]; 
        DM.zqItem.ParamByName(�zvltotal�).AsFloat := StrToFloat(sgProduto.Cells[6,I]); 
        DM.zqItem.ExecSQL; 
        end;
    end;