刚学没几天，求救

Question

谁能帮我写段代码，主要对数据库操作的access
就是在按下一个button之后把一个表中的字段为a1='2'的数据显示在DBGrid中，最好是代码的，不要控件拖拖的

Answer 1

"...不要控件拖拖的..."最好不要用delphi也编程,建议去用C吧!或JAVA

Answer 2

呵呵,delphi的强大易用之处就在于"控件拖拖"的...

Answer 3

那要用很多代码的！先要创建DBGrid,Button,还有连接数据库的工具！那够你写的了！

Answer 4

ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from user');
  ADOQuery1.Open;
  if ADOQuery1.Recordset.RecordCount <> 0 then
  begin
    Application.MessageBox('密码正确','提示',mb_ok);
  end
我的代码是这样写的，可是不行出错

Answer 5

ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from user');
  ADOQuery1.Open;
  if ADOQuery1.Recordset.Fields[0].AsInteger<> 0 then
  begin
    Application.MessageBox('密码正确','提示',mb_ok);
  end

Answer 6

我的代码执行到ADOQuery1.Open;
这里就出错了：From语句语法错误

Answer 7

ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from [user]');
  ADOQuery1.Open;
  if ADOQuery1.Recordset.Fields[0].AsInteger<> 0 then
  begin
    Application.MessageBox('密码正确','提示',mb_ok);
  enduser是系统表

Answer 8

你的前面四句应该没有问题啊.难道不存在user表？难道你的ADOConnection1不对头？你有没有添加ADOConnection或者直接在ADOQuery里填写的Connection String?并且没有验证？

Answer 9

begin 
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from user where a1='2'');
  ADOQuery1.Open;
  ADOQuery1.Active:=False;
  ADOQuery1.Active:=True;
end;
用到的控件:ADOQuery1,DBGrid,DataSource1,把ADOQuery1的Connection设为你要联的数据库名字(如:ADOConnection,DataSource的dataset挂ADOQuery1,DBGrid的DataSource挂dataSource1),一运行就可以看到你要显示的数据了.