社区
数据库相关
帖子详情
关于直接利用adoquery往数据库的表里面赋值
luolinjian
2003-08-31 10:45:51
adoquery1.FieldByName('cj1').value:=0
发现程序出错,显示adoquery1;dateset not in edit or insert mode
...全文
42
8
打赏
收藏
关于直接利用adoquery往数据库的表里面赋值
adoquery1.FieldByName('cj1').value:=0 发现程序出错,显示adoquery1;dateset not in edit or insert mode
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yujohny
2003-08-31
打赏
举报
回复
if not adoquery1.Active then adoquery1.Open;
adoquery1.Edit;//加这两句
adoquery1.FieldByName('cj1').value:=0
luolinjian
2003-08-31
打赏
举报
回复
各位大哥,还是不行啊,以上办法都不行
silenceboy
2003-08-31
打赏
举报
回复
adoquery1.close;
adoquery1.fieldbyname('xjl').value:=0;
adoquery1.open;
aldous
2003-08-31
打赏
举报
回复
是不是主从表?
主从表用这中办法插入不行的,要用SQL语句插入、删除、编辑。
rfuture
2003-08-31
打赏
举报
回复
if not adoquery1.Active then adoquery1.Open;
adoquery1.Edit;
//adoquery1.Insert;插入的话就用这个啊
adoquery1.FieldByName('cj1').value:=0
zhoutian618
2003-08-31
打赏
举报
回复
是不是数据库只读啊.
zhoutian618
2003-08-31
打赏
举报
回复
adoquery1.Edit;
adoquery1.FieldByName('cj1').value:=0;
//这样应该可以啊.
luolinjian
2003-08-31
打赏
举报
回复
这样还是解决不了问题,麻烦你门帮帮忙,比较急
listview基本用法
Delphi ListView基本用法大全(转)默认分类 2009-09-29 09:27:56 阅读138 评论0 字号:大中小 订阅 Delphi高级编程 Delphi文章 WEB开发 Delphi控件 Delphi ListView基本用法大全 作者:seeker 日期:2009-04-19 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[2].Width:=300; Listview1.ViewStyle:=vsreport; Listview1.GridLines:=true; //注:此处代码也可以
直接
在可视化编辑器中完成, 也可写成以下这样 begin with listview1 do begin Columns.Add; Columns.Add; Columns.Add; ViewStyle:=vsreport; GridLines:=true; columns.items[0].caption:='进程名'; columns.items[1].caption:='进程ID'; columns.items[2].caption:='进程文件路径'; Columns.Items[0].Width:=100; Columns.Items[1].Width:=100; Columns.Items[2].Width:=150; end end; //增加记录 with listview1.items.add do begin caption:='1212'; subitems.add('hh1'); subitems.add('hh2'); end; //删除 listview1.items.delete(0); //从
数据库
表
里读取数据写入Listview var Titem:Tlistitem; //此处一定要预定义临时记录存储变量. begin ListView1.Items.Clear; with
ado
query
1 do begin close; sql.Clear; sql.Add('select spmc,jg,sl from kcxs'); Open; ListView1.Items.Clear; while not eof do begin Titem:=ListView1.Items.add; Titem.Caption:=FieldByName('spmc').Value; Titem.SubItems.Add(FieldByName('sl').Value); Titem.SubItems.Add(FieldByName('jg').Value); next; end; //删除 ListView1.DeleteSelected; //如何取得ListView中选中行的某一列的值 procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(ListView1.Selected.SubItems.Strings[1]); //返回选中行第三列中的值 end; showMessage(listView1.Selected.Caption); //返回选中行第一列的值. 第1列的值: -->>> ListView1.Selected.Caption 第i列的值(i>1):-->>> ListView1.Selected.SubItems.Strings[i] ListView1.Items.Item[1].SubItems.GetText); //取得listview某行某列的值 Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列 返回选中行所有子列值.是以回车符分开的,你还要从中剥离出来你要的子列的值。 showMessage(ListView1.Selected.SubItems.GetText); ListView 简单排序的实现 ListView 排序 怎样实现单击一下按升序,再单击一下按降序。 function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall; begin if ColumnIndex = 0 then Result := CompareText(Item1.Caption,Item2.Caption) else Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1]) end; procedure TFrmSrvrMain.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ListView1.CustomSort(@CustomSortProc,Column.Index); end; =============================================================== //增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容'); end; //按标题删除 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption = Edit1.Text then begin ListView1.Items.Item[i].Delete(); //删除当前选中行 end; //选中一行 if ListView1.Selected <> nil then Edit1.Text := ListView1.Selected.Caption; // listview1.Items[Listview1.Items.Count -1].Selected := True; // listview1.Items[Listview1.Items.Count -1].MakeVisible(True); procedure TForm1.Button2Click(Sender: TObject); // 选择第一条 begin listview1.SetFocus; listview1.Items[0].Selected := True; end; procedure TForm1.Button1Click(Sender: TObject); // 选择最后一条 begin listview1.SetFocus; listview1.Items[Listview1.Items.Count -1].Selected := True; end; //这是个通用的过程 procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean); var DestItem : TListItem; begin if (Item = nil) or ((Item.Index - 1 < 0) and MoveUp) or ((Item.Index + 1 >= lv.Items.Count) and (not MoveUp)) then Exit; lv.Items.BeginUpdate; try if MoveUp then DestItem := lv.Items.Insert(Item.Index - 1) else DestItem := lv.Items.Insert(Item.Index + 2); DestItem.Assign(Item); lv.Selected := DestItem; Item.Free; finally lv.Items.EndUpdate; end; if SetFocus then lv.SetFocus; DestItem.MakeVisible(False); end; //此为调用过程,可以任意指定要移动的Item,下面是当前(Selected)Item ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//上移 ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//下移 TListView组件使用方法 引用CommCtrl单元 procedure TForm1.Button1Click(Sender: TObject); begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号,从0开始 end; 用LISTVIEW显示
表
中的信息: procedure viewchange(listv:tlistview;table:tcustom
ado
dataset;var i:integer); begin tlistview(listv).Items.BeginUpdate; {listv:listview名} try tlistview(listv).Items.Clear; with table do {table or
query
名} begin active:=true; first; while not eof do begin listitem:=tlistview(listv).Items.add; listitem.Caption:=trim(table.fields[i].asstring); // listitem.ImageIndex:=8; next; end; end; finally tlistview(listv).Items.EndUpdate; end; end; ListView使用中的一些要点。以下以一个两列的ListView为例。 →增加一行: with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:='第一列内容'; ListItem.SubItems.Add('第二列内容'); end; →清空ListView1: ListView1.Items.Clear; →得到当前被选中行的行的行号以及删除当前行: For i:=0 to ListView1.Items.Count-1 Do If ListView1.Items[i].Selected then //i=ListView1.Selected.index begin ListView1.Items.Delete(i); //删除当前选中行 end; 当然,ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它
赋值
出来。 →读某行某列的操作: Edit1.Text := listview1.Items[i].Caption; //读第i行第1列 Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列 Edit3.Text := listview1.Items[i].SubItems.strings[1]; //读第i行第3列 以次类推,可以用循环读出整列。 →将焦点上移一行: For i:=0 to ListView1.Items.Count-1 Do If (ListView1.Items[i].Selected) and (i>0) then begin ListView1.SetFocus; ListView1.Items.Item[i-1].Selected := True; end; 不过在Delphi6中,ListView多了一个ItemIndex属性,所以只要 ListView1.SetFocus; ListView1.ItemIndex:=3; 就能设定焦点了。 Delphi的listview能实现交替颜色么? procedure TForm1.ListView1CustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i: integer; begin i:= (Sender as TListView).Items.IndexOf(Item); if odd(i) then sender.Canvas.Brush.Color:= $02E0F0D7 else sender.Canvas.Brush.Color:= $02F0EED7; Sender.Canvas.FillRect(Item.DisplayRect(drIcon)); end; 要想随时更改ListView 中某一行的字体颜色,要在ListView的 OnCustomDrawItem 的事件中书写相关的代码。例如 我想更改选中的某行字体的颜色,则需要在事件中写入下的代码: if item.Index = strtoint(edit1.Text) then //该条件是用于判断是否符合更改字体颜色的行的条件。 Sender.Canvas.Font.Color := clred;
有关Delphi中使用
ADO
Query
带参数操作Mysql
数据库
中文乱码问题总结
有关Delphi中使用
ADO
Query
带参数操作Mysql
数据库
中文乱码问题总结(
数据库
不同要求不同,以前操作Oracle就没有这些问题) 1、使用TObject作为传递参数 使用TObject作为传递参数,变量WideString,
赋值
需指定ftWideString,需转换成WideString类型
赋值
。(变量定义为string出现中文乱码) procedure TForm1.Butt...
DELPHI 读取EXCEL 以及将EXCEL写入到ACCESS
数据库
最近准备为公司的项目写一个小工具,要用到EXCEL文件来存放数据,并且要储存到数据,心想用惯了SQL SERVER
数据库
,何不
直接
用ACCESS数据,反正同出一家,故上网找到相关的资料,发现
ADO
的
ADO
CONNECTION 和
ADO
QUERY
可以都读取EXCEL文件的数据和连接ACCESS
数据库
。于是乎,折腾了两天终于折腾了出来 1 。首先是读取EXCEL文件中的数据并显示到DBGrid中,这...
delphi mysql
ado
_Delphi使用
ADO
进行
数据库
编程
Delphi是一个可视化的编程工具,
ADO
编程也是这样,所以话不多言,
直接
通过代码、截图和语言来说明。我的
数据库
是Oracle,为了测试,先建一个
表
:create table practice(uno varchar(8), uname varchar(20)); 这个
表
比较简单,只有两个字段。我的Oracle
数据库
是安装在虚拟机上的(操作系统是Redhat),所以需要先在服务器上配置好,另外需...
c++ 存储大文件 BLOB
有些时候我们需要在
数据库
中存储大文件比如图片,音乐,或者数据文件之类的,在mysql中有blob数据类型可以实现。本文是使用c++实现对blob类型的字段进行读写。
ADO
Query
1->Close() ;
ADO
Query
1->SQL->Clear();
ADO
Query
1->SQL->Add("select username,Data1 from register_db where username ='"+username+"'");
ADO
Query
1->Ope
数据库相关
2,497
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章