Mysql StringGrid

08/01/2006

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 do stringgrid para o banco? Estou usando o insert da seguinte maneira, mas não está funcionando:

DM.zqItem.SQL.Text := ´Insert Into movitens (nolocacao, cdproduto, qtproduto, vldesc, flcortesia, vltotal) Values (:znolocacao, :zcdproduto, :zqtproduto, :zvldesc, :zflcortesia, :zvltotal)´;
DM.zqItem.ParamByName(´znolocacao´).AsInteger := StrToInt(edcdlocacao.Text);
For I:= 1 to sgProduto.Rowcount do
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;

Alguém pode me dar uma ajuda??? Será que é melhor trabalhar com o DBgrid??? Se for, alguém pode me ajudar com algum exemplo?


Monteirog12

Respostas

08/01/2006

Marcio.theis

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&93;);
    DM.zqItem.ParamByName(´zqtproduto´).AsInteger := StrToInt(sgProduto.Cells&91;2,I&93;);
    DM.zqItem.ParamByName(´zvldesc´).AsFloat := StrToFloat(sgProduto.Cells&91;4,I&93;);
    DM.zqItem.ParamByName(´zflcortesia´).AsString := sgProduto.Cells&91;5,I&93;;
    DM.zqItem.ParamByName(´zvltotal´).AsFloat := StrToFloat(sgProduto.Cells&91;6,I&93;);
    DM.zqItem.ExecSQL;
    end;



Responder Citar

08/01/2006

Monteirog12

/]/]@t

Brigadã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á!!!


Responder Citar

09/01/2006

Marcio.theis

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&93; <> ´´ 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&91;0,I&93;); 
        DM.zqItem.ParamByName(´zqtproduto´).AsInteger := StrToInt(sgProduto.Cells&91;2,I&93;); 
        DM.zqItem.ParamByName(´zvldesc´).AsFloat := StrToFloat(sgProduto.Cells&91;4,I&93;); 
        DM.zqItem.ParamByName(´zflcortesia´).AsString := sgProduto.Cells[5,I&93;; 
        DM.zqItem.ParamByName(´zvltotal´).AsFloat := StrToFloat(sgProduto.Cells&91;6,I&93;); 
        DM.zqItem.ExecSQL; 
        end;
    end;



Responder Citar