数据库查询

Question

][/img]
请大家看看还缺什么东西，代码麻烦指教一下数据库是access谢谢大家了

Answer 1

缺数据结果显示，比如TDBGrid 之类,查询结果一般是一个数据集

Answer 2

１．用ＡＣＣＥＳＳ设置好数据库
例如：table1
字段名称　　数据类型
编号　　　　自动编号
条件１　　　文本
条件２　　　文本
条件３　　　文本
条件４　　　文本
结果　　　　文本　２．输入示例数据：
例如：
编号　　条件１　　条件２　　条件３　　条件４　　结果
１　　　１　　　　１１　　　１１１　　１１１１　结果１
２　　　２　　　　２２　　　２２２　　２２２２　结果２
３　　　３　　　　３３　　　３３３　　３３３３　结果３３．设计代码
＃拖５个ＥＤＩＴ控件到窗体，４个用于输入条件，１个用于输出结果
＃在ＡＤＯ选项页中拖一个TADODataSet控件到窗体
　在它的ConnectionString属性中填上，db1.mdb就是你的ＡＣＣＥＳＳ数据库文件
  Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\db1.mdb;Persist Security Info=False
＃拖１个ＢＵＴＴＯＮ控件，双击ＢＵＴＴＯＮ控件，填上以下代码
  ADODataSet1.Active := False;
  ADODataSet1.CommandText := 'select * from table1 where 条件1=:a or 条件2=:b or 条件3=:c or 条件4=:d';
  ADODataSet1.Parameters.ParamByName('a').Value := Edit1.Text;
  ADODataSet1.Parameters.ParamByName('b').Value := Edit2.Text;
  ADODataSet1.Parameters.ParamByName('c').Value := Edit3.Text;
  ADODataSet1.Parameters.ParamByName('d').Value := Edit4.Text;
  ADODataSet1.Active := True;
  Edit5.Text := ADODataSet1.FieldByName('结果').AsString;

Answer 3

5楼的大哥 我现在提示"a"not found