已经把dataset和dbgrid之间关联起来了。现在要做个判断,若dbgrid里某行其中一列
为空,就不把这行保存到数据库中,代码要怎么写?用adodataset.fieldbyname('colummname').asstring可不可以得到dbgrid中某列的内容?若是多行呢?又要怎么解决?望各们前辈指点!
为空,就不把这行保存到数据库中,代码要怎么写?用adodataset.fieldbyname('colummname').asstring可不可以得到dbgrid中某列的内容?若是多行呢?又要怎么解决?望各们前辈指点!
解决方案 »
- 主窗口main_frm 放了三个按钮 想实现三种不同的测试功能 结构是一样的 只是内部的算法不同 请问该怎么实现? 下面是我写的代码 请问错在哪里?
- DELPHI2009或2010数据库的问题
- delphi与C搭配好还是学bcb好?
- filewrite怎么用?
- 急~~~~大家帮忙看下啊,奇怪的问题。。。。
- 我想在dbgrid中点某一行的某个字段出现一个下拉框,下拉框中的内容来自其它数据集中的数据。
- 人生抉择,请各位给点意见!答者有分。
- 请教各位,怎么让生成的文件名是当日的日期
- 能从控件的handle得到控件的名称吗?
- 在unit2中对unit1的菜单按钮编程怎么办?我用的是:unit1.N12.Enabled:=true;提示N12 是未定义的标示符
- 数据库恢复的问题,感谢指点,来者有分!
- 关于sql语句的问题查询某个字段为空值的记录
begin
dm.SendCardSocket.Connected := false;
dm.SendCardCltDst.Close;
dm.SendCardSocket.Connected := true;
for i := 0 to DBGrid1.SelectedField.DataSet.RecordCount-1 do
begin
Ci.Unit_Name := DBGrid1.SelectedField.DataSet.Fields.Fields[0].AsString;
Ci.Unit_Code := DBGrid1.SelectedField.DataSet.Fields.Fields[1].AsString;
ci.Unit_Kind := DBGrid1.SelectedField.DataSet.Fields.Fields[2].AsString;
ci.Unit_Manager := DBGrid1.SelectedField.DataSet.Fields.Fields[3].AsString;
ci.Unit_Phone := DBGrid1.SelectedField.DataSet.Fields.Fields[4].AsString;
ci.Unit_Fax := DBGrid1.SelectedField.DataSet.Fields.Fields[5].AsString;
ci.Unit_Adrress := DBGrid1.SelectedField.DataSet.Fields.Fields[6].AsString;
ci.Unit_PostCode := DBGrid1.SelectedField.DataSet.Fields.Fields[7].AsString;
ci.Unit_Station := DBGrid1.SelectedField.DataSet.Fields.Fields[8].AsString;
dm.SendCardCltDst.CommandText :='UPDATE [cardmanager].[dbo].[saleunit] SET [sal_name]='+''''+ci.Unit_Name+''',[sal_class]='''+ci.Unit_Kind+''',[sal_chirman]='''+ci.Unit_Manager+''',[sal_phone]='''+ci.Unit_Phone+''',[sal_fax]='''+ci.Unit_Fax+''',[sal_address]= '''+ci.Unit_Adrress+''',[sal_postcode]='''+ci.Unit_PostCode+''',[sal_station]='''+ci.Unit_Station+'''WHERE([sal_code]='''+ci.Unit_Code+''')';
dm.SendCardCltDst.Execute;
// DBGrid1.SelectedField.DataSet.Next;
end;
dm.SendCardSocket.Connected := false;
dm.SendCardCltDst.Close;
end;