delphi把文本输入信息保存到access数据库

2025-04-15 12:07:28
推荐回答(3个)
回答1:

好吧,新手的话我就答的详细点,刚好我最近也学了delphi
先在form里面放上一个adoquery控件,然后设置connectionstring(在左边的属性设置框里),关于建立一个数据库,你自己再搜一下吧,会有图片展示的,说是很难说清除了
然后你再加edit控件和一个button,点击button,加入如下的代码
(下面的代码是我写的一个关于用户登录界面的数据查询)
其中quotedstr是将edit中的文本转化为字符串,其他的都是sql语言,如果你不会那你就先别写数据库了,看一下相关资料吧,如果你直接粘贴下面的代码是必然不能运行的,因为如前面说的,你没有设置数据库,而且设置的数据库和我的也不一样,下面的代码只是给你一个例子,你看不懂的地方可以查资料,等你全明白了,你就会基本的数据库了
begin
sql2 := 'select * from 登陆 where 用户名 ='
+Quotedstr(edit1.text)+' and 密码 = '+Quotedstr(edit2.text);
ADOquery1.SQL.Text := sql2;
ADOQuery1.open;
if not AdoQuery1.isempty then
begin
application.Messagebox('账号已存在,请重新创建','warning',
MB_OK+MB_IconError);
edit1.Clear;
edit2.Clear;
edit3.Clear;
end
else if edit1.text <> edit2.Text then
begin
application.MessageBox('两次输入密码不相等','warning',MB_OK+MB_IconError);
edit2.Clear;
edit3.Clear;
end else
begin
ADOquery1.sql.Clear;
sql2 := 'insert into 登陆(用户名,密码) values(:用户名,:密码)';
ADOQuery1.SQL.Text := sql2;
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('用户名').Value:=edit1.Text;
ADOQuery1.Parameters.ParamByName('密码').Value:=edit2.Text;
ADOQuery1.ExecSQL;
application.MessageBox('账号创建成功','Success',MB_OK);
close;
end;
end;

回答2:

首先,打开数据库
with adoquery1 do
begin
close;
sql.clear;
sql.Add('select * from 表名');
open;
end;
adoquery1.insert; //插入命令
adoquery1.fieldbyname('字段名').asstring:=Trim(edit1.text);
adoquery1.post;//记住,最后一定Post,提交给数据库。否则,不会改动的

回答3:

只有个一个字段还是什么样子?