adoquery1.UpdateBatch(arAll); 这个可一次性修改dbgrideh记录,
如果一次性把它新增写入sql2000表中,怎么写?
如果一次性把它新增写入sql2000表中,怎么写?
解决方案 »
- dll接口调用问题
- 我想把几个报表放在一个frxpreview1里预览,怎样实现呀???
- 高分相送:怎么设置DBGrid 某一指定单元格的颜色,不是一行是一个单元格的颜色###############################
- 遍历treeview的问题 急!!!
- 请问:TDBText连接的数据是0.125显示成12.5%怎样实现呀?
- 100分求阿拉伯数字转英文大写数字的代码
- 组件多选的问题
- adoquery我怎么也找不到ParamByName
- 都说delphi强大可是为什么我怎么也找不到用delphi写软键盘方面的资源呢?VC的一大堆。
- 请教DBGridSort控件设计问题
- 这是个什么事件,看不懂啊
- advstringgrid 不能复制选中单元格的值,需要设置哪个属性呢?
能说一下吗, adoquery1.UpdateBatch(arAll); 这个是更新。
那新增怎么写,add
var
i, j: Integer;
s: string;
begin
if DBGrideh1.SelectedRows.Count>0 then
with DBGrideh1.DataSource.DataSet do
for i:=0 to DBGrideh1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrideh1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
adoquery1.SQL.Text:='insert into cw_base(部门) VALUES ('''+dbgrideh1.Fields[1].AsString+''')';
adoquery1.ExecSQL;
s:= '';
end;
DBGrideh1.Refresh;
adoquery1.SQL.Clear;
adoquery1.sql.Add('select * from cw_base');
adoquery1.open;
end;