深藍色論壇

代碼: 選擇全部

    procedure Tform1.Button1Click(Sender: TObject); 
    var 
     i  : integer; 
    begin 
      ADOConnection1.Connected := True; 
      ADOConnection1.OpenSchema(siColumns, EmptyParam, EmptyParam, ADODataSet1); 
      ADODataSet1.Open; 
    end;