菜鸟提问题:一个数据库的问题

swordman119 2003-09-15 11:07:51
我想问一下,我用ADO要实现如下功能应该怎么做呢?就是我要在一个表(Table1)中增加用户名(ID),在增加之前我要先判断这个用户名在表中是否存在,如果不存在就插入新用户的信息,如果存在,给出用户已经存在的信息。是用ADODataSet吗?
具体怎么实现,请大哥们大姐给我点代码参考一下啊,谢谢了!
...全文
27 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
hongqi162 2003-09-15
  • 打赏
  • 举报
回复
adodataset1.Close;
adodataset1.CommandText:='select * from table1 where id='''+txtname.Text +'''';
adodataset1.Open;
if not adodataset1.Eof then
begin
adodataset1.Fields[0].DisplayLabel:='姓名';
application.MessageBox('该信息已存在!','提示',mb_ok);
exit
end;
adodataset1.Append;
adodataset1.Fields[0].AsString:=txtname.text;
adodataset1.Post;

用一个dbgrid控件试一试,是不是这种效果!
statesman 2003-09-15
  • 打赏
  • 举报
回复
select id form TableName
where id=UserName
if Adoquery1.recordcount=0 then showmessage('No The Record');
swordman119 2003-09-15
  • 打赏
  • 举报
回复
哦,myshushu005的方法我试试
swordman119 2003-09-15
  • 打赏
  • 举报
回复
我的目的不是修改,我的目的是在数据库中插入一个ID时,先判断这个ID是否存在,如果存在就不插入,如果不存在就插入。可是我不知道怎么得到这个判断结果。
myshushu005 2003-09-15
  • 打赏
  • 举报
回复
如果用ADODataSet的话 你用ADODataSet.recordcount测试一下 如果小于等于0 代表不存在 否则存在
newnewworm 2003-09-15
  • 打赏
  • 举报
回复
就是使用Query类组件,判断是否能找到用户名(ID),找到了就要求修改,很简单的!
swordman119 2003-09-15
  • 打赏
  • 举报
回复
怎么弄啊?SQL := 'Select ID from PassWord1 where ID= ''' +Edit1.Text+ '''';我怎么得到查询结果呢?
上海老李 2003-09-15
  • 打赏
  • 举报
回复
用TQUERY来执行SQL语句

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧