AdvStringGrid显示Access数据

AdvStringGrid控件自带两个函数，可以直接显示acess数据库中的数据

procedure TAdvStringGrid.LoadFromMDBTable(Filename, Table: string);

procedure TAdvStringGrid.LoadFromMDBSQL(Filename, SQL: string);

其中LoadFromMDBTable的实现是通过LoadFromMDBSQL方法实现的。这两个方法的内部实现如下：

1. procedure TAdvStringGrid.LoadFromMDBTable(Filename, Table: string);
2. begin
3.   LoadFromMDBSQL(Filename,'SELECT * FROM ' + Table);
4. end;
6. procedure TAdvStringGrid.LoadFromMDBSQL(Filename, SQL: string);
7. {$IFNDEF TMSDOTNET}
8. var
9.   ObjConnC, ObjRSC: variant;
10.   DSN: string;
11.   i,j,k: Integer;
12. {$ENDIF}
13. begin
14.   {$IFNDEF TMSDOTNET}
15.   ObjConnC := CreateOleObject('ADODB.Connection');
17.   DSN := 'Driver={Microsoft Access Driver (*.mdb)};DBQ='+Filename;
19.   ObjConnC.Open(DSN);
20.   ObjRSC := CreateOleObject('ADODB.RecordSet');
21.   ObjRSC.ActiveConnection := ObjConnC;
22.   ObjRSC.Open(SQL);
24.   i := ObjRSC.Fields.Count;
26.   ColCount := FixedCols + i;
28.   if FixedRows > 0 then
29.     for j := 1 to i do
30.     begin
31.       Cells[FixedCols + j - 1, FixedRows - 1] := ObjRSC.Fields[j - 1].Name;
32.     end;
34.   if ObjRSC.RecordCount > 0 then
35.   begin
36.     RowCount := FixedRows + ObjRSC.RecordCount;
37.   end;
39.   k := FixedRows;
41.   while (ObjRSC.Eof = False) do
42.   begin
43.     for j := 1 to i do
44.     begin
45.       if ObjRSC.Fields[j - 1].ActualSize > 0 then
46.         LoadCell(FixedCols + j - 1, k,ObjRSC.Fields[j - 1].Value)
47.       else
48.         LoadCell(FixedCols + j - 1, k,'');
49.     end;
50.     ObjRSC.MoveNext;
51.     inc(k);
52.     if k > RowCount then
53.       RowCount := RowCount + 1;
54.   end;
55.   ObjRSC.Close;
56.   ObjConnC.Close;
57.   {$ENDIF}
58. end;

 

对于不需要密码的access数据的显示，直接通以上两个函数就OK，对于有密码的数据库，需要改写一下LoadFromMDBSQL的实现过程，增加一个密码参数。