在delphi中的edit中写入数据,保存到数据库中,怎么写程序?
5个回答
2013-07-27
展开全部
首先,你要添加 数据集空件,如:ADOQuery1 然后 设置ADOQuery1的连接到SQL数据库.当然了你必须要创建了数据库以及表.
然后,新添一个按纽->在其按纽的单击事件里写上:
ADOQuery1.Close;
ADOQuery1.sql.text:='Insert into 表名 SET (字段名) values ('+EDIT.TEXT+')';
ADOQuery1.ExecSQL;
然后,新添一个按纽->在其按纽的单击事件里写上:
ADOQuery1.Close;
ADOQuery1.sql.text:='Insert into 表名 SET (字段名) values ('+EDIT.TEXT+')';
ADOQuery1.ExecSQL;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-27
展开全部
ADOQuery1.Close;
ADOQuery1.sql.text:='select 字段名 From 表名 WHERE 字段名='''+trim(edt1.text)+'''';
ADOQuery1.Open;
if adoquery1.RecordCount >0 then
begin
Showmessage('您输入的值有重复,请重新输入!');
EXIT;
end
else
begin
adoquery1['字段名']:=trim(edit1.text);
end;
---------------------------------------
根据字段名的属性对edit1.text进行数值转换就可以了~!
ADOQuery1.sql.text:='select 字段名 From 表名 WHERE 字段名='''+trim(edt1.text)+'''';
ADOQuery1.Open;
if adoquery1.RecordCount >0 then
begin
Showmessage('您输入的值有重复,请重新输入!');
EXIT;
end
else
begin
adoquery1['字段名']:=trim(edit1.text);
end;
---------------------------------------
根据字段名的属性对edit1.text进行数值转换就可以了~!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-27
展开全部
用感知DB控件会轻松好多
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我不懂程序啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-27
展开全部
你用的是什么数据库?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询