chiannet 发表于 2014-5-22 15:58
以前弄过一个驱动HWID采集程序，接触了一点delphi下数据库查询、更新的毛皮。反正要先连接，连接上了，查询 ...

谢谢提醒，我再想想其他的办法

chiannet 发表于 2014-5-22 15:43
procedure TForm1.FormCreate(Sender: TObject);
begin
getdir(0,dir);

没能成功，可是我不会用，请C大教我一下，最好把完整的代码贴上来，谢谢

以前弄过一个驱动HWID采集程序，接触了一点delphi下数据库查询、更新的毛皮。反正要先连接，连接上了，查询内容就多是

select 那些字段 from 表名称 where 关键字=:啥子值

至于复杂的过滤器呀什么的就没搞过了

这样的格式

chiannet 发表于 2014-5-22 15:43
procedure TForm1.FormCreate(Sender: TObject);
begin
getdir(0,dir);

谢谢C大，我试试看

procedure TForm1.FormCreate(Sender: TObject);
begin
getdir(0,dir);
try
Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(Application.ExeName)+'\db.mdb'+';Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5';
adotable1.Connection:=adoconnection1;
adotable1.Open;
adoquery1.Open;
except
    Adotable1.Close;
    adoquery1.Close;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
......
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 表X where hwid=:USB\VID_0BDA&PID_0138');
    open;
.......

以下是delphi 代码实例，修改一下就可以了。

1. //第一步：连接数据库
   
2. 
   
3. constr:='Provider=Microsoft.Jet.OLEDB.4.0;'+
   
4.           'User ID=Admin;Jet OLEDB:Database Password=qdsafetyyf;'+
   
5.            'Data Source='+ExtractFilePath(Application.ExeName)+'JNJKSJK.mdb;'+
   
6.            'Persist Security Info=true';
   
7.     adoquery1.ConnectionString := constr;
   
8.     form1.ADOQuery1.ConnectionString:=constr;
   
9. 
   
10. //第二步：查询记录
    
11. 
    
12. var
    
13.   i,j:integer;
    
14.   newitem :tlistitem;
    
15.   ykmc:string;
    
16. begin
    
17.   ykmc:=edit1.Text;
    
18.   ADOQuery1.Close;
    
19.   ADOQuery1.SQL.Clear;
    
20.   adoquery1.SQL.Add('select * from ykxx where ykdw='''+ykmc+'''');//注意语法格式，'''+ykmc+'''必须是三对单引号
    
21.   ADOQuery1.Open;
    
22.   ListView1.Clear;
    
23.   if edit1.Text='' then
    
24.   begin
    
25.   showmessage('请输入要查询的业扩单位的名称');
    
26.   end;
    
27.   if (adoQuery1.RecordCount>0) and (edit1.Text<>'') then
    
28.   begin
    
29.   for i:=1 to AdoQuery1.RecordCount do
    
30.   begin
    
31.     newitem:=ListView1.Items.Add;
    
32.     newitem.Caption:=AdoQuery1.FieldByName('BH').AsString;
    
33.     newitem.SubItems.Add(AdoQuery1.FieldByName('YKDW').AsString);
    
34.     newitem.SubItems.Add(AdoQuery1.FieldByName('YKSJ').AsString);
    
35.     newitem.SubItems.Add(AdoQuery1.FieldByName('YKNR').AsString);
    
36.     ADOQuery1.Next;
    
37.   end;
    
38.   j:=listview1.Items.Count;
    
39.   edit2.Text:=inttostr(j)+'条';
    
40.   end;
    
41.   if (adoquery1.RecordCount =0) and (edit1.Text<>'') then
    
42.    begin
    
43.     showmessage('没有符合条件的记录!!!!');
    
44.     edit2.Text:='0'+'条';
    
45.   end;
    
46.   end;

复制代码