Y
yedixifeng
Unregistered / Unconfirmed
GUEST, unregistred user!
帮忙看一下这个往sql server数据库里添加数据的代码,总是提示(将截断字符串或二进制数据。语句已终止。)
for a:=1 to 100 do
begin
//将数据存储到进货历史信息表
if Length(StringGrid1.Cells[2,a])<>0 then
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Insert 进货信息历史表(单据编号,经受人,进货日期,商品编号,商品名称,单位,数量,单价,合计金额,进货说明,仓库名称,仓库编号)');
Query2.SQL.Add('ValuesA,:B,:C,,:E,:F,:H,:G,:I,:J,:M,:N)');
Query2.Params[0].asInteger:=StrToInt(Label4.Caption);
Query2.Params[1].asString:=Edit1.Text;
Query2.Params[2].AsDatetime:=StrToDate(Label8.Caption);
Query2.Params[3].AsInteger:=StrToInt(StringGrid1.Cells[2,a]);
Query2.Params[4].AsString:=StringGrid1.Cells[3,a];
Query2.Params[5].AsString:=StringGrid1.Cells[4,a];
Query2.Params[6].AsInteger:=StrToInt(StringGrid1.Cells[5,a]);
Query2.Params[7].AsFloat:=StrToFloat(StringGrid1.Cells[6,a]);
Query2.Params[8].AsFloat:=StrToFloat(StringGrid1.Cells[7,a]);
Query2.Params[10].AsString:=Query4.FieldByName('仓库名称').AsString;
Query2.Params[11].AsInteger:=Query4.FieldByName('仓库编号').AsInteger;
if Length(StringGrid1.Cells[8,a])=0 then Query2.Params[9].AsString:='无'
Else
Query2.Params[9].AsString:=StringGrid1.Cells[8,a];
Query2.ExecSQL;
end;
end;
for a:=1 to 100 do
begin
//将数据存储到进货历史信息表
if Length(StringGrid1.Cells[2,a])<>0 then
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Insert 进货信息历史表(单据编号,经受人,进货日期,商品编号,商品名称,单位,数量,单价,合计金额,进货说明,仓库名称,仓库编号)');
Query2.SQL.Add('ValuesA,:B,:C,,:E,:F,:H,:G,:I,:J,:M,:N)');
Query2.Params[0].asInteger:=StrToInt(Label4.Caption);
Query2.Params[1].asString:=Edit1.Text;
Query2.Params[2].AsDatetime:=StrToDate(Label8.Caption);
Query2.Params[3].AsInteger:=StrToInt(StringGrid1.Cells[2,a]);
Query2.Params[4].AsString:=StringGrid1.Cells[3,a];
Query2.Params[5].AsString:=StringGrid1.Cells[4,a];
Query2.Params[6].AsInteger:=StrToInt(StringGrid1.Cells[5,a]);
Query2.Params[7].AsFloat:=StrToFloat(StringGrid1.Cells[6,a]);
Query2.Params[8].AsFloat:=StrToFloat(StringGrid1.Cells[7,a]);
Query2.Params[10].AsString:=Query4.FieldByName('仓库名称').AsString;
Query2.Params[11].AsInteger:=Query4.FieldByName('仓库编号').AsInteger;
if Length(StringGrid1.Cells[8,a])=0 then Query2.Params[9].AsString:='无'
Else
Query2.Params[9].AsString:=StringGrid1.Cells[8,a];
Query2.ExecSQL;
end;
end;