Re: ADO patch for D5? EOF BOF error.

We use this to check the version:

uses
ComObj,
Sysutils;

function GetADOVersionRaw: string;
var
ADO: Variant;
begin
try
ADO:=CreateOLEObject('adodb.connection');
Result:=ADO.Version;
ADO:=Null;
except
Result:='Unknown';
end;
end;

function GetADOVersion(var Major,Minor: integer): boolean;
var
S: string;
begin
S:=GetADOVersionRaw;
result:=(S<>'Unknown');
if result then begin
Minor:=pos('.',S);
Major:=StrToIntDef(Copy(S,1,Minor-1),0);
Minor:=StrToIntDef(Copy(S,Minor+1,100),0);
end
else begin
Major:=0; Minor:=0;
end;
end;

--

Lars Sondergaard
.

Relevant Pages

  • Re: Creating mdb file!
    ... procedure TForm1.CreateDatabase(dbname: string); ... db: variant; ... ';Persist Security Info=False'); ...
    (borland.public.delphi.database.ado)
  • Re: ADO vs ADOExpress time trials. Not good for ADOExpress
    ... Problem is that it doesn't actually return a variant. ... What it actually does it return a string, and then cast it to a variant. ... Prev by Date: ...
    (borland.public.delphi.database.ado)
  • Re: Calculate the string statement
    ... verkn:(vkn:char; ... funkt:(fkt:string; ... var fkt,dfkt: p; ... var fehler: boolean; ...
    (comp.lang.pascal.borland)
  • Two new tests for MM B&V
    ... var RunningThreads: Integer; ... class function TStringThreadTest.GetBenchmarkDescription: string; ... function CheckPattern(const Dest: Pointer; const Size: Integer; const ...
    (borland.public.delphi.language.basm)
  • server-side JavaScript: Prototypes of built-in classes, objects and functins
    ... Session object (disk-based session variables for data persistence ... File class (manipulation of files on server, ie. open, close, read, ... //Methods Cgi.queryCgi.postCgi.anyby default return an empty string if requested var not found ...
    (comp.lang.javascript)