?怎样从数据库中读取数据 用的是access数据库我想先在数据库中搜寻到数据,再将此数据用于程序运算,该怎么做呢?做好能例举一个实例!!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在页面添加ADOConnection 和 ADOQuery 控件//获取用户procedure TForm1.Getuser;var i:integer;begin Hash:=THashedStringlist.Create; ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=520156;' +'Persist Security Info=True;User ID=xiaoyitest;Data Source=(local);' +'Initial Catalog=OAsystem;'; ADOConnection1.Open; ADOQuery1.Connection:=ADOConnection1; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT youwant1, youwant2 FROM yourtable'); ADOQuery1.Open; for i:=0 to ADOQuery1.RecordCount-1 do begin Hash.Add(ADOQuery1.Fields[0].Value + '=' + Md5.MD5Print(MD5.MD5String(ADOQuery1.Fields[1].Value))); ADOQuery1.Next; end; //这里通过类似 ADOQuery1.Fields[0].Value 这样的形式获得 ADOQuery1.Close; ADOConnection1.Close;end; 对了 连接字符串需要修改为 access 的 执行过程时 提示超时过期 Access问题 又來挑戰大家!如何做Windows Media Player 一樣的讓窗體駐留在任務欄上? ★★【调查】成都软件行业的薪酬水平★★ 怎样改变pagecontrol页的顺序? 不明白得快疯掉了(解决之后大大的加分) 可以在程序中读出 SQL表的字段的注释吗? 实现拷贝 请问如何让Erwin正常处理中文?十分感谢 delphi不能自动打开sql anywhere5.0,是什么原因? 在上万个文件中,查找字符串,怎么弄,高人指教阿 如何用delphi比较两个字符串相应位子的字符是否相同,并统计相同的有多少?
ADOConnection 和 ADOQuery 控件//获取用户
procedure TForm1.Getuser;
var
i:integer;
begin
Hash:=THashedStringlist.Create;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=520156;'
+'Persist Security Info=True;User ID=xiaoyitest;Data Source=(local);'
+'Initial Catalog=OAsystem;';
ADOConnection1.Open;
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT youwant1, youwant2 FROM yourtable');
ADOQuery1.Open;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
Hash.Add(ADOQuery1.Fields[0].Value + '=' + Md5.MD5Print(MD5.MD5String(ADOQuery1.Fields[1].Value)));
ADOQuery1.Next;
end;
//这里通过类似 ADOQuery1.Fields[0].Value 这样的形式获得
ADOQuery1.Close;
ADOConnection1.Close;
end;