Question

Delphi往数据库添加记录 要怎么写程序啊？

相信朋友们看到界面就该有个了解了吧！在数据库中添加一个用户，并且要选择用户类型，
程序执行到adoquery1.SQL.Add('insert into Users(用户名,口令,用户类别) valuse('''+edit1.Text+''','''+edit2.Text+''','''+leixing.Text+''')') ;
adoquery1.ExecSQL;
时候就出错了！朋友们帮忙看看啊！

procedure TAdduser.Button1Click(Sender: TObject);
begin
adoquery1.Close; //对数据初始化
adoquery1.SQL.Clear;

if edit1.Text='' then
showmessage('用户名不能为空')
else if edit2.Text='' then
showmessage('密码不能为空')
else if leixing.text='' then
showmessage('请选择用户类型 0为管理员 1为普通用户');
adoquery1.open;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into Users(用户名,口令,用户类别) valuse('''+edit1.Text+''','''+edit2.Text+''','''+leixing.Text+''')') ;
adoquery1.ExecSQL;
end;

Answer 1

把ACCESS转成SQL数据库 很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项 一，首先，我说的是在ACCESS2000，SQL2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的； 二，转换的方法 1，打开”控制面板“下”管理工具“中的”数据库源“； 2，按”添加“添加一个新的数据源，在选择栏里选”Driver do microsoft Access (*.mdb)”,完成后将出现一个框, 在”数据库源“里面输入你想写的名称，我取名叫“ABC”,说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的ACCESS数据库），然后确定。 数据源在这里建好了，剩下转换了。 3，打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”； 4，选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续； 5，在数据库源下拉但中选择”Driver do microsoft Access(*.mdb)“，在”用户/系统DSN“中，选种你刚才添加的”ABC“，按 ”下一步“； 6，“目的”不需要修改，选择服务器（一般下为自己的本机“local“,也可以选择服务器地址或者局域网地址,确定你的权限是否可以操作,),“使用WINDOWS 身份验证“指用自己的系统管理员身份操作,“使用SQL身份操作验证“可以用于网站的操作,推荐用后者; 7,选上“使用SQL身份操作验证“后,填写你的用户名和密码,我自己选择的是系统默认号码“sa“,“****“,数据库选择刚新建的“ABC“,按“下一步“; 8,这一步的两个单项选择,“从数据源复制表和视图“与“用一条查询指令指定要传输的数据“,选择前者,按“下一步“继续; 9,这里将出现你自己ACCESS数据库的表,按“全选“后,下一步; 10,“DTS导入/导出向导“,看“立即运行“被选中按“下一步“, 11,按“完成“继续; 12,这个步骤你将看到你的数据被导入SQL2000里面,当出现“已经成功把XXX个表导入到数据库“的字样,而且所有的表前面都有绿色的勾,就表示成功导入所有数据,如果中途出现问题或者表前面有红色的叉的话,说明该表没有成功导入,这时就要回去查看自己的操作是否正确了.

Answer 2

我觉得有三个错误

1、showmessage你应该让程序停下来呀，你光一个对话框，程序还继续，你这一句有什么用？ 应该对话框后。Exit;
2、adoquery.open ADO组件都运行了，你后面还弄一个execsql干什么？ 这个命令主要是用于select的。
3、SQL语句的组合有问题。

Answer 3

Str:='Insert Into [U] (Uname,Upass,Ukey,Uc,Utime,Uip) values (:Uname,:Upass,:Ukey,:Uc,:Utime,:Uip)';
Form1.qry1.SQL.Add(Str);
with Form1.qry1.Parameters do
begin
ParamByName('Uname').Value:=Trim(Uname);
ParamByName('Upass').Value:=Trim(Upass);
ParamByName('Ukey').Value:=Trim(Ukey);
ParamByName('Uc').Value:=Trim(Uc);
ParamByName('Utime').Value:=Now();
ParamByName('Uip').Value:=GetIPAddr;
end;
try
Form1.qry1.ExecSQL;
finally
Form1.qry1.Free;
end;